inst/tinytest/test_is_of_length_zero.R

if (interactive()) {
  pkgload::load_all()
  library("tinytest")
}


x <- grep(" ", "")
expect_true(is_of_length_zero(x))
expect_true(!is_of_length_zero(x, "character"))
expect_true(is_of_length_zero(x, "numeric"))
expect_true(is_of_length_zero(x, "integer"))

Try the fritools2 package in your browser

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

fritools2 documentation built on July 9, 2023, 7:07 p.m.