prioritized.grouping/publish_cran.R

36 lines
790 B
R

# Checks for publishing
# Rhub v2
# rhub::rhub_setup()
# rhub::rhub_doctor()
rhub::rhub_check(platforms = c(
"linux",
"macos",
"macos-arm64",
"windows"))
# rhub::rhub_setup(overwrite = TRUE)
# rhub::rhub_platforms()
# SPELLING - dont use usethis::use_spell_check() - tests create notes on CRAN - not good
devtools::spell_check()
spelling::update_wordlist()
# Release on CRAN - confirm e-mail
devtools::release()
# Use the following to publish latest release to GitHub
usethis::use_github_release()
## Testing
##
# ds <- data.frame(id=paste0("id",1:100),matrix(replicate(100,sample(c(1:5,rep(NA,15)),10)),ncol=10,byrow = TRUE))
#
# ls <- ds|> prioritized_grouping(seed = 7)
#
# ls$export |> tibble::as.tibble() |> dplyr::right_join(ds,by = c("ID"="id")) |> View()