tests/testthat/TestNestedTestDirs/R/a.R

foo <- function(x) {
  force(x)
  function() {
    if (x < 1)
    {
      return(TRUE)
    } else {
      return(FALSE)
    }
  }
}

#' @export
a <- foo(0)

#' @export
b <- foo(1)
r-lib/covr documentation built on Aug. 17, 2024, 6:21 p.m.