Merge branch 'development' of github.com:PredictiveEcology/reproducib…

…le into development

R/cache.R

@@ -503,18 +503,20 @@ setMethod(
       # don't digest the dotPipe elements as they are already
       # extracted individually into modifiedDots list elements
       dotPipe <- startsWith(names(modifiedDots), "._")
-
       preDigestByClass <- lapply(seq_along(modifiedDots[!dotPipe]), function(x) {
         .preDigestByClass(modifiedDots[!dotPipe][[x]])
       })
 
       if (verbose) {
         startHashTime <- Sys.time()
       }
-      # if (!is.null(list(...)$sim))
-      #   browser(expr = current(list(...)$sim)$moduleName == "LBMR")
 
-      preDigest <- lapply(modifiedDots[!dotPipe], function(x) {
+      # remove some of the arguments passed to Cache, which are irrelevant for digest
+      argsToOmitForDigest <- dotPipe |
+        (names(modifiedDots) %in%
+           c("debug", "notOlderThan", "debugCache", "verbose", "useCache", "showSimilar"))
+
+      preDigest <- lapply(modifiedDots[!argsToOmitForDigest], function(x) {
         # remove the "newCache" attribute, which is irrelevant for digest
         if (!is.null(attr(x, ".Cache")$newCache)) attr(x, ".Cache")$newCache <- NULL
         .robustDigest(x, objects = objects,