lintr

easystats · May 18, 2024 · 3833677 · 3833677
1 parent 7c09165
commit 3833677
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/data_extract.R b/R/data_extract.R
@@ -134,13 +134,13 @@ data_extract.data.frame <- function(data,
   }
 
   # we definitely should have a vector here when name not NULL
-  if (!is.null(name)) {
+  if (is.null(name)) {
+    data[, select, drop = !as_data_frame]
+  } else {
     # if name indicates a variable, extract values for naming now
     if (length(name) == 1L) {
       name <- data[[name]]
     }
     stats::setNames(data[[select]], name)
-  } else {
-    data[, select, drop = !as_data_frame]
   }
 }