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 Sept. 7, 2024, 3:06 a.m.