Register xfun::record_print method for data.table

As with knit_print, avoid printing x when !shouldPrint(x). Use the
overloaded method in the vignettes instead of relying on the
auto-printing detection in print.data.table.

Author: aitap

NAMESPACE

@@ -104,7 +104,10 @@ if (getRversion() >= "4.0.0") {
   # version of R (and that is checked in .onLoad with error if not).
   export(.rbind.data.table) # only export in R<4.0.0 where it is still used; R-devel now detects it is missing doc, #5600
 }
-if (getRversion() >= "3.6.0") S3method(knitr::knit_print, data.table) # else manual delayed registration from the onLoad hook
+if (getRversion() >= "3.6.0") {
+  S3method(knitr::knit_print, data.table)
+  S3method(xfun::record_print, data.table)
+} # else manual delayed registration from the onLoad hook
 S3method(dim, data.table)
 S3method(dimnames, data.table)
 S3method("dimnames<-", data.table)

R/onLoad.R

@@ -67,6 +67,12 @@
     setHook(packageEvent("knitr", "onLoad"), function(...) {
       registerS3method("knit_print", "data.table", knit_print.data.table, envir = asNamespace("knitr"))
     })
+    if (isNamespaceLoaded("xfun")) {
+      registerS3method("record_print", "data.table", record_print.data.table, envir = asNamespace("xfun"))
+    }
+    setHook(packageEvent("xfun", "onLoad"), function(...) {
+      registerS3method("record_print", "data.table", record_print.data.table, envir = asNamespace("xfun"))
+    })
   }
 
   # Set options for the speed boost in v1.8.0 by avoiding 'default' arg of getOption(,default=)

R/print.data.table.R

@@ -297,3 +297,7 @@ knit_print.data.table = function(x, ...) {
   if (!shouldPrint(x)) return(invisible(x))
   NextMethod()
 }
+record_print.data.table = function(x, ...) {
+  if (!shouldPrint(x)) return(character())
+  NextMethod()
+}

vignettes/datatable-benchmarking.Rmd

@@ -14,7 +14,7 @@ vignette: >
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-litedown::reactor(comment = "# ", print = NA)
+litedown::reactor(comment = "# ")
 ```
 
 <style>

vignettes/datatable-faq.Rmd

@@ -32,7 +32,7 @@ h2 {
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-litedown::reactor(comment = "# ", print = NA)
+litedown::reactor(comment = "# ")
 .old.th = setDTthreads(1)
 ```
 

vignettes/datatable-importing.Rmd

@@ -10,7 +10,7 @@ vignette: >
 ---
 
 ```{r, echo = FALSE, message = FALSE}
-litedown::reactor(comment = "# ", print = NA)
+litedown::reactor(comment = "# ")
 .old.th = data.table::setDTthreads(1)
 ```
 

vignettes/datatable-intro.Rmd

@@ -15,7 +15,7 @@ vignette: >
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-litedown::reactor(comment = "# ", print = NA)
+litedown::reactor(comment = "# ")
 .old.th = setDTthreads(1)
 ```
 

vignettes/datatable-joins.Rmd

@@ -13,7 +13,7 @@ editor_options:
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-litedown::reactor(comment = "# ", print = NA)
+litedown::reactor(comment = "# ")
 ```
 
 ```{r, echo=FALSE, file='_translation_links.R'}

vignettes/datatable-keys-fast-subset.Rmd

@@ -15,7 +15,7 @@ vignette: >
 
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
-litedown::reactor(comment = "# ", print = NA)
+litedown::reactor(comment = "# ")
 .old.th = setDTthreads(1)
 ```
 

vignettes/datatable-programming.Rmd

@@ -15,7 +15,7 @@ vignette: >
 
 ```{r init, include = FALSE}
 require(data.table)
-litedown::reactor(comment = "# ", print = NA)
+litedown::reactor(comment = "# ")
 ```
 
 ## Introduction