As part of a reproducible workflow, caching of function calls, code chunks, and other elements of a project is a critical component. The objective of a reproducible workflow is is likely that an entire work flow from raw data to publication, decision support, report writing, presentation building etc., could be built and be reproducible anywhere, on any computer, operating system, with any starting conditions, on demand. The reproducible::Cache
function is built to work with any R function.
Cache
users DBI
as a backend, with key functions, dbReadTable
, dbRemoveTable
, dbSendQuery
, dbSendStatement
, dbCreateTable
and dbAppendTable
. These can all be accessed via Cache
, showCache
, clearCache
, and keepCache
. It is optimized for speed of transactions, using fastdigest::fastdigest
on R memory objects and digest::digest
on files. The main function is superficially similar to archivist::cache
, which uses digest::digest
in all cases to determine whether the arguments are identical in subsequent iterations. It also but does many things that make standard caching with digest::digest
don’t work reliably between systems. For these, the function .robustDigest
is introduced to make caching transferable between systems. This is relevant for file paths, environments, parallel clusters, functions (which are contained within an environment), and many others (e.g., see ?.robustDigest
for methods). Cache
also adds important elements like automated tagging and the option to retrieve disk-cached values via stashed objects in memory using memoise::memoise
. This means that running Cache
1, 2, and 3 times on the same function will get progressively faster. This can be extremely useful for web apps built with, say shiny
.
Any function can be cached using: Cache(FUN = functionName, ...)
.
This will be a slight change to a function call, such as: projectRaster(raster, crs = crs(newRaster))
to Cache(projectRaster, raster, crs = crs(newRaster))
.
This is particularly useful for expensive operations.
library(raster)
## Loading required package: sp
library(reproducible)
<- file.path(tempdir(), "reproducible_examples", "Cache")
tmpDir checkPath(tmpDir, create = TRUE)
## [1] "c:/Eliot/tmp/Rtmpsrodqw/reproducible_examples/Cache"
<- raster(extent(0, 1000, 0, 1000), vals = 1:1e6, res = 1)
ras crs(ras) <- "+proj=lcc +lat_1=48 +lat_2=33 +lon_0=-100 +datum=WGS84"
<- "+init=epsg:4326" # A longlat crs
newCRS
# No Cache
system.time(suppressWarnings(map1 <- projectRaster(ras, crs = newCRS))) # Warnings due to new PROJ
## user system elapsed
## 2.14 0.09 2.23
# Try with memoise for this example -- for many simple cases, memoising will not be faster
<- options("reproducible.useMemoise" = TRUE)
opts # With Cache -- a little slower the first time because saving to disk
system.time(suppressWarnings(map1 <- Cache(projectRaster, ras, crs = newCRS, cacheRepo = tmpDir,
notOlderThan = Sys.time())))
## user system elapsed
## 2.34 0.21 2.59
# vastly faster the second time
system.time(map2 <- Cache(projectRaster, ras, crs = newCRS, cacheRepo = tmpDir))
## ...(Object to retrieve (b7eb0785cc0c31b1.rds) is large: 6.5 Mb)
## loaded memoised result from previous projectRaster call,
## user system elapsed
## 0.22 0.04 0.26
# may be faster the third time because of memoise; but this example is too simple to show
system.time(map3 <- Cache(projectRaster, ras, crs = newCRS, cacheRepo = tmpDir))
## ...(Object to retrieve (b7eb0785cc0c31b1.rds) is large: 6.5 Mb)
## loaded memoised result from previous projectRaster call,
## user system elapsed
## 0.03 0.05 0.08
options(opts)
all.equal(map1, map2) # TRUE
## [1] TRUE
all.equal(map1, map3) # TRUE
## [1] TRUE
library(raster)
library(magrittr)
##
## Attaching package: 'magrittr'
## The following object is masked from 'package:raster':
##
## extract
try(clearCache(tmpDir, ask = FALSE), silent = TRUE) # just to make sure it is clear
<- Cache(rnorm, 10, 16, cacheRepo = tmpDir)
ranNumsA
# All same
<- Cache(rnorm, 10, 16, cacheRepo = tmpDir) # recovers cached copy ranNumsB
## ...(Object to retrieve (f11fb1a2880f8060.rds))
## loaded cached result from previous rnorm call,
<- Cache(quote(rnorm(n = 10, 16)), cacheRepo = tmpDir) # recovers cached copy ranNumsD
## ...(Object to retrieve (f11fb1a2880f8060.rds))
## loaded cached result from previous rnorm call,
# Any minor change makes it different
<- Cache(rnorm, 10, 6, cacheRepo = tmpDir) # different ranNumsE
<- Cache(rnorm, 4, cacheRepo = tmpDir, userTags = "objectName:a")
ranNumsA <- Cache(runif, 4, cacheRepo = tmpDir, userTags = "objectName:b")
ranNumsB
# access it again, from Cache
Sys.sleep(1)
<- Cache(rnorm, 4, cacheRepo = tmpDir, userTags = "objectName:a") ranNumsA
## ...(Object to retrieve (f7bee22047b8d0c1.rds))
## loaded cached result from previous rnorm call,
<- showCache(tmpDir) wholeCache
## Cache size:
## Total (including Rasters): 504 bytes
## Selected objects (not including Rasters): 504 bytes
# keep only items accessed "recently" (i.e., only objectName:a)
<- showCache(tmpDir, userTags = max(wholeCache[tagKey == "accessed"]$tagValue)) onlyRecentlyAccessed
## Cache size:
## Total (including Rasters): 252 bytes
## Selected objects (not including Rasters): 252 bytes
# inverse join with 2 data.tables ... using: a[!b]
# i.e., return all of wholeCache that was not recently accessed
# Note: the two different ways to access -- old way with "artifact" will be deprecated
<- unique(wholeCache[!onlyRecentlyAccessed, on = "cacheId"], by = "cacheId")$cacheId
toRemove clearCache(tmpDir, toRemove, ask = FALSE) # remove ones not recently accessed
## Cache size:
## Total (including Rasters): 252 bytes
## Selected objects (not including Rasters): 252 bytes
showCache(tmpDir) # still has more recently accessed
## Cache size:
## Total (including Rasters): 252 bytes
## Selected objects (not including Rasters): 252 bytes
## cacheId tagKey tagValue
## 1: f7bee22047b8d0c1 objectName a
## 2: f7bee22047b8d0c1 function rnorm
## 3: f7bee22047b8d0c1 class numeric
## 4: f7bee22047b8d0c1 object.size 1008
## 5: f7bee22047b8d0c1 accessed 2021-09-26 09:04:24
## 6: f7bee22047b8d0c1 inCloud FALSE
## 7: f7bee22047b8d0c1 resultHash
## 8: f7bee22047b8d0c1 elapsedTimeDigest 0.0009999275 secs
## 9: f7bee22047b8d0c1 elapsedTimeFirstRun 0 secs
## 10: f7bee22047b8d0c1 otherFunctions vweave_rmarkdown
## 11: f7bee22047b8d0c1 otherFunctions process_file
## 12: f7bee22047b8d0c1 otherFunctions process_group
## 13: f7bee22047b8d0c1 otherFunctions process_group.block
## 14: f7bee22047b8d0c1 otherFunctions call_block
## 15: f7bee22047b8d0c1 otherFunctions block_exec
## 16: f7bee22047b8d0c1 otherFunctions eng_r
## 17: f7bee22047b8d0c1 otherFunctions in_dir
## 18: f7bee22047b8d0c1 otherFunctions timing_fn
## 19: f7bee22047b8d0c1 otherFunctions handle
## 20: f7bee22047b8d0c1 preDigest n:7eef4eae85fd9229
## 21: f7bee22047b8d0c1 preDigest .FUN:4f604aa46882b368
## 22: f7bee22047b8d0c1 file.size 175
## 23: f7bee22047b8d0c1 accessed 2021-09-26 09:04:25
## 24: f7bee22047b8d0c1 elapsedTimeLoad 0.01743221 secs
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:24
## 2: 2021-09-26 09:04:24
## 3: 2021-09-26 09:04:24
## 4: 2021-09-26 09:04:24
## 5: 2021-09-26 09:04:24
## 6: 2021-09-26 09:04:24
## 7: 2021-09-26 09:04:24
## 8: 2021-09-26 09:04:24
## 9: 2021-09-26 09:04:24
## 10: 2021-09-26 09:04:24
## 11: 2021-09-26 09:04:24
## 12: 2021-09-26 09:04:24
## 13: 2021-09-26 09:04:24
## 14: 2021-09-26 09:04:24
## 15: 2021-09-26 09:04:24
## 16: 2021-09-26 09:04:24
## 17: 2021-09-26 09:04:24
## 18: 2021-09-26 09:04:24
## 19: 2021-09-26 09:04:24
## 20: 2021-09-26 09:04:24
## 21: 2021-09-26 09:04:24
## 22: 2021-09-26 09:04:24
## 23: 2021-09-26 09:04:25
## 24: 2021-09-26 09:04:25
## createdDate
<- Cache(rnorm, 4, cacheRepo = tmpDir, userTags = "objectName:a") ranNumsA
## ...(Object to retrieve (f7bee22047b8d0c1.rds))
## loaded cached result from previous rnorm call,
<- Cache(runif, 4, cacheRepo = tmpDir, userTags = "objectName:b")
ranNumsB
# keep only those cached items from the last 24 hours
<- 60 * 60 * 24
oneDay keepCache(tmpDir, after = Sys.time() - oneDay, ask = FALSE)
## Cache size:
## Total (including Rasters): 504 bytes
## Selected objects (not including Rasters): 504 bytes
## cacheId tagKey tagValue
## 1: f7bee22047b8d0c1 objectName a
## 2: f7bee22047b8d0c1 function rnorm
## 3: f7bee22047b8d0c1 class numeric
## 4: f7bee22047b8d0c1 object.size 1008
## 5: f7bee22047b8d0c1 accessed 2021-09-26 09:04:24
## 6: f7bee22047b8d0c1 inCloud FALSE
## 7: f7bee22047b8d0c1 resultHash
## 8: f7bee22047b8d0c1 elapsedTimeDigest 0.0009999275 secs
## 9: f7bee22047b8d0c1 elapsedTimeFirstRun 0 secs
## 10: f7bee22047b8d0c1 otherFunctions vweave_rmarkdown
## 11: f7bee22047b8d0c1 otherFunctions process_file
## 12: f7bee22047b8d0c1 otherFunctions process_group
## 13: f7bee22047b8d0c1 otherFunctions process_group.block
## 14: f7bee22047b8d0c1 otherFunctions call_block
## 15: f7bee22047b8d0c1 otherFunctions block_exec
## 16: f7bee22047b8d0c1 otherFunctions eng_r
## 17: f7bee22047b8d0c1 otherFunctions in_dir
## 18: f7bee22047b8d0c1 otherFunctions timing_fn
## 19: f7bee22047b8d0c1 otherFunctions handle
## 20: f7bee22047b8d0c1 preDigest n:7eef4eae85fd9229
## 21: f7bee22047b8d0c1 preDigest .FUN:4f604aa46882b368
## 22: f7bee22047b8d0c1 file.size 175
## 23: f7bee22047b8d0c1 accessed 2021-09-26 09:04:25
## 24: f7bee22047b8d0c1 elapsedTimeLoad 0.006003857 secs
## 25: f7bee22047b8d0c1 accessed 2021-09-26 09:04:26
## 26: 3aef38d1fc02aee5 objectName b
## 27: 3aef38d1fc02aee5 function runif
## 28: 3aef38d1fc02aee5 class numeric
## 29: 3aef38d1fc02aee5 object.size 1008
## 30: 3aef38d1fc02aee5 accessed 2021-09-26 09:04:26
## 31: 3aef38d1fc02aee5 inCloud FALSE
## 32: 3aef38d1fc02aee5 resultHash
## 33: 3aef38d1fc02aee5 elapsedTimeDigest 0.00100112 secs
## 34: 3aef38d1fc02aee5 elapsedTimeFirstRun 0 secs
## 35: 3aef38d1fc02aee5 otherFunctions vweave_rmarkdown
## 36: 3aef38d1fc02aee5 otherFunctions process_file
## 37: 3aef38d1fc02aee5 otherFunctions process_group
## 38: 3aef38d1fc02aee5 otherFunctions process_group.block
## 39: 3aef38d1fc02aee5 otherFunctions call_block
## 40: 3aef38d1fc02aee5 otherFunctions block_exec
## 41: 3aef38d1fc02aee5 otherFunctions eng_r
## 42: 3aef38d1fc02aee5 otherFunctions in_dir
## 43: 3aef38d1fc02aee5 otherFunctions timing_fn
## 44: 3aef38d1fc02aee5 otherFunctions handle
## 45: 3aef38d1fc02aee5 preDigest n:7eef4eae85fd9229
## 46: 3aef38d1fc02aee5 preDigest .FUN:881ec847b7161f3c
## 47: 3aef38d1fc02aee5 file.size 168
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:24
## 2: 2021-09-26 09:04:24
## 3: 2021-09-26 09:04:24
## 4: 2021-09-26 09:04:24
## 5: 2021-09-26 09:04:24
## 6: 2021-09-26 09:04:24
## 7: 2021-09-26 09:04:24
## 8: 2021-09-26 09:04:24
## 9: 2021-09-26 09:04:24
## 10: 2021-09-26 09:04:24
## 11: 2021-09-26 09:04:24
## 12: 2021-09-26 09:04:24
## 13: 2021-09-26 09:04:24
## 14: 2021-09-26 09:04:24
## 15: 2021-09-26 09:04:24
## 16: 2021-09-26 09:04:24
## 17: 2021-09-26 09:04:24
## 18: 2021-09-26 09:04:24
## 19: 2021-09-26 09:04:24
## 20: 2021-09-26 09:04:24
## 21: 2021-09-26 09:04:24
## 22: 2021-09-26 09:04:24
## 23: 2021-09-26 09:04:25
## 24: 2021-09-26 09:04:25
## 25: 2021-09-26 09:04:26
## 26: 2021-09-26 09:04:26
## 27: 2021-09-26 09:04:26
## 28: 2021-09-26 09:04:26
## 29: 2021-09-26 09:04:26
## 30: 2021-09-26 09:04:26
## 31: 2021-09-26 09:04:26
## 32: 2021-09-26 09:04:26
## 33: 2021-09-26 09:04:26
## 34: 2021-09-26 09:04:26
## 35: 2021-09-26 09:04:26
## 36: 2021-09-26 09:04:26
## 37: 2021-09-26 09:04:26
## 38: 2021-09-26 09:04:26
## 39: 2021-09-26 09:04:26
## 40: 2021-09-26 09:04:26
## 41: 2021-09-26 09:04:26
## 42: 2021-09-26 09:04:26
## 43: 2021-09-26 09:04:26
## 44: 2021-09-26 09:04:26
## 45: 2021-09-26 09:04:26
## 46: 2021-09-26 09:04:26
## 47: 2021-09-26 09:04:26
## createdDate
# Keep all Cache items created with an rnorm() call
keepCache(tmpDir, userTags = "rnorm", ask = FALSE)
## Cache size:
## Total (including Rasters): 252 bytes
## Selected objects (not including Rasters): 252 bytes
## cacheId tagKey tagValue
## 1: f7bee22047b8d0c1 objectName a
## 2: f7bee22047b8d0c1 function rnorm
## 3: f7bee22047b8d0c1 class numeric
## 4: f7bee22047b8d0c1 object.size 1008
## 5: f7bee22047b8d0c1 accessed 2021-09-26 09:04:24
## 6: f7bee22047b8d0c1 inCloud FALSE
## 7: f7bee22047b8d0c1 resultHash
## 8: f7bee22047b8d0c1 elapsedTimeDigest 0.0009999275 secs
## 9: f7bee22047b8d0c1 elapsedTimeFirstRun 0 secs
## 10: f7bee22047b8d0c1 otherFunctions vweave_rmarkdown
## 11: f7bee22047b8d0c1 otherFunctions process_file
## 12: f7bee22047b8d0c1 otherFunctions process_group
## 13: f7bee22047b8d0c1 otherFunctions process_group.block
## 14: f7bee22047b8d0c1 otherFunctions call_block
## 15: f7bee22047b8d0c1 otherFunctions block_exec
## 16: f7bee22047b8d0c1 otherFunctions eng_r
## 17: f7bee22047b8d0c1 otherFunctions in_dir
## 18: f7bee22047b8d0c1 otherFunctions timing_fn
## 19: f7bee22047b8d0c1 otherFunctions handle
## 20: f7bee22047b8d0c1 preDigest n:7eef4eae85fd9229
## 21: f7bee22047b8d0c1 preDigest .FUN:4f604aa46882b368
## 22: f7bee22047b8d0c1 file.size 175
## 23: f7bee22047b8d0c1 accessed 2021-09-26 09:04:25
## 24: f7bee22047b8d0c1 elapsedTimeLoad 0.006003857 secs
## 25: f7bee22047b8d0c1 accessed 2021-09-26 09:04:26
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:24
## 2: 2021-09-26 09:04:24
## 3: 2021-09-26 09:04:24
## 4: 2021-09-26 09:04:24
## 5: 2021-09-26 09:04:24
## 6: 2021-09-26 09:04:24
## 7: 2021-09-26 09:04:24
## 8: 2021-09-26 09:04:24
## 9: 2021-09-26 09:04:24
## 10: 2021-09-26 09:04:24
## 11: 2021-09-26 09:04:24
## 12: 2021-09-26 09:04:24
## 13: 2021-09-26 09:04:24
## 14: 2021-09-26 09:04:24
## 15: 2021-09-26 09:04:24
## 16: 2021-09-26 09:04:24
## 17: 2021-09-26 09:04:24
## 18: 2021-09-26 09:04:24
## 19: 2021-09-26 09:04:24
## 20: 2021-09-26 09:04:24
## 21: 2021-09-26 09:04:24
## 22: 2021-09-26 09:04:24
## 23: 2021-09-26 09:04:25
## 24: 2021-09-26 09:04:25
## 25: 2021-09-26 09:04:26
## createdDate
# Remove all Cache items that happened within a rnorm() call
clearCache(tmpDir, userTags = "rnorm", ask = FALSE)
## Cache size:
## Total (including Rasters): 252 bytes
## Selected objects (not including Rasters): 252 bytes
showCache(tmpDir) ## empty
## Cache size:
## Total (including Rasters): 0 bytes
## Selected objects (not including Rasters): 0 bytes
## Empty data.table (0 rows and 4 cols): cacheId,tagKey,tagValue,createdDate
# Also, can set a time before caching happens and remove based on this
# --> a useful, simple way to control Cache
<- Cache(rnorm, 4, cacheRepo = tmpDir, userTags = "objectName:a")
ranNumsA <- Sys.time()
startTime Sys.sleep(1)
<- Cache(rnorm, 5, cacheRepo = tmpDir, userTags = "objectName:b")
ranNumsB keepCache(tmpDir, after = startTime, ask = FALSE) # keep only those newer than startTime
## Cache size:
## Total (including Rasters): 256 bytes
## Selected objects (not including Rasters): 256 bytes
## cacheId tagKey tagValue
## 1: 142b4176fe87d51d objectName b
## 2: 142b4176fe87d51d function rnorm
## 3: 142b4176fe87d51d class numeric
## 4: 142b4176fe87d51d object.size 1024
## 5: 142b4176fe87d51d accessed 2021-09-26 09:04:27
## 6: 142b4176fe87d51d inCloud FALSE
## 7: 142b4176fe87d51d resultHash
## 8: 142b4176fe87d51d elapsedTimeDigest 0.001080036 secs
## 9: 142b4176fe87d51d elapsedTimeFirstRun 0 secs
## 10: 142b4176fe87d51d otherFunctions vweave_rmarkdown
## 11: 142b4176fe87d51d otherFunctions process_file
## 12: 142b4176fe87d51d otherFunctions process_group
## 13: 142b4176fe87d51d otherFunctions process_group.block
## 14: 142b4176fe87d51d otherFunctions call_block
## 15: 142b4176fe87d51d otherFunctions block_exec
## 16: 142b4176fe87d51d otherFunctions eng_r
## 17: 142b4176fe87d51d otherFunctions in_dir
## 18: 142b4176fe87d51d otherFunctions timing_fn
## 19: 142b4176fe87d51d otherFunctions handle
## 20: 142b4176fe87d51d preDigest n:a4f076b3db622faf
## 21: 142b4176fe87d51d preDigest .FUN:4f604aa46882b368
## 22: 142b4176fe87d51d file.size 185
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:27
## 2: 2021-09-26 09:04:27
## 3: 2021-09-26 09:04:27
## 4: 2021-09-26 09:04:27
## 5: 2021-09-26 09:04:27
## 6: 2021-09-26 09:04:27
## 7: 2021-09-26 09:04:27
## 8: 2021-09-26 09:04:27
## 9: 2021-09-26 09:04:27
## 10: 2021-09-26 09:04:27
## 11: 2021-09-26 09:04:27
## 12: 2021-09-26 09:04:27
## 13: 2021-09-26 09:04:27
## 14: 2021-09-26 09:04:27
## 15: 2021-09-26 09:04:27
## 16: 2021-09-26 09:04:27
## 17: 2021-09-26 09:04:27
## 18: 2021-09-26 09:04:27
## 19: 2021-09-26 09:04:27
## 20: 2021-09-26 09:04:27
## 21: 2021-09-26 09:04:27
## 22: 2021-09-26 09:04:27
## createdDate
clearCache(tmpDir, ask = FALSE)
# default userTags is "and" matching; for "or" matching use |
<- Cache(runif, 4, cacheRepo = tmpDir, userTags = "objectName:a")
ranNumsA <- Cache(rnorm, 4, cacheRepo = tmpDir, userTags = "objectName:b")
ranNumsB
# show all objects (runif and rnorm in this case)
showCache(tmpDir)
## Cache size:
## Total (including Rasters): 504 bytes
## Selected objects (not including Rasters): 504 bytes
## cacheId tagKey tagValue
## 1: 3aef38d1fc02aee5 objectName a
## 2: 3aef38d1fc02aee5 function runif
## 3: 3aef38d1fc02aee5 class numeric
## 4: 3aef38d1fc02aee5 object.size 1008
## 5: 3aef38d1fc02aee5 accessed 2021-09-26 09:04:27
## 6: 3aef38d1fc02aee5 inCloud FALSE
## 7: 3aef38d1fc02aee5 resultHash
## 8: 3aef38d1fc02aee5 elapsedTimeDigest 0.0009999275 secs
## 9: 3aef38d1fc02aee5 elapsedTimeFirstRun 0 secs
## 10: 3aef38d1fc02aee5 otherFunctions vweave_rmarkdown
## 11: 3aef38d1fc02aee5 otherFunctions process_file
## 12: 3aef38d1fc02aee5 otherFunctions process_group
## 13: 3aef38d1fc02aee5 otherFunctions process_group.block
## 14: 3aef38d1fc02aee5 otherFunctions call_block
## 15: 3aef38d1fc02aee5 otherFunctions block_exec
## 16: 3aef38d1fc02aee5 otherFunctions eng_r
## 17: 3aef38d1fc02aee5 otherFunctions in_dir
## 18: 3aef38d1fc02aee5 otherFunctions timing_fn
## 19: 3aef38d1fc02aee5 otherFunctions handle
## 20: 3aef38d1fc02aee5 preDigest n:7eef4eae85fd9229
## 21: 3aef38d1fc02aee5 preDigest .FUN:881ec847b7161f3c
## 22: 3aef38d1fc02aee5 file.size 169
## 23: f7bee22047b8d0c1 objectName b
## 24: f7bee22047b8d0c1 function rnorm
## 25: f7bee22047b8d0c1 class numeric
## 26: f7bee22047b8d0c1 object.size 1008
## 27: f7bee22047b8d0c1 accessed 2021-09-26 09:04:27
## 28: f7bee22047b8d0c1 inCloud FALSE
## 29: f7bee22047b8d0c1 resultHash
## 30: f7bee22047b8d0c1 elapsedTimeDigest 0.0009999275 secs
## 31: f7bee22047b8d0c1 elapsedTimeFirstRun 0 secs
## 32: f7bee22047b8d0c1 otherFunctions vweave_rmarkdown
## 33: f7bee22047b8d0c1 otherFunctions process_file
## 34: f7bee22047b8d0c1 otherFunctions process_group
## 35: f7bee22047b8d0c1 otherFunctions process_group.block
## 36: f7bee22047b8d0c1 otherFunctions call_block
## 37: f7bee22047b8d0c1 otherFunctions block_exec
## 38: f7bee22047b8d0c1 otherFunctions eng_r
## 39: f7bee22047b8d0c1 otherFunctions in_dir
## 40: f7bee22047b8d0c1 otherFunctions timing_fn
## 41: f7bee22047b8d0c1 otherFunctions handle
## 42: f7bee22047b8d0c1 preDigest n:7eef4eae85fd9229
## 43: f7bee22047b8d0c1 preDigest .FUN:4f604aa46882b368
## 44: f7bee22047b8d0c1 file.size 175
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:27
## 2: 2021-09-26 09:04:27
## 3: 2021-09-26 09:04:27
## 4: 2021-09-26 09:04:27
## 5: 2021-09-26 09:04:27
## 6: 2021-09-26 09:04:27
## 7: 2021-09-26 09:04:27
## 8: 2021-09-26 09:04:27
## 9: 2021-09-26 09:04:27
## 10: 2021-09-26 09:04:27
## 11: 2021-09-26 09:04:27
## 12: 2021-09-26 09:04:27
## 13: 2021-09-26 09:04:27
## 14: 2021-09-26 09:04:27
## 15: 2021-09-26 09:04:27
## 16: 2021-09-26 09:04:27
## 17: 2021-09-26 09:04:27
## 18: 2021-09-26 09:04:27
## 19: 2021-09-26 09:04:27
## 20: 2021-09-26 09:04:27
## 21: 2021-09-26 09:04:27
## 22: 2021-09-26 09:04:27
## 23: 2021-09-26 09:04:27
## 24: 2021-09-26 09:04:27
## 25: 2021-09-26 09:04:27
## 26: 2021-09-26 09:04:27
## 27: 2021-09-26 09:04:27
## 28: 2021-09-26 09:04:27
## 29: 2021-09-26 09:04:27
## 30: 2021-09-26 09:04:27
## 31: 2021-09-26 09:04:27
## 32: 2021-09-26 09:04:27
## 33: 2021-09-26 09:04:27
## 34: 2021-09-26 09:04:27
## 35: 2021-09-26 09:04:27
## 36: 2021-09-26 09:04:27
## 37: 2021-09-26 09:04:27
## 38: 2021-09-26 09:04:27
## 39: 2021-09-26 09:04:27
## 40: 2021-09-26 09:04:27
## 41: 2021-09-26 09:04:27
## 42: 2021-09-26 09:04:27
## 43: 2021-09-26 09:04:27
## 44: 2021-09-26 09:04:27
## createdDate
# show objects that are both runif and rnorm
# (i.e., none in this case, because objecs are either or, not both)
showCache(tmpDir, userTags = c("runif", "rnorm")) ## empty
## Cache size:
## Total (including Rasters): 0 bytes
## Selected objects (not including Rasters): 0 bytes
## Empty data.table (0 rows and 4 cols): cacheId,tagKey,tagValue,createdDate
# show objects that are either runif or rnorm ("or" search)
showCache(tmpDir, userTags = "runif|rnorm")
## Cache size:
## Total (including Rasters): 504 bytes
## Selected objects (not including Rasters): 504 bytes
## cacheId tagKey tagValue
## 1: 3aef38d1fc02aee5 objectName a
## 2: 3aef38d1fc02aee5 function runif
## 3: 3aef38d1fc02aee5 class numeric
## 4: 3aef38d1fc02aee5 object.size 1008
## 5: 3aef38d1fc02aee5 accessed 2021-09-26 09:04:27
## 6: 3aef38d1fc02aee5 inCloud FALSE
## 7: 3aef38d1fc02aee5 resultHash
## 8: 3aef38d1fc02aee5 elapsedTimeDigest 0.0009999275 secs
## 9: 3aef38d1fc02aee5 elapsedTimeFirstRun 0 secs
## 10: 3aef38d1fc02aee5 otherFunctions vweave_rmarkdown
## 11: 3aef38d1fc02aee5 otherFunctions process_file
## 12: 3aef38d1fc02aee5 otherFunctions process_group
## 13: 3aef38d1fc02aee5 otherFunctions process_group.block
## 14: 3aef38d1fc02aee5 otherFunctions call_block
## 15: 3aef38d1fc02aee5 otherFunctions block_exec
## 16: 3aef38d1fc02aee5 otherFunctions eng_r
## 17: 3aef38d1fc02aee5 otherFunctions in_dir
## 18: 3aef38d1fc02aee5 otherFunctions timing_fn
## 19: 3aef38d1fc02aee5 otherFunctions handle
## 20: 3aef38d1fc02aee5 preDigest n:7eef4eae85fd9229
## 21: 3aef38d1fc02aee5 preDigest .FUN:881ec847b7161f3c
## 22: 3aef38d1fc02aee5 file.size 169
## 23: f7bee22047b8d0c1 objectName b
## 24: f7bee22047b8d0c1 function rnorm
## 25: f7bee22047b8d0c1 class numeric
## 26: f7bee22047b8d0c1 object.size 1008
## 27: f7bee22047b8d0c1 accessed 2021-09-26 09:04:27
## 28: f7bee22047b8d0c1 inCloud FALSE
## 29: f7bee22047b8d0c1 resultHash
## 30: f7bee22047b8d0c1 elapsedTimeDigest 0.0009999275 secs
## 31: f7bee22047b8d0c1 elapsedTimeFirstRun 0 secs
## 32: f7bee22047b8d0c1 otherFunctions vweave_rmarkdown
## 33: f7bee22047b8d0c1 otherFunctions process_file
## 34: f7bee22047b8d0c1 otherFunctions process_group
## 35: f7bee22047b8d0c1 otherFunctions process_group.block
## 36: f7bee22047b8d0c1 otherFunctions call_block
## 37: f7bee22047b8d0c1 otherFunctions block_exec
## 38: f7bee22047b8d0c1 otherFunctions eng_r
## 39: f7bee22047b8d0c1 otherFunctions in_dir
## 40: f7bee22047b8d0c1 otherFunctions timing_fn
## 41: f7bee22047b8d0c1 otherFunctions handle
## 42: f7bee22047b8d0c1 preDigest n:7eef4eae85fd9229
## 43: f7bee22047b8d0c1 preDigest .FUN:4f604aa46882b368
## 44: f7bee22047b8d0c1 file.size 175
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:27
## 2: 2021-09-26 09:04:27
## 3: 2021-09-26 09:04:27
## 4: 2021-09-26 09:04:27
## 5: 2021-09-26 09:04:27
## 6: 2021-09-26 09:04:27
## 7: 2021-09-26 09:04:27
## 8: 2021-09-26 09:04:27
## 9: 2021-09-26 09:04:27
## 10: 2021-09-26 09:04:27
## 11: 2021-09-26 09:04:27
## 12: 2021-09-26 09:04:27
## 13: 2021-09-26 09:04:27
## 14: 2021-09-26 09:04:27
## 15: 2021-09-26 09:04:27
## 16: 2021-09-26 09:04:27
## 17: 2021-09-26 09:04:27
## 18: 2021-09-26 09:04:27
## 19: 2021-09-26 09:04:27
## 20: 2021-09-26 09:04:27
## 21: 2021-09-26 09:04:27
## 22: 2021-09-26 09:04:27
## 23: 2021-09-26 09:04:27
## 24: 2021-09-26 09:04:27
## 25: 2021-09-26 09:04:27
## 26: 2021-09-26 09:04:27
## 27: 2021-09-26 09:04:27
## 28: 2021-09-26 09:04:27
## 29: 2021-09-26 09:04:27
## 30: 2021-09-26 09:04:27
## 31: 2021-09-26 09:04:27
## 32: 2021-09-26 09:04:27
## 33: 2021-09-26 09:04:27
## 34: 2021-09-26 09:04:27
## 35: 2021-09-26 09:04:27
## 36: 2021-09-26 09:04:27
## 37: 2021-09-26 09:04:27
## 38: 2021-09-26 09:04:27
## 39: 2021-09-26 09:04:27
## 40: 2021-09-26 09:04:27
## 41: 2021-09-26 09:04:27
## 42: 2021-09-26 09:04:27
## 43: 2021-09-26 09:04:27
## 44: 2021-09-26 09:04:27
## createdDate
# keep only objects that are either runif or rnorm ("or" search)
keepCache(tmpDir, userTags = "runif|rnorm", ask = FALSE)
## Cache size:
## Total (including Rasters): 504 bytes
## Selected objects (not including Rasters): 504 bytes
## cacheId tagKey tagValue
## 1: 3aef38d1fc02aee5 objectName a
## 2: 3aef38d1fc02aee5 function runif
## 3: 3aef38d1fc02aee5 class numeric
## 4: 3aef38d1fc02aee5 object.size 1008
## 5: 3aef38d1fc02aee5 accessed 2021-09-26 09:04:27
## 6: 3aef38d1fc02aee5 inCloud FALSE
## 7: 3aef38d1fc02aee5 resultHash
## 8: 3aef38d1fc02aee5 elapsedTimeDigest 0.0009999275 secs
## 9: 3aef38d1fc02aee5 elapsedTimeFirstRun 0 secs
## 10: 3aef38d1fc02aee5 otherFunctions vweave_rmarkdown
## 11: 3aef38d1fc02aee5 otherFunctions process_file
## 12: 3aef38d1fc02aee5 otherFunctions process_group
## 13: 3aef38d1fc02aee5 otherFunctions process_group.block
## 14: 3aef38d1fc02aee5 otherFunctions call_block
## 15: 3aef38d1fc02aee5 otherFunctions block_exec
## 16: 3aef38d1fc02aee5 otherFunctions eng_r
## 17: 3aef38d1fc02aee5 otherFunctions in_dir
## 18: 3aef38d1fc02aee5 otherFunctions timing_fn
## 19: 3aef38d1fc02aee5 otherFunctions handle
## 20: 3aef38d1fc02aee5 preDigest n:7eef4eae85fd9229
## 21: 3aef38d1fc02aee5 preDigest .FUN:881ec847b7161f3c
## 22: 3aef38d1fc02aee5 file.size 169
## 23: f7bee22047b8d0c1 objectName b
## 24: f7bee22047b8d0c1 function rnorm
## 25: f7bee22047b8d0c1 class numeric
## 26: f7bee22047b8d0c1 object.size 1008
## 27: f7bee22047b8d0c1 accessed 2021-09-26 09:04:27
## 28: f7bee22047b8d0c1 inCloud FALSE
## 29: f7bee22047b8d0c1 resultHash
## 30: f7bee22047b8d0c1 elapsedTimeDigest 0.0009999275 secs
## 31: f7bee22047b8d0c1 elapsedTimeFirstRun 0 secs
## 32: f7bee22047b8d0c1 otherFunctions vweave_rmarkdown
## 33: f7bee22047b8d0c1 otherFunctions process_file
## 34: f7bee22047b8d0c1 otherFunctions process_group
## 35: f7bee22047b8d0c1 otherFunctions process_group.block
## 36: f7bee22047b8d0c1 otherFunctions call_block
## 37: f7bee22047b8d0c1 otherFunctions block_exec
## 38: f7bee22047b8d0c1 otherFunctions eng_r
## 39: f7bee22047b8d0c1 otherFunctions in_dir
## 40: f7bee22047b8d0c1 otherFunctions timing_fn
## 41: f7bee22047b8d0c1 otherFunctions handle
## 42: f7bee22047b8d0c1 preDigest n:7eef4eae85fd9229
## 43: f7bee22047b8d0c1 preDigest .FUN:4f604aa46882b368
## 44: f7bee22047b8d0c1 file.size 175
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:27
## 2: 2021-09-26 09:04:27
## 3: 2021-09-26 09:04:27
## 4: 2021-09-26 09:04:27
## 5: 2021-09-26 09:04:27
## 6: 2021-09-26 09:04:27
## 7: 2021-09-26 09:04:27
## 8: 2021-09-26 09:04:27
## 9: 2021-09-26 09:04:27
## 10: 2021-09-26 09:04:27
## 11: 2021-09-26 09:04:27
## 12: 2021-09-26 09:04:27
## 13: 2021-09-26 09:04:27
## 14: 2021-09-26 09:04:27
## 15: 2021-09-26 09:04:27
## 16: 2021-09-26 09:04:27
## 17: 2021-09-26 09:04:27
## 18: 2021-09-26 09:04:27
## 19: 2021-09-26 09:04:27
## 20: 2021-09-26 09:04:27
## 21: 2021-09-26 09:04:27
## 22: 2021-09-26 09:04:27
## 23: 2021-09-26 09:04:27
## 24: 2021-09-26 09:04:27
## 25: 2021-09-26 09:04:27
## 26: 2021-09-26 09:04:27
## 27: 2021-09-26 09:04:27
## 28: 2021-09-26 09:04:27
## 29: 2021-09-26 09:04:27
## 30: 2021-09-26 09:04:27
## 31: 2021-09-26 09:04:27
## 32: 2021-09-26 09:04:27
## 33: 2021-09-26 09:04:27
## 34: 2021-09-26 09:04:27
## 35: 2021-09-26 09:04:27
## 36: 2021-09-26 09:04:27
## 37: 2021-09-26 09:04:27
## 38: 2021-09-26 09:04:27
## 39: 2021-09-26 09:04:27
## 40: 2021-09-26 09:04:27
## 41: 2021-09-26 09:04:27
## 42: 2021-09-26 09:04:27
## 43: 2021-09-26 09:04:27
## 44: 2021-09-26 09:04:27
## createdDate
clearCache(tmpDir, ask = FALSE)
<- raster(extent(0, 5, 0, 5), res = 1,
ras vals = sample(1:5, replace = TRUE, size = 25),
crs = "+proj=lcc +lat_1=48 +lat_2=33 +lon_0=-100 +ellps=WGS84")
# A slow operation, like GIS operation
<- suppressWarnings(
notCached # project raster generates warnings when run non-interactively
projectRaster(ras, crs = crs(ras), res = 5, cacheRepo = tmpDir)
)
<- suppressWarnings(
cached # project raster generates warnings when run non-interactively
# using quote works also
Cache(projectRaster, ras, crs = crs(ras), res = 5, cacheRepo = tmpDir)
)
# second time is much faster
<- suppressWarnings(
reRun # project raster generates warnings when run non-interactively
Cache(projectRaster, ras, crs = crs(ras), res = 5, cacheRepo = tmpDir)
)
## ...(Object to retrieve (6c6169f419732d22.rds))
## loaded cached result from previous projectRaster call,
# recovered cached version is same as non-cached version
all.equal(notCached, reRun) ## TRUE
## [1] TRUE
Nested caching, which is when Caching of a function occurs inside an outer function, which is itself cached. This is a critical element to working within a reproducible work flow. It is not enough during development to cache flat code chunks, as there will be many levels of “slow” functions. Ideally, at all points in a development cycle, it should be possible to get to any line of code starting from the very initial steps, running through everything up to that point, in less than a few seconds. If the workflow can be kept very fast like this, then there is a guarantee that it will work at any point.
##########################
## Nested Caching
# Make 2 functions
<- function(mean) {
inner <- 1
d Cache(rnorm, n = 3, mean = mean)
}<- function(n) {
outer Cache(inner, 0.1, cacheRepo = tmpdir2)
}
# make 2 different cache paths
<- file.path(tempdir(), "first")
tmpdir1 <- file.path(tempdir(), "second")
tmpdir2
# Run the Cache ... notOlderThan propagates to all 3 Cache calls,
# but cacheRepo is tmpdir1 in top level Cache and all nested
# Cache calls, unless individually overridden ... here inner
# uses tmpdir2 repository
Cache(outer, n = 2, cacheRepo = tmpdir1, notOlderThan = Sys.time())
## [1] 0.4592746 -2.1798365 -0.1214434
## attr(,".Cache")
## attr(,".Cache")$newCache
## [1] TRUE
##
## attr(,"tags")
## [1] "cacheId:a7af5367c13aba8f"
## attr(,"call")
## [1] ""
showCache(tmpdir1) # 2 function calls
## Cache size:
## Total (including Rasters): 504 bytes
## Selected objects (not including Rasters): 504 bytes
## cacheId tagKey tagValue
## 1: 4ac2b7c0f42d1e46 function rnorm
## 2: 4ac2b7c0f42d1e46 class numeric
## 3: 4ac2b7c0f42d1e46 object.size 1008
## 4: 4ac2b7c0f42d1e46 accessed 2021-09-26 09:04:27
## 5: 4ac2b7c0f42d1e46 inCloud FALSE
## 6: 4ac2b7c0f42d1e46 resultHash
## 7: 4ac2b7c0f42d1e46 elapsedTimeDigest 0 secs
## 8: 4ac2b7c0f42d1e46 elapsedTimeFirstRun 0 secs
## 9: 4ac2b7c0f42d1e46 otherFunctions vweave_rmarkdown
## 10: 4ac2b7c0f42d1e46 otherFunctions process_file
## 11: 4ac2b7c0f42d1e46 otherFunctions process_group
## 12: 4ac2b7c0f42d1e46 otherFunctions process_group.block
## 13: 4ac2b7c0f42d1e46 otherFunctions call_block
## 14: 4ac2b7c0f42d1e46 otherFunctions block_exec
## 15: 4ac2b7c0f42d1e46 otherFunctions eng_r
## 16: 4ac2b7c0f42d1e46 otherFunctions in_dir
## 17: 4ac2b7c0f42d1e46 otherFunctions timing_fn
## 18: 4ac2b7c0f42d1e46 otherFunctions handle
## 19: 4ac2b7c0f42d1e46 preDigest n:7f12988bd88a0fb8
## 20: 4ac2b7c0f42d1e46 preDigest mean:22413394efd9f6a3
## 21: 4ac2b7c0f42d1e46 preDigest .FUN:4f604aa46882b368
## 22: 4ac2b7c0f42d1e46 file.size 166
## 23: a7af5367c13aba8f function outer
## 24: a7af5367c13aba8f class numeric
## 25: a7af5367c13aba8f object.size 1008
## 26: a7af5367c13aba8f accessed 2021-09-26 09:04:27
## 27: a7af5367c13aba8f inCloud FALSE
## 28: a7af5367c13aba8f resultHash
## 29: a7af5367c13aba8f elapsedTimeDigest 0.001997948 secs
## 30: a7af5367c13aba8f elapsedTimeFirstRun 0.08802605 secs
## 31: a7af5367c13aba8f otherFunctions vweave_rmarkdown
## 32: a7af5367c13aba8f otherFunctions process_file
## 33: a7af5367c13aba8f otherFunctions process_group
## 34: a7af5367c13aba8f otherFunctions process_group.block
## 35: a7af5367c13aba8f otherFunctions call_block
## 36: a7af5367c13aba8f otherFunctions block_exec
## 37: a7af5367c13aba8f otherFunctions eng_r
## 38: a7af5367c13aba8f otherFunctions in_dir
## 39: a7af5367c13aba8f otherFunctions timing_fn
## 40: a7af5367c13aba8f otherFunctions handle
## 41: a7af5367c13aba8f preDigest n:82dc709f2b91918a
## 42: a7af5367c13aba8f preDigest .FUN:892a6afc47a63a90
## 43: a7af5367c13aba8f file.size 166
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:27
## 2: 2021-09-26 09:04:27
## 3: 2021-09-26 09:04:27
## 4: 2021-09-26 09:04:27
## 5: 2021-09-26 09:04:27
## 6: 2021-09-26 09:04:27
## 7: 2021-09-26 09:04:27
## 8: 2021-09-26 09:04:27
## 9: 2021-09-26 09:04:27
## 10: 2021-09-26 09:04:27
## 11: 2021-09-26 09:04:27
## 12: 2021-09-26 09:04:27
## 13: 2021-09-26 09:04:27
## 14: 2021-09-26 09:04:27
## 15: 2021-09-26 09:04:27
## 16: 2021-09-26 09:04:27
## 17: 2021-09-26 09:04:27
## 18: 2021-09-26 09:04:27
## 19: 2021-09-26 09:04:27
## 20: 2021-09-26 09:04:27
## 21: 2021-09-26 09:04:27
## 22: 2021-09-26 09:04:27
## 23: 2021-09-26 09:04:27
## 24: 2021-09-26 09:04:27
## 25: 2021-09-26 09:04:27
## 26: 2021-09-26 09:04:27
## 27: 2021-09-26 09:04:27
## 28: 2021-09-26 09:04:27
## 29: 2021-09-26 09:04:27
## 30: 2021-09-26 09:04:27
## 31: 2021-09-26 09:04:27
## 32: 2021-09-26 09:04:27
## 33: 2021-09-26 09:04:27
## 34: 2021-09-26 09:04:27
## 35: 2021-09-26 09:04:27
## 36: 2021-09-26 09:04:27
## 37: 2021-09-26 09:04:27
## 38: 2021-09-26 09:04:27
## 39: 2021-09-26 09:04:27
## 40: 2021-09-26 09:04:27
## 41: 2021-09-26 09:04:27
## 42: 2021-09-26 09:04:27
## 43: 2021-09-26 09:04:27
## createdDate
showCache(tmpdir2) # 1 function call
## Cache size:
## Total (including Rasters): 252 bytes
## Selected objects (not including Rasters): 252 bytes
## cacheId tagKey tagValue
## 1: 33ceb4fb525fd08f function inner
## 2: 33ceb4fb525fd08f class numeric
## 3: 33ceb4fb525fd08f object.size 1008
## 4: 33ceb4fb525fd08f accessed 2021-09-26 09:04:27
## 5: 33ceb4fb525fd08f inCloud FALSE
## 6: 33ceb4fb525fd08f resultHash
## 7: 33ceb4fb525fd08f elapsedTimeDigest 0.0009851456 secs
## 8: 33ceb4fb525fd08f elapsedTimeFirstRun 0.04199886 secs
## 9: 33ceb4fb525fd08f otherFunctions vweave_rmarkdown
## 10: 33ceb4fb525fd08f otherFunctions process_file
## 11: 33ceb4fb525fd08f otherFunctions process_group
## 12: 33ceb4fb525fd08f otherFunctions process_group.block
## 13: 33ceb4fb525fd08f otherFunctions call_block
## 14: 33ceb4fb525fd08f otherFunctions block_exec
## 15: 33ceb4fb525fd08f otherFunctions eng_r
## 16: 33ceb4fb525fd08f otherFunctions in_dir
## 17: 33ceb4fb525fd08f otherFunctions timing_fn
## 18: 33ceb4fb525fd08f otherFunctions handle
## 19: 33ceb4fb525fd08f preDigest mean:22413394efd9f6a3
## 20: 33ceb4fb525fd08f preDigest .FUN:87e2c30917a34d25
## 21: 33ceb4fb525fd08f file.size 166
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:27
## 2: 2021-09-26 09:04:27
## 3: 2021-09-26 09:04:27
## 4: 2021-09-26 09:04:27
## 5: 2021-09-26 09:04:27
## 6: 2021-09-26 09:04:27
## 7: 2021-09-26 09:04:27
## 8: 2021-09-26 09:04:27
## 9: 2021-09-26 09:04:27
## 10: 2021-09-26 09:04:27
## 11: 2021-09-26 09:04:27
## 12: 2021-09-26 09:04:27
## 13: 2021-09-26 09:04:27
## 14: 2021-09-26 09:04:27
## 15: 2021-09-26 09:04:27
## 16: 2021-09-26 09:04:27
## 17: 2021-09-26 09:04:27
## 18: 2021-09-26 09:04:27
## 19: 2021-09-26 09:04:27
## 20: 2021-09-26 09:04:27
## 21: 2021-09-26 09:04:27
## createdDate
# userTags get appended
# all items have the outer tag propagate, plus inner ones only have inner ones
clearCache(tmpdir1, ask = FALSE)
<- "outerTag"
outerTag <- "innerTag"
innerTag <- function(mean) {
inner <- 1
d Cache(rnorm, n = 3, mean = mean, notOlderThan = Sys.time() - 1e5, userTags = innerTag)
}<- function(n) {
outer Cache(inner, 0.1)
}<- Cache(outer, n = 2, cacheRepo = tmpdir1, userTags = outerTag)
aa showCache(tmpdir1) # rnorm function has outerTag and innerTag, inner and outer only have outerTag
## Cache size:
## Total (including Rasters): 756 bytes
## Selected objects (not including Rasters): 756 bytes
## cacheId tagKey tagValue
## 1: 4ac2b7c0f42d1e46 innerTag innerTag
## 2: 4ac2b7c0f42d1e46 outerTag outerTag
## 3: 4ac2b7c0f42d1e46 function rnorm
## 4: 4ac2b7c0f42d1e46 class numeric
## 5: 4ac2b7c0f42d1e46 object.size 1008
## 6: 4ac2b7c0f42d1e46 accessed 2021-09-26 09:04:28
## 7: 4ac2b7c0f42d1e46 inCloud FALSE
## 8: 4ac2b7c0f42d1e46 resultHash
## 9: 4ac2b7c0f42d1e46 elapsedTimeDigest 0.0009999275 secs
## 10: 4ac2b7c0f42d1e46 elapsedTimeFirstRun 0 secs
## 11: 4ac2b7c0f42d1e46 otherFunctions vweave_rmarkdown
## 12: 4ac2b7c0f42d1e46 otherFunctions process_file
## 13: 4ac2b7c0f42d1e46 otherFunctions process_group
## 14: 4ac2b7c0f42d1e46 otherFunctions process_group.block
## 15: 4ac2b7c0f42d1e46 otherFunctions call_block
## 16: 4ac2b7c0f42d1e46 otherFunctions block_exec
## 17: 4ac2b7c0f42d1e46 otherFunctions eng_r
## 18: 4ac2b7c0f42d1e46 otherFunctions in_dir
## 19: 4ac2b7c0f42d1e46 otherFunctions timing_fn
## 20: 4ac2b7c0f42d1e46 otherFunctions handle
## 21: 4ac2b7c0f42d1e46 preDigest n:7f12988bd88a0fb8
## 22: 4ac2b7c0f42d1e46 preDigest mean:22413394efd9f6a3
## 23: 4ac2b7c0f42d1e46 preDigest .FUN:4f604aa46882b368
## 24: 4ac2b7c0f42d1e46 file.size 166
## 25: b06af03d5a73dc7d outerTag outerTag
## 26: b06af03d5a73dc7d function inner
## 27: b06af03d5a73dc7d class numeric
## 28: b06af03d5a73dc7d object.size 1008
## 29: b06af03d5a73dc7d accessed 2021-09-26 09:04:28
## 30: b06af03d5a73dc7d inCloud FALSE
## 31: b06af03d5a73dc7d resultHash
## 32: b06af03d5a73dc7d elapsedTimeDigest 0.001000166 secs
## 33: b06af03d5a73dc7d elapsedTimeFirstRun 0.02700305 secs
## 34: b06af03d5a73dc7d otherFunctions vweave_rmarkdown
## 35: b06af03d5a73dc7d otherFunctions process_file
## 36: b06af03d5a73dc7d otherFunctions process_group
## 37: b06af03d5a73dc7d otherFunctions process_group.block
## 38: b06af03d5a73dc7d otherFunctions call_block
## 39: b06af03d5a73dc7d otherFunctions block_exec
## 40: b06af03d5a73dc7d otherFunctions eng_r
## 41: b06af03d5a73dc7d otherFunctions in_dir
## 42: b06af03d5a73dc7d otherFunctions timing_fn
## 43: b06af03d5a73dc7d otherFunctions handle
## 44: b06af03d5a73dc7d preDigest mean:22413394efd9f6a3
## 45: b06af03d5a73dc7d preDigest .FUN:7ad10bc1ae528d8c
## 46: b06af03d5a73dc7d file.size 166
## 47: 88a34e1d033329e5 outerTag outerTag
## 48: 88a34e1d033329e5 function outer
## 49: 88a34e1d033329e5 class numeric
## 50: 88a34e1d033329e5 object.size 1008
## 51: 88a34e1d033329e5 accessed 2021-09-26 09:04:28
## 52: 88a34e1d033329e5 inCloud FALSE
## 53: 88a34e1d033329e5 resultHash
## 54: 88a34e1d033329e5 elapsedTimeDigest 0.0009999275 secs
## 55: 88a34e1d033329e5 elapsedTimeFirstRun 0.04800105 secs
## 56: 88a34e1d033329e5 otherFunctions vweave_rmarkdown
## 57: 88a34e1d033329e5 otherFunctions process_file
## 58: 88a34e1d033329e5 otherFunctions process_group
## 59: 88a34e1d033329e5 otherFunctions process_group.block
## 60: 88a34e1d033329e5 otherFunctions call_block
## 61: 88a34e1d033329e5 otherFunctions block_exec
## 62: 88a34e1d033329e5 otherFunctions eng_r
## 63: 88a34e1d033329e5 otherFunctions in_dir
## 64: 88a34e1d033329e5 otherFunctions timing_fn
## 65: 88a34e1d033329e5 otherFunctions handle
## 66: 88a34e1d033329e5 preDigest n:82dc709f2b91918a
## 67: 88a34e1d033329e5 preDigest .FUN:5f06fb5fbffe9e3b
## 68: 88a34e1d033329e5 file.size 166
## cacheId tagKey tagValue
## createdDate
## 1: 2021-09-26 09:04:28
## 2: 2021-09-26 09:04:28
## 3: 2021-09-26 09:04:28
## 4: 2021-09-26 09:04:28
## 5: 2021-09-26 09:04:28
## 6: 2021-09-26 09:04:28
## 7: 2021-09-26 09:04:28
## 8: 2021-09-26 09:04:28
## 9: 2021-09-26 09:04:28
## 10: 2021-09-26 09:04:28
## 11: 2021-09-26 09:04:28
## 12: 2021-09-26 09:04:28
## 13: 2021-09-26 09:04:28
## 14: 2021-09-26 09:04:28
## 15: 2021-09-26 09:04:28
## 16: 2021-09-26 09:04:28
## 17: 2021-09-26 09:04:28
## 18: 2021-09-26 09:04:28
## 19: 2021-09-26 09:04:28
## 20: 2021-09-26 09:04:28
## 21: 2021-09-26 09:04:28
## 22: 2021-09-26 09:04:28
## 23: 2021-09-26 09:04:28
## 24: 2021-09-26 09:04:28
## 25: 2021-09-26 09:04:28
## 26: 2021-09-26 09:04:28
## 27: 2021-09-26 09:04:28
## 28: 2021-09-26 09:04:28
## 29: 2021-09-26 09:04:28
## 30: 2021-09-26 09:04:28
## 31: 2021-09-26 09:04:28
## 32: 2021-09-26 09:04:28
## 33: 2021-09-26 09:04:28
## 34: 2021-09-26 09:04:28
## 35: 2021-09-26 09:04:28
## 36: 2021-09-26 09:04:28
## 37: 2021-09-26 09:04:28
## 38: 2021-09-26 09:04:28
## 39: 2021-09-26 09:04:28
## 40: 2021-09-26 09:04:28
## 41: 2021-09-26 09:04:28
## 42: 2021-09-26 09:04:28
## 43: 2021-09-26 09:04:28
## 44: 2021-09-26 09:04:28
## 45: 2021-09-26 09:04:28
## 46: 2021-09-26 09:04:28
## 47: 2021-09-26 09:04:28
## 48: 2021-09-26 09:04:28
## 49: 2021-09-26 09:04:28
## 50: 2021-09-26 09:04:28
## 51: 2021-09-26 09:04:28
## 52: 2021-09-26 09:04:28
## 53: 2021-09-26 09:04:28
## 54: 2021-09-26 09:04:28
## 55: 2021-09-26 09:04:28
## 56: 2021-09-26 09:04:28
## 57: 2021-09-26 09:04:28
## 58: 2021-09-26 09:04:28
## 59: 2021-09-26 09:04:28
## 60: 2021-09-26 09:04:28
## 61: 2021-09-26 09:04:28
## 62: 2021-09-26 09:04:28
## 63: 2021-09-26 09:04:28
## 64: 2021-09-26 09:04:28
## 65: 2021-09-26 09:04:28
## 66: 2021-09-26 09:04:28
## 67: 2021-09-26 09:04:28
## 68: 2021-09-26 09:04:28
## createdDate
Sometimes, it is not absolutely desirable to maintain the work flow intact because changes that are irrelevant to the analysis, such as changing messages sent to a user, may be changed, without a desire to rerun functions. The cacheId
argument is for this. Once a piece of code is run, then the cacheId
can be manually extracted (it is reported at the end of a Cache call) and manually placed in the code, passed in as, say, cacheId = "ad184ce64541972b50afd8e7b75f821b"
.
### cacheId
set.seed(1)
Cache(rnorm, 1, cacheRepo = tmpdir1)
## [1] -0.6264538
## attr(,".Cache")
## attr(,".Cache")$newCache
## [1] TRUE
##
## attr(,"tags")
## [1] "cacheId:7072c305d8c69df0"
## attr(,"call")
## [1] ""
# manually look at output attribute which shows cacheId: 7072c305d8c69df0
Cache(rnorm, 1, cacheRepo = tmpdir1, cacheId = "7072c305d8c69df0") # same value
## cacheId is same as calculated hash
## ...(Object to retrieve (7072c305d8c69df0.rds))
## loaded cached result from previous rnorm call,
## [1] -0.6264538
## attr(,".Cache")
## attr(,".Cache")$newCache
## [1] FALSE
##
## attr(,"tags")
## [1] "cacheId:7072c305d8c69df0"
## attr(,"call")
## [1] ""
# override even with different inputs:
Cache(rnorm, 2, cacheRepo = tmpdir1, cacheId = "7072c305d8c69df0")
## cacheId is not same as calculated hash. Manually searching for cacheId:7072c305d8c69df0
## ...(Object to retrieve (7072c305d8c69df0.rds))
## loaded cached result from previous rnorm call,
## [1] -0.6264538
## attr(,".Cache")
## attr(,".Cache")$newCache
## [1] FALSE
##
## attr(,"tags")
## [1] "cacheId:7072c305d8c69df0"
## attr(,"call")
## [1] ""
Since the cache is simply a DBI
data table (of an SQLite database by default). In addition, there are several helpers in the reproducible
package, including showCache
, keepCache
and clearCache
that may be useful. Also, one can access cached items manually (rather than simply rerunning the same Cache
function again).
# As of reproducible version 1.0, there is a new backend directly using DBI
<- unique(showCache(tmpDir, userTags = "projectRaster")$cacheId) mapHash
## Cache size:
## Total (including Rasters): 3.8 Kb
## Selected objects (not including Rasters): 3.8 Kb
<- loadFromCache(mapHash[1], cachePath = tmpDir)
map plot(map)
## cleanup
unlink(dirname(tmpDir), recursive = TRUE)
In general, we feel that a liberal use of Cache
will make a re-usable and reproducible work flow. shiny
apps can be made, taking advantage of Cache
. Indeed, much of the difficulty in managing data sets and saving them for future use, can be accommodated by caching.