TabularManifest: Tabular Manifest

rm(list=ls(all=TRUE))
require(devtools)
options(device = "windows") #https://support.rstudio.org/help/discussions/problems/80-error-in-function-only-one-rstudio-graphics-device-is-permitted

spelling::spell_check_package()
# spelling::update_wordlist()
lintr::lint_package()
# lintr::lint("R/redcap-metadata-coltypes.R")
urlchecker::url_check(); urlchecker::url_update()

devtools::document()
devtools::check_man() # Should return NULL
devtools::clean_vignettes()
devtools::build_vignettes()

checks_to_exclude <- c(
  "covr",
  "cyclocomp",
  "lintr_line_length_linter"
)
gp <-
  goodpractice::all_checks() |>
  purrr::discard(~(. %in% checks_to_exclude)) |>
  {
    \(checks)
    goodpractice::gp(checks = checks)
  }()
goodpractice::results(gp)
gp
# If necessary: tinytex::tlmgr_install("makeindex")

devtools::document()
pkgdown::clean_site()
# pkgdown::build_articles() # preview the vignettes
pkgdown::build_site(run_dont_run = TRUE)
# system("R CMD Rd2pdf --no-preview --force --output=./documentation-peek.pdf .")

devtools::run_examples(); # dev.off() # This overwrites the NAMESPACE file too
test_results_checked <- devtools::test()

# devtools::check(force_suggests = FALSE)
devtools::check(cran = TRUE)
devtools::check( # Equivalent of R-hub
  manual    = TRUE,
  remote    = TRUE,
  incoming  = TRUE
)
devtools::check_rhub(email = "wibeasley@hotmail.com")
# devtools::check_win_devel() # CRAN submission policies encourage the development version
# revdepcheck::revdep_check(num_workers = 4)
# usethis::use_release_issue()
# devtools::release(check=FALSE) # Careful, the last question ultimately uploads it to CRAN, where you can't delete/reverse your decision.