be consistent: all cache functions start with cache_

Author: lorenzwalthert

R/transform-files.R

@@ -76,7 +76,7 @@ make_transformer <- function(transformers,
                              include_roxygen_examples,
                              warn_empty = TRUE) {
   force(transformers)
-  cache_dir <- c("styler", get_cache_name())
+  cache_dir <- c("styler", cache_get_name())
   assert_R.cache_installation()
   function(text) {
     is_cached <- !is.null(

R/ui.R

@@ -312,6 +312,8 @@ cache_activate <- function(cache_name = NULL) {
   options("styler.use_cache" = TRUE)
   if (!is.null(cache_name)) {
     options("styler.cache_name" = cache_name)
+  } else {
+    options("styler.cache_name" = cache_derive_name())
   }
   cat("Using cache at ", cache_find_path(cache_name), ".", sep = "")
 }

R/utils-cache.R

@@ -15,11 +15,15 @@ hash_standardize <- function(x) {
 #' @keywords internal
 cache_find_path <- function(cache_name = NULL) {
   if (is.null(cache_name)) {
-    cache_name <- get_cache_name()
+    cache_name <- cache_get_name()
   }
   R.cache::getCachePath(c("styler", cache_name))
 }
 
-get_cache_name <- function() {
+cache_derive_name <- function() {
+  utils::packageDescription("styler", fields = "Version")
+}
+
+cache_get_name <- function() {
   getOption("styler.cache_name")
 }

R/zzz.R

@@ -4,7 +4,7 @@
   op.styler <- list(
     styler.colored_print.vertical = TRUE,
     styler.use_cache = TRUE,
-    styler.cache_name = utils::packageDescription("styler", fields = "Version"),
+    styler.cache_name = cache_derive_name(),
     styler.addins_style_transformer = "styler::tidyverse_style()"
   )
   toset <- !(names(op.styler) %in% names(op))