type convert error for non-function

tdhock · Dec 18, 2024 · ef9d396 · ef9d396
1 parent be8b1d7
commit ef9d396
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/var_args_list.R b/R/var_args_list.R
@@ -63,7 +63,9 @@ var_args_list <- structure(function
         function(x)utils::type.convert(x,as.is=TRUE)
       }else if(isFALSE(type.convert)){
         identity
-      }else type.convert
+      }else if(is.function(type.convert)){
+        type.convert
+      }else stop("type.convert should be either TRUE or FALSE or a function")
       names(fun.list)[[group.i]] <- pattern.name
       has.name <- TRUE
       "("