Crude caching of in-out

Author: krlmlr

R/transform-files.R

@@ -99,6 +99,10 @@ make_transformer <- function(transformers,
           base_indention = base_indention
         )
       )
+
+      if (!is.null(attr(use_cache, "text"))) {
+        text <- attr(use_cache, "text")
+      }
     } else {
       use_cache <- FALSE
     }
@@ -117,10 +121,9 @@ make_transformer <- function(transformers,
           ~.
         )
       if (should_use_cache) {
-        cache_write(
-          transformed_code, transformers,
-          cache_more_specs(include_roxygen_examples, base_indention)
-        )
+        specs <- cache_more_specs(include_roxygen_examples, base_indention)
+        cache_write(transformed_code, transformers, specs)
+        cache_write(text, transformers, specs, transformed_code)
       }
       transformed_code
     } else {

R/utils-cache.R

@@ -25,11 +25,21 @@ is_cached <- function(text,
                       transformers,
                       more_specs,
                       cache_dir = cache_dir_default()) {
-  R.cache::generateCache(
+  cache_path <- R.cache::generateCache(
     key = cache_make_key(text, transformers, more_specs),
     dirs = cache_dir
-  ) %>%
-    file.exists()
+  )
+
+  if (!file.exists(cache_path)) {
+    return(FALSE)
+  }
+
+  text <- readLines(cache_path)
+  if (length(text) > 0) {
+    structure(TRUE, text = text)
+  } else {
+    TRUE
+  }
 }
 
 
@@ -164,12 +174,17 @@ cache_by_expression <- function(text,
 #'
 #' @inheritParams cache_make_key
 #' @keywords internal
-cache_write <- function(text, transformers, more_specs) {
-  R.cache::generateCache(
+cache_write <- function(text, transformers, more_specs, text_out = NULL) {
+  cache_path <- R.cache::generateCache(
     key = cache_make_key(text, transformers, more_specs),
     dirs = cache_dir_default()
-  ) %>%
-    file.create()
+  )
+
+  if (is.null(text_out)) {
+    file.create(cache_path)
+  } else {
+    writeLines(text_out, cache_path)
+  }
 }
 
 styler_version <- unlist(unname(read.dcf("DESCRIPTION")[, "Version"]))