simplify

easystats · Dec 1, 2024 · 62631e6 · 62631e6
1 parent f2a56af
commit 62631e6
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/data_rename.R b/R/data_rename.R
@@ -116,10 +116,8 @@ data_rename <- function(data,
   # Ex: if select = c("foo" = "Species", "Sepal.Length") then the 2nd name and
   # 2nd value are "Sepal.Length"
   if (!is.null(names(select))) {
-    for (i in seq_along(select)) {
-      if (names(select)[i] == select[i]) {
-        insight::format_error("When `select` is a named vector, all elements must be named.")
-      }
+    if (any(names(select) == select)) {
+      insight::format_error("When `select` is a named vector, all elements must be named.")
     }
   }