From c35190d6f07be0e6b35645c79260c86d086a43db Mon Sep 17 00:00:00 2001
From: Matthew Fidler <matthew.fidler@gmail.com>
Date: Mon, 23 Sep 2024 22:06:01 -0500
Subject: [PATCH] Remove at last sec

---
 R/def2ini.R | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/R/def2ini.R b/R/def2ini.R
index ab8f034..4a8954f 100644
--- a/R/def2ini.R
+++ b/R/def2ini.R
@@ -332,7 +332,6 @@
   if (length(.in) > 0L) {
     .coef <- .coef[-.in]
   }
-  browser()
   .pop <- c(list(quote(`{`)),
             lapply(.n, function(n) {
               .cur <- .var[[n]]
@@ -388,5 +387,13 @@
   } else {
     .ini <- .pop
   }
+  .l <- which(vapply(seq_along(.ini),
+                     function(i) {
+                       .x <- .ini[[i]]
+                       if (identical(.x, quote(`{`))) return(TRUE)
+                       if (length(.x) <= 1) return(FALSE)
+                       !identical(.x[[2]], quote(`rxRmVar`))
+                     }, logical(1), USE.NAMES=FALSE))
+  .ini <- lapply(.l, function(i){.ini[[i]]})
   as.call(c(list(quote(`ini`)), as.call(.ini)))
 }