tests/testthat/test_checkScalar.R

context("checkScalar")

test_that("checkScalar", {
  myobj = "a"
  expect_succ_all(Scalar, myobj)
  myobj = 1:2
  expect_fail_all(Scalar, myobj)

  expect_true(testScalar(TRUE))
  expect_true(testScalar(1L))
  expect_true(testScalar(1))
  expect_true(testScalar(1+1i))
  expect_false(testScalar(list(1)))
  expect_false(testScalar(NA, na.ok = FALSE))
  expect_true(testScalar(NA, na.ok = TRUE))

  expect_error(assertScalar(integer(0)), "length 1")
  expect_error(assertScalar(iris), "scalar")
})

Try the checkmate package in your browser

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

checkmate documentation built on Oct. 25, 2023, 5:06 p.m.