tests/testthat/helper-unknown-rows.R

In Robertus100/tibble: Simple Data Frames

as_unknown_rows <- function(x) {
  x <- as_tibble(x)
  class(x) <- c("unknown_rows", class(x))
  x
}

dim.unknown_rows <- function(x) {
  c(NA_integer_, length(x))
}

registerS3method("dim", "unknown_rows", dim.unknown_rows)

head.unknown_rows <- function(x, n) {
  head(as.data.frame(x), n)
}

registerS3method("head", "unknown_rows", head.unknown_rows)

tbl_sum.unknown_rows <- function(x) NULL

registerS3method("tbl_sum", "unknown_rows", tbl_sum.unknown_rows)