set options on load (#42)

jmbarbone · Dec 3, 2023 · 07867d4 · 07867d4
1 parent 3834939
commit 07867d4
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/fuj-package.R b/R/fuj-package.R
@@ -19,3 +19,8 @@ op.fuj <- list(
   fuj.verbose.fill = FALSE,
   fuj.verbose.label = "<verboseMessage> "
 )
+
+.onLoad <- function(libname, pkgname) {
+  # set options
+  options(op.fuj[!names(op.fuj) %in% names(options())])
+}