tests/testthat/setup.R

withr::defer({
    test_files <- list.files(pattern = "\\.(html|tex|pdf|docx|pptx|rtf)$")
    if (length(test_files) > 0) {
        unlink(test_files)
    }
}, teardown_env())

Try the summata package in your browser

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

summata documentation built on May 7, 2026, 5:07 p.m.