Update standalone-checks.R

ddsjoberg · Feb 7, 2024 · d935f3c · d935f3c
1 parent 8d5f14c
commit d935f3c
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/R/standalone-checks.R b/R/standalone-checks.R
@@ -84,7 +84,12 @@ check_not_missing <- function(x,
 #' @keywords internal
 #' @noRd
 check_length <- function(x, length,
-                         message = "The {.arg {arg_name}} argument must be length {.val {length}}.",
+                         message =
+                           ifelse(
+                             allow_empty,
+                             "The {.arg {arg_name}} argument must be length {.val {length}} or empty.",
+                             "The {.arg {arg_name}} argument must be length {.val {length}}."
+                           ),
                          allow_empty = FALSE,
                          arg_name = rlang::caller_arg(x), call = parent.frame()) {
   # if empty, skip test
@@ -108,7 +113,12 @@ check_length <- function(x, length,
 #' @keywords internal
 #' @noRd
 check_scalar <- function(x,
-                         message = "The {.arg {arg_name}} argument must be length {.val {length}}.",
+                         message =
+                           ifelse(
+                             allow_empty,
+                             "The {.arg {arg_name}} argument must be length {.val {length}} or empty.",
+                             "The {.arg {arg_name}} argument must be length {.val {length}}."
+                           ),
                          allow_empty = FALSE,
                          arg_name = rlang::caller_arg(x), call = parent.frame()) {
   check_length(