library(testthat) library(tabr) test_check("tabr") cleanup <- list.files(tempdir(), "^(file|foo|lilypond|temp|tmp)", full.names = TRUE) unlink(cleanup, recursive = TRUE, force = TRUE) cleanup <- list.files(, "^(file|foo|lilypond|temp|tmp)", full.names = TRUE) unlink(cleanup, recursive = TRUE, force = TRUE)