Check that my package dont write in the user's home filespace, package directory and getwd().

[statnmap]

Critères de validation

• [x] Création d'une nouvelle fonction pour vérifier que le package n'ajoute pas de fichier supplémentaire dans le home ou le working directory

• [x] La fonction peut s'appliquer directement sans paramètre sur le package en cours

• [x] Cette fonction est testée

• [x] Les différents checks sont effectués:

  • [x] devtools::check est en 0,0,0

  • [x] checkhelper::find_missing_tags avec aucun tag manquant

  • [x] checkhelper::check_as_cran est en 0,0,0

• [x] La fonction doit passer le CI pour Windows

• [x] La fonction doit passer le CI pour Macos

Comment technique

• [ ] checkhelper::check_clean_userspace(pkg = ".") par défaut

To be continued...

local <- utils::fileSnapshot (".", timestamp = tempfile("timestamp"), md5sum = TRUE)
home <- utils::fileSnapshot ("~", timestamp = tempfile("timestamp"), md5sum = TRUE)

# run tests or whatever, then ...
# x <- autotest::autotest_package(test = TRUE)
devtools::test()
devtools::run_examples()
# vignettes
dircheck <- tempfile("check")
dir.create(dircheck)
rcmdcheck::rcmdcheck(check_dir = dircheck)
# browseURL(dircheck)

the_dir <- list.files(file.path(dircheck), pattern = ".Rcheck", full.names = TRUE)
# Same tests, no new files
all(list.files(file.path(the_dir, "tests", "testthat")) %in%
list.files(file.path(".", "tests", "testthat")))

devtools::build_vignettes()
devtools::clean_vignettes()

utils::changedFiles(local, md5sum = TRUE)
utils::changedFiles(home, md5sum = TRUE)

[statnmap]

je valide