Merge pull request #364 from r-dbi/b-dplyr

chore: Avoid dplyr
r-dbi · Mar 30, 2024 · ecec086 · ecec086
2 parents 36242d2 + cb6c061
commit ecec086
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 11 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -35,7 +35,6 @@ Suggests:
     constructive,
     debugme,
     devtools,
-    dplyr,
     knitr,
     lintr,
     pkgload,

diff --git a/R/spec-arrow.R b/R/spec-arrow.R
@@ -17,23 +17,15 @@ spec_arrow <- c(
 utils::globalVariables("select")
 
 stream_frame <- function(..., .select = NULL) {
-  if (!is_installed("dplyr")) {
-    skip("dplyr is not installed")
-  }
-
   data <- data.frame(..., stringsAsFactors = FALSE, check.names = FALSE)
   as_is <- map_lgl(data, inherits, "AsIs")
   data[as_is] <- map(data[as_is], function(.x) {
     class(.x) <- setdiff(class(.x), "AsIs")
     .x
   })
 
-  select <- enquo(.select)
-
-  if (!quo_is_null(select)) {
-    data <-
-      data %>%
-      dplyr::select(!!select)
+  if (!is.null(.select)) {
+    data <- data[.select]
   }
 
   out <- nanoarrow::as_nanoarrow_array_stream(data)