Update attr.R

r-lib · Aug 15, 2024 · cde98bc · cde98bc
1 parent 8a55490
commit cde98bc
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/R/attr.R b/R/attr.R
@@ -111,18 +111,18 @@ is_dictionaryish <- function(x) {
   # 2022-01: Used in many packages. Don't deprecate without a
   # replacement.
   if (is.null(x)) {
-    TRUE
-  } else {
-    if (!length(x)) {
-      return(!is.null(x))
-    }
-
-    is_named(x) && !any(duplicated(names(x)))
+    return(TRUE)
+  }
 
+  if (!length(x)) {
+    return(!is.null(x))
   }
+
+  is_named(x) && !any(duplicated(names(x)))
 }
 
 
+
 #' Does an object have an element with this name?
 #'
 #' This function returns a logical value that indicates if a data