From 59c0e488db53ee137a52b96def133a8a3777dc44 Mon Sep 17 00:00:00 2001
From: Joe Thorley <joe@poissonconsulting.ca>
Date: Fri, 9 Aug 2024 13:24:26 -0700
Subject: [PATCH] not drop parameters when new_expr is NULL

---
 R/drop-parameters.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/drop-parameters.R b/R/drop-parameters.R
index a3088e3..fdfc544 100644
--- 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
 }