General comments for review #27

make sys.call correct for assert_req_arg
meantrix · Jan 10, 2025 · 61c2214 · 61c2214
1 parent 32c9668
commit 61c2214
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -411,13 +411,13 @@
 #'
 #' 
 #' @export
-assert_required_argument <- function(arg, description) {  
+assert_required_argument <- function(arg, description) {
   arg_name <- deparse(substitute(arg))
-  if (isFALSE(exists(arg_name))) {
-    stop(paste(
-      sprintf("Missing argument: '%s'.", arg_name),
+  if (!exists(arg_name)) {
+    stop(simpleError(paste(
+      sprintf("\n  Missing required argument: '%s'.", arg_name),
       description,
-      sep = "\n"
-    ))
+      sep = "\n  "
+    ), sys.call(sys.parent())))
   }
 }