add check function

Author: teunbrand

R/utilities-checks.R

@@ -126,6 +126,28 @@ check_length <- function(x, length = integer(), ..., min = 0, max = Inf,
   cli::cli_abort(msg, call = call, arg = arg)
 }
 
+check_named <- function(x, arg = caller_arg(x), call = caller_env()) {
+  if (missing(x)) {
+    stop_input_type(x, "a vector", arg = arg, call = call)
+  }
+  if (length(x) < 1) {
+    return(invisible())
+  }
+  msg <- character()
+  if (!is_named2(x)) {
+    msg <- sprintf("%s must have names.", fmt_arg(arg))
+  } else if (anyDuplicated(names2(x))) {
+    dups <- names2(x)
+    dups <- sprintf('"%s"', unique(dups[duplicated(dups)]))
+    dups <- oxford_comma(dups, final = "and")
+    msg  <- sprintf("%s cannot have duplicate names (%s).", fmt_arg(arg), dups)
+  }
+  if (length(msg) < 1) {
+    return(invisible())
+  }
+  cli::cli_abort(msg, call = call, arg = arg)
+}
+
 #' Check graphics device capabilities
 #'
 #' This function makes an attempt to estimate whether the graphics device is