R/collect.R

In duckdblabs/duckplyr: A 'DuckDB'-Backed Version of 'dplyr'

# Generated by 02-duckplyr_df-methods.R
#' @rdname collect.duckplyr_df
#' @export
collect.duckplyr_df <- function(x, ...) {
  # Side effect: ALTREP materialization is triggered
  nrow(x)
  class(x) <- setdiff(class(x), "duckplyr_df")
  x
}

duckplyr_collect <- function(x, ...) {
  try_fetch(
    x <- as_duckplyr_df_impl(x),
    error = function(e) {
      testthat::skip(conditionMessage(e))
    }
  )
  out <- collect(x, ...)
  class(out) <- setdiff(class(out), "duckplyr_df")
  out
}