not drop parameters when new_expr is NULL

poissonconsulting · Aug 9, 2024 · 59c0e48 · 59c0e48
1 parent c5302cd
commit 59c0e48
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/drop-parameters.R b/R/drop-parameters.R
@@ -99,7 +99,9 @@ drop_pars.mb_model <- function(x, pars = character(0), ...) {
   }
 
   x$code <- drop_pars(x$code, pars = pars)
-  x$new_expr <- drop_pars(x$new_expr, pars = pars)
+  if(!is.null(x$new_expr)) {
+    x$new_expr <- drop_pars(x$new_expr, pars = pars)
+  }
   x$drops <- list()
   x
 }