fixed error when calling scripts with variables and not values as par…

…ameters
D-Maar · Jun 17, 2024 · c511552 · c511552
1 parent 27e26c4
commit c511552
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -553,7 +553,9 @@ check_call_config <- function(mc, variable ,standards, dim = 1, check_var = FALS
               print(\"must be numeric input\")) ")))
     }
 
-    if(!isFALSE(check_var)) checkmate::qassert(value,check_var)
+    if(!isFALSE(check_var)){
+      if (class(value) == "language" | class(value) == "call") value <- eval(value, envir = parent.frame(2L))
+      checkmate::qassert(value,check_var)
 
   } else{
     value <- unlist(standards[which(names(standards) == variable)])