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

Add 'missing' parameter to get()

Browse Source
This commit is contained in:
Winston Chang
2018-06-29 13:23:47 -05:00
parent fe6ad235ac
commit d1f20a9c73
6 changed files with 62 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -286,19 +286,9 @@ renderCachedPlot <- function(expr,
key <- digest::digest(list(outputName, cacheKeyResult, width, height, res, pixelratio), "sha256")
cached_value <- cache$get(key)
# Get the key. Instead of using exists() before get(), try to simply
# get() the key and catch the exception if it fails. This is to avoid
# possible race conditions between calls to exists() and get()
get_value_failed <- FALSE
tryCatch(
cached_value <- cache$get(key),
error = function(e) {
get_value_failed <<- TRUE
}
)
if (!get_value_failed) {
if (!is.key_missing(cached_value)) {
cat("drawReactive(): cached\n")
# This will NOT include the displaylist.
return(cached_value)
@@ -399,15 +389,9 @@ renderCachedPlot <- function(expr,
key <- digest::digest(list(outputName, cacheKeyResult, width, height, res, pixelratio), "sha256")
get_value_failed <- FALSE
tryCatch(
cached_value <- cache$get(key),
error = function(e) {
get_value_failed <<- TRUE
}
)
cached_value <- cache$get(key)
if (!get_value_failed) {
if (!is.key_missing(cached_value)) {
cat("drawReactive(): cached\n")
result <- cached_value