diff --git a/R/backend-dbplyr__duckdb_connection.R b/R/backend-dbplyr__duckdb_connection.R index 1d222ea4b..541c7a659 100644 --- a/R/backend-dbplyr__duckdb_connection.R +++ b/R/backend-dbplyr__duckdb_connection.R @@ -7,7 +7,8 @@ #' #' @name backend-duckdb #' @aliases NULL -#' @examplesIf rlang::is_installed("dbplyr") +# RE2 +#' @examplesIf FALSE && rlang::is_installed("dbplyr") #' library(dplyr, warn.conflicts = FALSE) #' con <- DBI::dbConnect(duckdb(), path = ":memory:") #' diff --git a/R/csv.R b/R/csv.R index c8d6ae457..dd5694322 100644 --- a/R/csv.R +++ b/R/csv.R @@ -17,7 +17,8 @@ #' @param ... Passed on to [read.csv()] #' @return The number of rows in the resulted table, invisibly. #' @export -#' @examples +# RE2 +#' @examplesIf FALSE #' con <- dbConnect(duckdb()) #' #' data <- data.frame(a = 1:3, b = letters[1:3]) diff --git a/man/backend-duckdb.Rd b/man/backend-duckdb.Rd index 4c052ce20..4979a355b 100644 --- a/man/backend-duckdb.Rd +++ b/man/backend-duckdb.Rd @@ -43,7 +43,7 @@ Use \code{dplyr::tbl(src, dplyr::sql("SELECT ... FROM ..."))} for custom SQL que See \url{https://duckdb.org/docs/data/overview} for details on data importing functions. } \examples{ -\dontshow{if (rlang::is_installed("dbplyr")) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (FALSE && rlang::is_installed("dbplyr")) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} library(dplyr, warn.conflicts = FALSE) con <- DBI::dbConnect(duckdb(), path = ":memory:") diff --git a/man/duckdb_read_csv.Rd b/man/duckdb_read_csv.Rd index 9014b924a..8c261cb3d 100644 --- a/man/duckdb_read_csv.Rd +++ b/man/duckdb_read_csv.Rd @@ -55,6 +55,7 @@ Directly reads a CSV file into DuckDB, tries to detect and create the correct sc This usually is much faster than reading the data into R and writing it to DuckDB. } \examples{ +\dontshow{if (FALSE) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} con <- dbConnect(duckdb()) data <- data.frame(a = 1:3, b = letters[1:3]) @@ -66,4 +67,5 @@ duckdb_read_csv(con, "data", path) dbReadTable(con, "data") dbDisconnect(con) +\dontshow{\}) # examplesIf} } diff --git a/tests/testthat/test-DBItest.R b/tests/testthat/test-DBItest.R index 236bbe2cd..32161785e 100644 --- a/tests/testthat/test-DBItest.R +++ b/tests/testthat/test-DBItest.R @@ -1,6 +1,17 @@ skip_on_cran() if (rlang::is_installed("DBItest")) DBItest::test_all(c( + # RE2 + "list_tables", + "list_tables_quote", + "list_fields_object", + "list_objects", + "list_objects_quote", + "list_objects_features", + "remove_table_list", + "remove_table_other_con", + "exists_table_list", + "package_name", # wontfix "package_dependencies", # wontfix "reexport", # wontfix diff --git a/tests/testthat/test-multi_statement.R b/tests/testthat/test-multi_statement.R index 2f9f6a186..e43e988dd 100644 --- a/tests/testthat/test-multi_statement.R +++ b/tests/testthat/test-multi_statement.R @@ -38,6 +38,7 @@ test_that("statements can be splitted apart correctly", { }) test_that("export/import database works", { + skip("RE2") export_location <- file.path(tempdir(), "duckdb_test_export") if (!file.exists(export_location)) dir.create(export_location) diff --git a/tests/testthat/test-read.R b/tests/testthat/test-read.R index ad9fb0ee8..41fe9ca2c 100644 --- a/tests/testthat/test-read.R +++ b/tests/testthat/test-read.R @@ -1,4 +1,6 @@ test_that("duckdb_read_csv() works as expected", { + skip("RE2") + con <- dbConnect(duckdb()) tf <- tempfile() diff --git a/tests/testthat/test-rel_api.R b/tests/testthat/test-rel_api.R index cb40b9282..073e4e62d 100644 --- a/tests/testthat/test-rel_api.R +++ b/tests/testthat/test-rel_api.R @@ -8214,6 +8214,8 @@ test_that("relational mutate(c = 10, d = log10(c)) order-preserving", { }) test_that("relational mutate(c = NA_character_, d = grepl('.', c)) order-preserving", { + skip("RE2") + # Autogenerated con <- dbConnect(duckdb()) experimental <- FALSE @@ -11254,6 +11256,8 @@ test_that("relational mutate(c = 10, d = log10(c)) order-enforcing", { }) test_that("relational mutate(c = NA_character_, d = grepl('.', c)) order-enforcing", { + skip("RE2") + # Autogenerated con <- dbConnect(duckdb()) experimental <- FALSE diff --git a/tests/testthat/test-viewer.R b/tests/testthat/test-viewer.R index 845393719..2c6876a4f 100644 --- a/tests/testthat/test-viewer.R +++ b/tests/testthat/test-viewer.R @@ -1,4 +1,6 @@ test_that("rs_list_object_types", { + skip("RE2") + con <- dbConnect(duckdb()) on.exit(dbDisconnect(con, shutdown = TRUE)) @@ -12,6 +14,8 @@ test_that("rs_list_object_types", { }) test_that("rs_list_objects", { + skip("RE2") + con <- dbConnect(duckdb()) on.exit(dbDisconnect(con, shutdown = TRUE)) @@ -30,6 +34,8 @@ test_that("rs_list_objects", { }) test_that("rs_list_columns", { + skip("RE2") + con <- dbConnect(duckdb()) on.exit(dbDisconnect(con, shutdown = TRUE))