tests/testthat/cleanup.R

if(grepl("/tests/testthat", getwd())){
  files <- dir()
  if("cleanup.R" %in% files){
    toremove <- files[!grepl("*.R$",files)]
    unlink(toremove, recursive = TRUE)
  }
}
wolski/prolfqua documentation built on May 12, 2024, 10:16 p.m.