print to return original options

TysonStanley · Jan 7, 2024 · 09c19fe · 09c19fe
1 parent 5b81862
commit 09c19fe
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/print.R b/R/print.R
@@ -27,11 +27,13 @@ dt_print_options <- function(class = TRUE,
                              rownames = TRUE,
                              nrows = 100,
                              trunc.cols = TRUE) {
+  old <- options()
   if (isTRUE(class)) options("datatable.print.class" = TRUE)
   options("datatable.print.topn" = topn)
   options("datatable.print.nrows" = nrows)
   options("datatable.print.rownames" = rownames)
   if (packageVersion("data.table") >= "1.12.9") {
     options("datatable.print.trunc.cols" = trunc.cols)
   }
+  invisible(old)
 }