chore: Fix tests when dplyr is missing

R/backend-dbplyr__duckdb_connection.R

@@ -7,7 +7,7 @@
 #'
 #' @name backend-duckdb
 #' @aliases NULL
-#' @examples
+#' @examplesIf rlang::is_installed("dbplyr")
 #' library(dplyr, warn.conflicts = FALSE)
 #' con <- DBI::dbConnect(duckdb(), path = ":memory:")
 #'

tests/testthat/test_tbl__duckdb_connection.R

@@ -2,6 +2,8 @@ skip_on_cran()
 `%>%` <- dplyr::`%>%`
 
 test_that("Parquet files can be registered with dplyr::tbl()", {
+  skip_if_not_installed("dplyr")
+
   con <- DBI::dbConnect(duckdb())
   on.exit(DBI::dbDisconnect(con, shutdown = TRUE))
 
@@ -24,6 +26,8 @@ test_that("Parquet files can be registered with dplyr::tbl()", {
 
 
 test_that("Object cache can be enabled for parquet files with dplyr::tbl()", {
+  skip_if_not_installed("dplyr")
+
   con <- DBI::dbConnect(duckdb())
   on.exit(DBI::dbDisconnect(con, shutdown = TRUE))
 
@@ -38,6 +42,8 @@ test_that("Object cache can be enabled for parquet files with dplyr::tbl()", {
 
 
 test_that("CSV files can be registered with dplyr::tbl()", {
+  skip_if_not_installed("dplyr")
+
   path <- file.path(tempdir(), "duckdbtest.csv")
   write.csv(iris, file = path)
   on.exit(unlink(path))
@@ -55,6 +61,8 @@ test_that("CSV files can be registered with dplyr::tbl()", {
 })
 
 test_that("Other replacement scans or functions can be registered with dplyr::tbl()", {
+  skip_if_not_installed("dplyr")
+
   con <- DBI::dbConnect(duckdb())
   on.exit(DBI::dbDisconnect(con, shutdown = TRUE))
 
@@ -64,9 +72,11 @@ test_that("Other replacement scans or functions can be registered with dplyr::tb
 })
 
 test_that("Strings tagged as SQL will be handled correctly with dplyr::tbl()", {
+  skip_if_not_installed("dplyr")
+
   con <- DBI::dbConnect(duckdb())
   on.exit(DBI::dbDisconnect(con, shutdown = TRUE))
-  
+
   rs <- dplyr::tbl(con, dplyr::sql("SELECT 1"))
   expect_true(inherits(rs, "tbl_duckdb_connection"))
   expect_true(rs %>% dplyr::collect() == 1)