tests/testthat/test-utils_logic.R

In pmrm: Progression Models for Repeated Measures

test_that("if_any()", {
  expect_equal("first", if_any(TRUE, "first", "second"))
  expect_equal("first", if_any(c(FALSE, TRUE), "first", "second"))
  expect_equal("second", if_any(FALSE, "first", "second"))
  expect_equal("second", if_any(c(FALSE, FALSE), "first", "second"))
})