tests/testthat/test_atable_Options_reset.R

context("atable_options_reset")
library(atable)




atable_options()
atable_options("replace_NA_by")
atable_options("replace_NA_by" = "asdf")


atable_options_reset()


test_that("option replacement is available", {
  expect_equal(atable_options("replace_NA_by"), "missing")
})

Try the atable package in your browser

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

atable documentation built on Sept. 11, 2024, 7:05 p.m.