P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-10 16:22:10 +02:00
Code Releases Activity

(v2.1.1.9206) update precommit hook

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-03-15 16:17:27 +01:00
parent ede1cdfd99
commit 7631e82ae6
4 changed files with 21 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
data-raw/_pre_commit_checks.R
View File

@ -626,25 +626,28 @@ suppressMessages(reset_AMR_locale())
devtools::load_all(quiet = TRUE)
suppressMessages(set_AMR_locale("English"))
# Update URLs -------------------------------------------------------------
usethis::ui_info("Checking URLs for redirects")
invisible(urlchecker::url_update("."))
# Style pkg ---------------------------------------------------------------
usethis::ui_info("Styling package")
styler::style_pkg(include_roxygen_examples = FALSE,
exclude_dirs = list.dirs(full.names = FALSE, recursive = FALSE)[!list.dirs(full.names = FALSE, recursive = FALSE) %in% c("R", "tests")])
# Document pkg ------------------------------------------------------------
files_changed <- function(paths = c("R/", "data/")) {
files_changed <- function(paths = "^(R|data)/") {
tryCatch({
changed_files <- system("git diff --name-only", intern = TRUE)
any(changed_files %like% "^(R|data)/")
any(changed_files %like% paths)
}, error = function(e) TRUE)
}
if (interactive()) {
message("Skipping document in interactive mode")
} else if (files_changed()) {
# Update URLs -------------------------------------------------------------
if (files_changed()) {
usethis::ui_info("Checking URLs for redirects")
invisible(urlchecker::url_update("."))
}
# Style pkg ---------------------------------------------------------------
if (files_changed(paths = "^(R|tests)/")) {
sethis::ui_info("Styling package")
styler::style_pkg(include_roxygen_examples = FALSE,
exclude_dirs = list.dirs(full.names = FALSE, recursive = FALSE)[!list.dirs(full.names = FALSE, recursive = FALSE) %in% c("R", "tests")])
}
# Document pkg ------------------------------------------------------------
if (files_changed()) {
usethis::ui_info("Documenting package")
suppressMessages(devtools::document(quiet = TRUE))
}