tests/testthat/test-ald_demo.R

test_that("throws the expected warning", {
  on_r_cmd <- !identical(Sys.getenv("R_CMD"), "")
  skip_if(on_r_cmd)
  expect_warning(ald_demo, "superseded")
})

test_that("is identical to abcd_demo", {
  expect_equal(suppressWarnings(ald_demo), abcd_demo)
})

Try the r2dii.data package in your browser

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

r2dii.data documentation built on Nov. 14, 2023, 1:09 a.m.