Elaborate on the use of options()

Rdatatable · Feb 11, 2025 · 81b09fb · 81b09fb
1 parent 73aa747
commit 81b09fb
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/test.data.table.R b/R/test.data.table.R
@@ -433,7 +433,9 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no
     out = capture.output(print(x <- suppressMessages(withCallingHandlers(tryCatch(x, error=eHandler), warning=wHandler, message=mHandler))))
   }
   if (!is.null(options)) {
+    # some of the options passed to test() may break internal data.table use below (e.g. invalid datatable.alloccol), so undo them ASAP
     base::options(old_options)
+    # this is still registered for on.exit(), keep empty
     old_options <- list()
   }
   fail = FALSE