tests/testthat/teardown-install_asreml.R

In biometryhub/BiometryTools: A Suite of Functions for Conducting Post Analysis Tasks with ASReml-R V4 Models tasks with ASReml-R V4 models

# Delete file if it exists
if(length(list.files(pattern = "asreml+(([a-zA-Z0-9_.\\-])*)+(.zip|.tar.gz|.tgz)", recursive = T))>0) {
    file.remove(list.files(pattern = "asreml+(([a-zA-Z0-9_.\\-])*)+(.zip|.tar.gz|.tgz)", recursive = T))
}

# if(length(list.files(path = "data", pattern = "asreml+(([a-zA-Z0-9_.\\-])*)+(.zip|.tar.gz|.tgz)"))>0) {
#     for(i in 1:length(list.files(path = "data", pattern = "asreml+(([a-zA-Z0-9_.\\-])*)+(.zip|.tar.gz|.tgz)"))) {
#         file.remove(list.files(path = "data", pattern = "asreml+(([a-zA-Z0-9_.\\-])*)+(.zip|.tar.gz|.tgz)", )[i])
#     }
# }

if(dir.exists("data")) {
    unlink("data", recursive = T)
}