standardize() fails in some cases

Fixes #441
easystats · Jul 1, 2023 · aafd8e9 · aafd8e9
1 parent 3ff2209
commit aafd8e9
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/standardize.models.R b/R/standardize.models.R
@@ -84,7 +84,7 @@ standardize.default <- function(x,
     weights = weights,
     verbose = verbose,
     include_response = include_response,
-    update_expr = stats::update(x, data = data_std),
+    update_expr = str2lang("stats::update(x, data = data_std)"),
     ...
   )
 }
@@ -264,10 +264,10 @@ standardize.default <- function(x,
   on.exit(.update_failed())
 
   if (isTRUE(verbose)) {
-    model_std <- eval(substitute(update_expr))
+    model_std <- eval(update_expr)
   } else {
     utils::capture.output({
-      model_std <- eval(substitute(update_expr))
+      model_std <- eval(update_expr)
     })
   }