tests/testthat/helper.R

# Provide helper overriding tibble::all.equal.tbl_df as it requires dplyr
# https://github.com/tidyverse/readr/pull/577
# Using this helper allows us to avoid Suggesting dplyr
all.equal.tbl_df <- function(target, current, ..., check.attributes = FALSE) {
  all.equal.list(target, current, ..., check.attributes = check.attributes)
}

is_bz2_file <- function(x) {

  # Magic number for bz2 is "BZh" in ASCII
  # https://en.wikipedia.org/wiki/Bzip2#File_format
  identical(charToRaw("BZh"), readBin(x, n = 3, what = "raw"))
}

encoded <- function(x, encoding) {
  Encoding(x) <- encoding
  x
}

skip_if_no_clipboard <- function() {
  if (!clipr::clipr_available()) {
    testthat::skip("System clipboard is not available - skipping test.")
  }
  return(invisible(TRUE))
}

skip_if_edition_second <- function() {
  skip_if_not(edition_first())
}

skip_if_edition_first <- function() {
  skip_if(edition_first())
}

edition_variant <- function() {
  paste0("edition-", edition_get())
}

skip_if_edition_first_windows <- function() {
  if (edition_first()) skip_on_os("windows")
}
hadley/readr documentation built on Feb. 3, 2024, 9:45 a.m.