tests/testthat/helper-crate.R

expect_data <- function(crate, ...) {
  nms <- env_names(fn_env(crate))
  expect_true(all(nms %in% c(...)))
}

Try the carrier package in your browser

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

carrier documentation built on April 28, 2023, 5:09 p.m.