tests/testthat/test-scalar.R

In poissonconsulting/checkr: Check the Properties of Common R Objects

test_that("scalar", {
  rlang::scoped_options(lifecycle_verbosity = "quiet")
  expect_error(check_scalar(2, named  = TRUE), "2 must be named")
  x <- 1
  names(x) <- "y"
  expect_identical(check_scalar(x, named = TRUE), x)
  
  expect_error(check_scalar(c(1,2)), "c[(]1, 2[)] must have 1 element")
  
  x <- 2L
  expect_identical(check_scalar(x, 1L), x)
  expect_error(check_scalar(x, 1L, only = TRUE), "x can only include values 1")
})