check if optional_args is list or null

lgessl · Nov 28, 2023 · d623b72 · d623b72
1 parent d60b07e
commit d623b72
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/checks.R b/R/checks.R
@@ -69,6 +69,9 @@ check_fitter <- function(
     if(!is.function(fitter)){
         stop("fitter must be a function.")
     }
+    if(!(is.null(optional_args) || is.list(optional_args))){
+        stop("optional_args must be a list.")
+    }
     parameters <- names(formals(fitter))
     for(pos_arg in c("x", "y")){
         if(!(pos_arg %in% parameters)){