Fix introduced errors

nlmixr2 · Sep 8, 2024 · 44c5130 · 44c5130
1 parent 7d537e3
commit 44c5130
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/R/piping.R b/R/piping.R
@@ -373,15 +373,16 @@
       # Capture empty arguments (rxode2#688)
       warning("empty argument ignored")
       return(NULL)
-    } else if (is.symbol(.quoted) &&
-                 identical(.quoted, quote(`diag`))) {
-      .quoted <- str2lang("~diag()")
+    } else if (length(.quoted) == 1) {
+      if (identical(.quoted, quote(`diag`))) {
+        .quoted <- str2lang("~diag()")
+      } else {
+        .bracket[i] <- TRUE
+        assign(".bracket", .bracket, envir=.env)
+      }
     } else if (length(.quoted) >= 1 &&
                  identical(.quoted[[1]], quote(`diag`))) {
       .quoted <- as.call(c(list(quote(`~`)), .quoted))
-    } else if (length(.quoted) == 1) {
-      .bracket[i] <- TRUE
-      assign(".bracket", .bracket, envir=.env)
     } else if (identical(.quoted[[1]], quote(`diag`))) {
 
     } else if (identical(.quoted[[1]], quote(`{`)) ||