use yihuis suggestions

Author: ben-schwen

vignettes/datatable-faq.Rmd

@@ -15,10 +15,7 @@ vignette: >
 ---
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 .old.th = setDTthreads(1)
 ```
 

vignettes/datatable-importing.Rmd

@@ -10,10 +10,7 @@ vignette: >
 ---
 
 ```{r, echo = FALSE, message = FALSE}
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 .old.th = data.table::setDTthreads(1)
 ```
 

vignettes/datatable-intro.Rmd

@@ -11,10 +11,7 @@ vignette: >
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 .old.th = setDTthreads(1)
 ```
 

vignettes/datatable-joins.Rmd

@@ -13,10 +13,7 @@ editor_options:
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 ```
 
 In this vignette you will learn how to perform any join operation using resources available in the `data.table` syntax.

vignettes/datatable-keys-fast-subset.Rmd

@@ -11,10 +11,7 @@ vignette: >
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 .old.th = setDTthreads(1)
 ```
 

vignettes/datatable-programming.Rmd

@@ -11,10 +11,7 @@ vignette: >
 
 ```{r init, echo = FALSE, message = FALSE}
 library(data.table)
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 ```
 
 

vignettes/datatable-reference-semantics.Rmd

@@ -11,10 +11,7 @@ vignette: >
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 .old.th = setDTthreads(1)
 ```
 This vignette discusses *data.table*'s reference semantics which allows to *add/update/delete* columns of a *data.table by reference*, and also combine them with `i` and `by`. It is aimed at those who are already familiar with *data.table* syntax, its general form, how to subset rows in `i`, select and compute on columns, and perform aggregations by group. If you're not familiar with these concepts, please read the `vignette("datatable-intro", package="data.table")` first.

vignettes/datatable-reshape.Rmd

@@ -11,10 +11,7 @@ vignette: >
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 .old.th = setDTthreads(1)
 ```
 

vignettes/datatable-sd-usage.Rmd

@@ -16,10 +16,7 @@ vignette: >
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 .old.th = setDTthreads(1)
 ```
 

vignettes/datatable-secondary-indices-and-auto-indexing.Rmd

@@ -11,10 +11,7 @@ vignette: >
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-opts = litedown::reactor()
-opts$comment = "# "
-opts$error = FALSE
-opts$print = function(x, ...) capture.output(if (isS4(x)) methods::show(x, ...) else print(x, ...))
+litedown::reactor(comment = "# ", print = NA)
 .old.th = setDTthreads(1)
 ```