tests/testthat/helper-functions.R

In tibblify: Rectangle Nested Lists

new_difftime <- function(units) {
  structure(numeric(), class = "difftime", units = units)
}

new_rational <- function(n = integer(), d = integer()) {
  n <- vec_cast(n, integer())
  d <- vec_cast(d, integer())

  size <- vec_size_common(n, d)
  n <- vec_recycle(n, size)
  d <- vec_recycle(d, size)

  new_rcrd(list(n = n, d = d), class = "vctrs_rational")
}

read_sample_json <- function(x) {
  path <- system.file("jsonexamples", x, package = "tibblify")
  jsonlite::fromJSON(path, simplifyDataFrame = FALSE)
}

tib <- function(x, col) {
  tibblify(
    list(x),
    tspec_df(x = col)
  )
}

tib_cm <- function(..., x, y = NULL) {
  if (is_null(y)) {
    object_list <- list(x = x)
  } else {
    object_list <- list(x = x, y = y)
  }
  tibblify(
    object_list,
    tspec_df(.input_form = "colmajor", ...)
  )
}