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")
})
arminstroebel/atable documentation built on Dec. 19, 2020, 7:28 a.m.