Drop call to enquos()

markfairbanks · Dec 11, 2023 · c83a981 · c83a981
1 parent 0287929
commit c83a981
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/drop_na.R b/R/drop_na.R
@@ -29,14 +29,12 @@ drop_na <- function(.df, ...) {
 
 #' @export
 drop_na.tidytable <- function(.df, ...) {
-  dots <- enquos(...)
-
-  if (length(dots) == 0) {
+  if (missing(...)) {
     na.omit(.df)
   } else {
-    drop_cols <- tidyselect_locs(.df, ...)
+    cols <- tidyselect_locs(.df, ...)
 
-    na.omit(.df, cols = drop_cols)
+    na.omit(.df, cols = cols)
   }
 }