tests/testthat/test-check_logical.R

In ComunidadBioInfo/easyweb: A fast and easy way to build your own website

context("test-check_logical")

test_that("Value is logical", {

    expect_error(check_logical(c(TRUE,FALSE)))

    expect_error(check_logical(1))
    expect_error(check_logical(1.4))
    expect_error(check_logical("a"))

    expect_error(check_logical(NA))
    expect_error(check_logical(NULL))

})