Remove at last sec

nlmixr2 · Sep 24, 2024 · c35190d · c35190d
1 parent ec4321e
commit c35190d
Showing 1 changed file with 8 additions and 1 deletion.
diff --git 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)))
 }