tests/testthat/helper-roundtrip.R

roundtrip_vector <- function(x) {
  df <- tibble::tibble(x = x)
  roundtrip(df)$x
}

roundtrip <- function(df) {
  temp <- tempfile()
  write_feather(df, temp)
  on.exit(unlink(temp))

  read_feather(temp)
}

Try the feather package in your browser

Any scripts or data that you put into this service are public.

feather documentation built on Sept. 15, 2019, 1:02 a.m.