replace has_name()

Author: teunbrand

R/limits.R

@@ -80,7 +80,7 @@
 lims <- function(...) {
   args <- list2(...)
 
-  if (!all(has_name(args))) {
+  if (!is_named2(args)) {
     cli::cli_abort("All arguments must be named.")
   }
   env <- current_env()

R/utilities.R

@@ -231,15 +231,6 @@ gg_dep <- function(version, msg) {
   invisible()
 }
 
-has_name <- function(x) {
-  nms <- names(x)
-  if (is.null(nms)) {
-    return(rep(FALSE, length(x)))
-  }
-
-  !is.na(nms) & nms != ""
-}
-
 # Use chartr() for safety since toupper() fails to convert i to I in Turkish locale
 lower_ascii <- "abcdefghijklmnopqrstuvwxyz"
 upper_ascii <- "ABCDEFGHIJKLMNOPQRSTUVWXYZ"