Calculate test coverage for a specific function.
function_coverage(fun, code = NULL, env = NULL, enc = parent.frame())
name of the function.
expressions to run.
environment the function is defined in.
the enclosing environment which to run the expressions.
add <- function(x, y) { x + y }
function_coverage(fun = add, code = NULL) # 0% coverage
#> Coverage: 0.00%
#> <text>: 0.00%
function_coverage(fun = add, code = add(1, 2) == 3) # 100% coverage
#> Coverage: 100.00%
#> <text>: 100.00%