scripts/goodpractice.R

In mrc-ide/threemc: (Matt's) Multi-Level Model of Male Circumcision in Sub-Saharan Africa

## check package with goodpractise ##

# fail if not running for threemc
stopifnot(readLines("DESCRIPTION")[[1]] == "Package: threemc")

# assume you don't want to build vignettes; very slow!
if (!exists("check_vignettes") || !rlang::is_bool(check_vignettes)) {
  check_vignettes <- FALSE
}

# run devtools::check() instead of rcmdcheck()
checks <- goodpractice::all_checks()[
  !grepl("rcmdcheck", goodpractice::all_checks())
]
goodpractice::goodpractice(
  checks = checks,
  extra_checks = devtools::check(
    vignettes = check_vignettes, # set to TRUE if changing vignettes
    build_args = "--resave-data" # build with compressed datasets
  ),
  quiet = FALSE
)