feat: Point to the native CSV reader if encountering data frames read with readr

DESCRIPTION

@@ -49,6 +49,7 @@ Suggests:
     palmerpenguins,
     prettycode,
     purrr,
+    readr,
     rmarkdown,
     testthat (>= 3.1.5),
     usethis,

NAMESPACE

@@ -14,6 +14,7 @@ S3method(as_duckdb_tibble,default)
 S3method(as_duckdb_tibble,duckplyr_df)
 S3method(as_duckdb_tibble,grouped_df)
 S3method(as_duckdb_tibble,rowwise_df)
+S3method(as_duckdb_tibble,spec_tbl_df)
 S3method(as_duckdb_tibble,tbl_duckdb_connection)
 S3method(as_tibble,duckplyr_df)
 S3method(auto_copy,duckplyr_df)

R/ducktbl.R

@@ -164,6 +164,17 @@ as_duckdb_tibble.rowwise_df <- function(x, ...) {
   ))
 }
 
+#' @export
+as_duckdb_tibble.spec_tbl_df <- function(x, ...) {
+  check_dots_empty()
+
+  cli::cli_abort(c(
+    "The input is data read by {.pkg readr}, and {.pkg duckplyr} supports reading CSV files directly.",
+    i = "Use {.code read_csv_duckdb()} to use the built-in reader.",
+    i = "To proceed with the data as read by {.pkg readr}, use {.code as_tibble()} before {.code as_duckdb_tibble()}."
+  ))
+}
+
 #' is_duckdb_tibble
 #'
 #' `is_duckdb_tibble()` returns `TRUE` if `x` is a duckplyr data frame.

tests/testthat/_snaps/ducktbl.md

@@ -17,3 +17,13 @@
       ! duckplyr does not support `rowwise()`.
       i To proceed with dplyr, use `as_tibble()` or `as.data.frame()`.
 
+# as_duckdb_tibble() and readr data
+
+    Code
+      as_duckdb_tibble(readr::read_csv(path, show_col_types = FALSE))
+    Condition
+      Error in `as_duckdb_tibble()`:
+      ! The input is data read by readr, and duckplyr supports reading CSV files directly.
+      i Use `read_csv_duckdb()` to use the built-in reader.
+      i To proceed with the data as read by readr, use `as_tibble()` before `as_duckdb_tibble()`.
+

tests/testthat/test-ducktbl.R

@@ -29,6 +29,22 @@ test_that("as_duckdb_tibble() and rowwise df", {
   })
 })
 
+test_that("as_duckdb_tibble() and readr data", {
+  skip_if_not_installed("readr")
+
+  path <- withr::local_tempfile(fileext = ".csv")
+  readr::write_csv(data.frame(a = 1), path)
+
+  expect_snapshot(error = TRUE, {
+    as_duckdb_tibble(readr::read_csv(path, show_col_types = FALSE))
+  })
+
+  expect_equal(
+    as_duckdb_tibble(as_tibble(readr::read_csv(path, show_col_types = FALSE))),
+    duckdb_tibble(a = 1)
+  )
+})
+
 test_that("as_duckdb_tibble() and dbplyr tables", {
   skip_if_not_installed("dbplyr")
   con <- withr::local_db_connection(DBI::dbConnect(duckdb::duckdb()))