github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-07 03:00:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

Use output name in cache key

Browse Source
This commit is contained in:
Winston Chang
2018-06-21 14:55:30 -05:00
parent 61c2126498
commit ae5deae6e9
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -195,7 +195,7 @@ renderCachedPlot <- function(expr,
cacheKey <- reactive(substitute(cacheKeyExpr), env = parent.frame(), quoted = TRUE)
ensureCacheSetup <- function(outputName) {
ensureCacheSetup <- function() {
# For our purposes, cache objects must support these methods.
isCacheObject <- function(x) {
# Use tryCatch in case the object does not support `$`.
@@ -276,7 +276,7 @@ renderCachedPlot <- function(expr,
pixelratio <- session$clientData$pixelratio %OR% 1
key <- digest::digest(list(cacheKey(), width, height, res, pixelratio), "sha256")
key <- digest::digest(list(outputName, cacheKey(), width, height, res, pixelratio), "sha256")
if (cache$has(key)) {
cat("drawReactive(): cached\n")
@@ -330,7 +330,7 @@ renderCachedPlot <- function(expr,
renderFunc <- function(shinysession, name, ...) {
outputName <<- name
session <<- shinysession
ensureCacheSetup(outputName)
ensureCacheSetup()
ensureResizeObserver()
cat("renderFunc()\n")
@@ -343,7 +343,7 @@ renderCachedPlot <- function(expr,
height <- fitDims$height
pixelratio <- session$clientData$pixelratio %OR% 1
key <- digest::digest(list(cacheKey(), width, height, res, pixelratio), "sha256")
key <- digest::digest(list(outputName, cacheKey(), width, height, res, pixelratio), "sha256")
if (cache$has(key)) {
cat("renderFunc(): cached\n")