github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-02-08 05:35:07 -05:00
Code Issues Packages Projects Releases Wiki Activity

WIP

Browse Source
This commit is contained in:
Winston Chang
2018-04-21 10:34:08 -05:00
parent fd90ff7ff7
commit ac92bf98d4
2 changed files with 33 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
R/render-cached-plot.R
View File

@@ -220,14 +220,17 @@ renderCachedPlot <- function(expr, cacheKeyExpr,
return()
} else if (identical(cache, "app")) {
getShinyOption("appCacheFun")()
cacheDir <- file.path(tempdir(),
paste0("shinyapp-", getShinyOption("appToken"), "-", outputName)
paste0("shinyapp-", getShinyOption("appToken"))
)
cache <<- DiskCache$new(cacheDir, prune = disk_pruner(max_size = 5*1024^2), reset_on_finalize = FALSE)
} else if (identical(cache, "session")) {
session$getCache()
cacheDir <- file.path(tempdir(),
paste0("shinyapp-", getShinyOption("appToken"), "-", session$token, "-", outputName)
paste0("shinyapp-", getShinyOption("appToken"), "-", session$token)
)
cache <<- DiskCache$new(cacheDir, prune = disk_pruner(max_size = 5*1024^2), reset_on_finalize = TRUE)