inst/templates/runit.R

if (interactive()) pkgload::load_all(".")
test_FUNCTION <- function() {
    result <- FUNCTION(FIXME)
    expectation <- FIXME
    RUnit::checkIdentical(result, expectation)
}
if (interactive()) {
    test_FUNCTION()
}

Try the fritools2 package in your browser

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

fritools2 documentation built on July 9, 2023, 7:07 p.m.