fix: Skip test if dplyr is not installed

r-dbi · Oct 8, 2023 · 9e48674 · 9e48674
1 parent bdab15a
commit 9e48674
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 3 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -42,11 +42,13 @@ importFrom(rlang,eval_tidy)
 importFrom(rlang,expr)
 importFrom(rlang,global_env)
 importFrom(rlang,has_length)
+importFrom(rlang,is_installed)
 importFrom(rlang,is_interactive)
 importFrom(rlang,is_logical)
 importFrom(rlang,list2)
 importFrom(rlang,local_options)
 importFrom(rlang,quo)
+importFrom(rlang,quo_is_null)
 importFrom(rlang,seq2)
 importFrom(rlang,set_names)
 importFrom(stats,setNames)

diff --git a/R/import-testthat.R b/R/import-testthat.R
@@ -1,7 +1,7 @@
 #' @import testthat
 #' @importFrom rlang quo enquo enquos expr enexpr eval_tidy list2 has_length :=
 #' @importFrom rlang abort is_interactive as_function local_options seq2 set_names
-#' @importFrom rlang %||% global_env is_logical
+#' @importFrom rlang %||% global_env is_logical is_installed quo_is_null
 NULL
 
 #' @importFrom methods findMethod getClasses getClass extends

diff --git a/R/spec-arrow.R b/R/spec-arrow.R
@@ -13,13 +13,21 @@ spec_arrow <- c(
   NULL
 )
 
+utils::globalVariables("select")
+
 stream_frame <- function(..., .select = NULL) {
+  if (!is_installed("dplyr")) {
+    skip("dplyr is not installed")
+  }
+
   data <- data.frame(..., stringsAsFactors = FALSE)
 
-  if (!is.null(.select)) {
+  select <- enquo(.select)
+
+  if (!quo_is_null(.select)) {
     data <-
       data %>%
-      dplyr::select({{ .select }})
+      dplyr::select(!!select)
   }
 
   out <- nanoarrow::as_nanoarrow_array_stream(data)