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 April 9, 2024, 2:14 p.m.