use call argument

EmilHvitfeldt · EmilHvitfeldt · commit 0d1f175d9a25 · 2024-03-29T21:26:28.000-07:00
diff --git a/R/aaa_models.R b/R/aaa_models.R
@@ -325,11 +325,12 @@ check_arg_val <- function(arg) {
   invisible(NULL)
 }
 
-check_submodels_val <- function(has_submodel, call) {
+check_submodels_val <- function(has_submodel, call = caller_env()) {
   if (!is.logical(has_submodel) || length(has_submodel) != 1) {
     cli::cli_abort(
       "The {.arg submodels} argument should be a single logical. \\
-      not {.obj_type_friendly {has_submodel}}"
+      not {.obj_type_friendly {has_submodel}}",
+      call = call
     )
   }
   invisible(NULL)

Original file line number	Diff line number	Diff line change
`@@ -325,11 +325,12 @@ check_arg_val <- function(arg) {`
`325`	`325`	`invisible(NULL)`
`326`	`326`	`}`
`327`	`327`
`328`		`-check_submodels_val <- function(has_submodel, call) {`
	`328`	`+check_submodels_val <- function(has_submodel, call = caller_env()) {`
`329`	`329`	`if (!is.logical(has_submodel) \|\| length(has_submodel) != 1) {`
`330`	`330`	`cli::cli_abort(`
`331`	`331`	`"The {.arg submodels} argument should be a single logical. \\`
`332`		`- not {.obj_type_friendly {has_submodel}}"`
	`332`	`+ not {.obj_type_friendly {has_submodel}}",`
	`333`	`+ call = call`
`333`	`334`	`)`
`334`	`335`	`}`
`335`	`336`	`invisible(NULL)`