tests/test_isTRUE.R

source("helper/helper.R")

f = backports:::isTRUE
expect_identical(f(TRUE), TRUE)
expect_identical(f(FALSE), FALSE)
expect_identical(f(1), FALSE)
expect_identical(f(iris), FALSE)
expect_identical(f(structure(TRUE, foo = "bar")), TRUE)

Try the backports package in your browser

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

backports documentation built on June 24, 2024, 5:24 p.m.