expose cache root arg

Author: lorenzwalthert

.github/workflows/hook-dependencies-upate.yml

@@ -76,3 +76,26 @@ jobs:
             This PR updates the hook dependencies in `renv.lock`, auto-generated by [create-pull-request][1]. Close and re-open this to trigger `on: pull_request` events to circumvent [limitation of GitHub actions](https://github.com/peter-evans/create-pull-request/blob/master/docs/concepts-guidelines.md#push-pull-request-branches-to-a-fork).
 
             [1]: https://github.com/peter-evans/create-pull-request
+            
+            
+
+# # also see corresponding files to update
+# hook_deps <- function(root) {
+#   out <- renv::dependencies("inst/hooks/exported/")$Package
+#   desc <- desc::desc()
+#   deps <- desc$get_deps()
+#   dont <- c(
+#     "yaml", "usethis", "withr", "rstudioapi", "precommit",
+#     "httr" # lintr -> httr  -> curl -> libcurl, but seems to give no erorr on
+#     # loading lintr, plus https://github.com/jimhester/lintr/issues/861
+#   )
+#   out <- c(out, "roxygen2", "spelling", "styler", "pkgload", "lintr", "knitr", "git2r", "digest", "desc")
+#   out <- setdiff(c(unique(c(out, deps[deps$type == "Imports", ]$package))), dont)
+#   out <- names(renv:::renv_package_dependencies(out))
+#   return(out)
+# }
+# 
+# options(renv.snapshot.filter = hook_deps)
+# 
+# renv::snapshot(type = "custom", prompt = FALSE)
+# # or renv::snapshot(packages = hook_deps(), prompt = FALSE)

.pre-commit-config.yaml

@@ -8,7 +8,7 @@ repos:
     rev: v0.1.3.9133
     hooks: 
     -   id: style-files
-        args: [--style_pkg=styler, --style_fun=tidyverse_style]
+        args: [--style_pkg=styler, --style_fun=tidyverse_style, --cache_root=styler-perm]
         exclude: > 
           (?x)^(
           tests/testthat/in/.*\.R|

inst/hooks/exported/style-files.R

@@ -1,12 +1,13 @@
 #!/usr/bin/env Rscript
 'style files.
 Usage:
-  style_files [--style_pkg=<style_guide_pkg>] [--style_fun=<style_guide_fun>] [--no-warn-cache] <files>...
+  style_files [--style_pkg=<style_guide_pkg>] [--style_fun=<style_guide_fun>] [--cache-root=<cache_root_>] [--no-warn-cache] <files>...
 
 Options:
   --style_pkg=<style_guide_pkg>  Package where the style guide is stored [default: "styler"].
   --style_fun=<style_guide_fun>  The styling function in style_pkg [default: "tidyverse_style"].
   --no-warn-cache  Suppress the warning about a missing permanent cache.
+  --cache-root=<cache_root_> Passed to `options("styler.cache_root")` [default: "styler"].
 ' -> doc
 
 if (packageVersion("precommit") < "0.1.3.9010") {
@@ -25,7 +26,7 @@ args <- commandArgs(trailingOnly = TRUE)
 non_file_args <- args[!grepl("^[^-][^-]", args)]
 keys <- setdiff(
   gsub("(^--[0-9A-Za-z_]+).*", "\\1", non_file_args),
-  c("--style_pkg", "--style_fun", "--no-warn-cache", "cache")
+  c("--style_pkg", "--style_fun", "--no-warn-cache", "--cache-root")
 )
 if (length(keys) > 0) {
   bare_keys <- gsub("^--", "", keys)
@@ -45,6 +46,8 @@ if (packageVersion("styler") < "1.3.2") {
 } else {
   precommit::may_require_permanent_cache(arguments$no_warn_cache)
 }
+options('styler.cache_root' = arguments$cache_root)
+print(c('cache root set to ', arguments$cache_root))
 
 style <- eval(parse(text = paste(arguments$style_pkg, "::", arguments$style_fun)))
 tryCatch(