From 8d0d405a41e7abfa459ff46bfe9ff17b428db3f5 Mon Sep 17 00:00:00 2001
From: Holger Brandl <brandl@mpi-cbg.de>
Date: Tue, 21 Apr 2015 10:21:56 +0200
Subject: [PATCH] fixed cache_it to always include hash in file names

---
 R/core_commons.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/core_commons.R b/R/core_commons.R
index 78568fb..e52d649 100644
--- a/R/core_commons.R
+++ b/R/core_commons.R
@@ -169,8 +169,8 @@ replaceNA <- function(x, withValue) { x[is.na(x)] <- withValue; x }
 
 ## related: http://cran.r-project.org/web/packages/R.cache/R.cache.pdf
 
-cache_it <- function(expr, cacheName=paste0("cache_", substr(digest::digest(expr), 1,6))){
-    cacheFile <- paste0(".", cacheName, ".RData")
+cache_it <- function(expr, filePrefix="cache"){
+    cacheFile <- paste0(filePrefix, "_", substr(digest::digest(expr), 1,6)) %>% paste0(".", ., ".RData")
 
     if(file.exists(cacheFile)){
         local(get(load(cacheFile)))
-- 
GitLab