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

Code reorganization

Browse Source
This commit is contained in:
Winston Chang
2018-04-04 15:48:01 -05:00
parent 14779d3d27
commit 4dca94ac99
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -105,6 +105,12 @@ renderCachedPlot <- function(expr, cacheKeyExpr, cacheInvalidationExpr = NULL,
env = parent.frame(), quoted = FALSE, outputArgs = list()
) {
# This ..stacktraceon is matched by a ..stacktraceoff.. when plotFunc
# is called
installExprFunction(expr, "func", env, quoted, ..stacktraceon = TRUE)
args <- list(...)
cacheKey <- reactive(substitute(cacheKeyExpr),
env = parent.frame(), quoted = TRUE)
cacheInvalidation <- reactive(substitute(cacheInvalidationExpr),
@@ -187,12 +193,6 @@ renderCachedPlot <- function(expr, cacheKeyExpr, cacheInvalidationExpr = NULL,
}
)
# This ..stacktraceon is matched by a ..stacktraceoff.. when plotFunc
# is called
installExprFunction(expr, "func", env, quoted, ..stacktraceon = TRUE)
args <- list(...)
possible_dims <- all_possible_dims(baseWidth, aspectRatioRate, growthRate)
# The width and height of the plot to draw, taken from possible_dims. These