tests/testthat/TestFunctional/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)
jimhester/covr documentation built on April 8, 2024, 1:48 p.m.