tests/testthat/test_misc_unicode.R

library(testthat)

context("useUnicode")

test_that("useUnicode", {
  expect_error(useUnicode("a"), "Assertion on")
  expect_silent(useUnicode(TRUE))
  expect_true(useUnicode())
  expect_silent(useUnicode(FALSE))
  expect_false(useUnicode())
})

Try the set6 package in your browser

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

set6 documentation built on Oct. 18, 2021, 5:06 p.m.