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)

Try the covr package in your browser

Any scripts or data that you put into this service are public.

covr documentation built on Nov. 9, 2023, 9:07 a.m.