Add call.=FALSE

nlmixr2 · Dec 5, 2023 · 8ce15c4 · 8ce15c4
1 parent 7898ae9
commit 8ce15c4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/piping-ini.R b/R/piping-ini.R
@@ -331,7 +331,8 @@
   if (length(.w) != 1) {
     stop("cannot find parameter '", lhs, "'", call.=FALSE)
   } else if (!is.character(newLabel) || !(length(newLabel) == 1)) {
-    stop("the new label for '", lhs, "' must be a character string")
+    stop("the new label for '", lhs, "' must be a character string",
+         call.=FALSE)
   }
   ini$label[.w] <- newLabel
   assign("iniDf", ini, envir=rxui)