tests/testthat/test_utils.R

context("Options")
test_that("options can be set",{
  set_trim_verbose(TRUE)
  expect_true(getOption("trim_verbose"))
  set_trim_verbose(FALSE)
  expect_false(getOption("trim_verbose"))

})

Try the rtrim package in your browser

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

rtrim documentation built on April 21, 2020, 5:06 p.m.