Nothing
## ----Try it out---------------------------------------------------------------
library(simpleCache)
cacheDir = tempdir()
setCacheDir(cacheDir)
simpleCache("normSamp", { rnorm(1e7, 0,1) })
## -----------------------------------------------------------------------------
simpleCache("normSamp", { rnorm(1e7, 0,1) })
## -----------------------------------------------------------------------------
normSamp = NA # Oops broke my object in memory.
# Regular call won't reload because we have an object called normSamp already:
simpleCache("normSamp", { rnorm(1e7, 0,1) })
# But we can force reload and get it back with reload=TRUE
simpleCache("normSamp", { rnorm(1e7, 0,1) }, reload=TRUE)
## -----------------------------------------------------------------------------
simpleCache("normSamp", { rnorm(1e7, 0,1) }, recreate=TRUE)
## -----------------------------------------------------------------------------
simpleCache("normSamp", { rnorm(1e7, 0,1) }, assignTo="mySamp")
## -----------------------------------------------------------------------------
identical(normSamp, mySamp)
## -----------------------------------------------------------------------------
for (i in 1:5) {
cacheName = paste0("normSamp_", i)
simpleCache(cacheName, { rnorm(1e6, 0,1) }, recreate=TRUE, noload=TRUE)
}
## -----------------------------------------------------------------------------
overallMinimum = 1e6 # pick some high number to start
for (i in 1:5) {
cacheName = paste0("normSamp_", i)
simpleCache(cacheName, assignTo="temp")
overallMinimum = min(overallMinimum, temp)
}
message(overallMinimum)
## -----------------------------------------------------------------------------
loadCaches(paste0("normSamp_", 1:5))
## -----------------------------------------------------------------------------
simpleCache("normSamp")
## -----------------------------------------------------------------------------
simpleCache("normSamp", { rnorm(1e6, 0,1) }, recreate=TRUE, timer=TRUE)
## -----------------------------------------------------------------------------
simpleCache("tResult", {
dat2 = rnorm(1e5, 0.05,2)
t.test(normSamp, dat2)
}, recreate=TRUE)
tResult
tResult$p.value
## ----Clean up-----------------------------------------------------------------
deleteCaches("normSamp", force=TRUE)
deleteCaches(paste0("normSamp_", 1:5), force=TRUE)
deleteCaches("tResult", force=TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.