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

Cleanup R CMD check

Browse Source
This commit is contained in:
Joe Cheng
2017-10-05 10:06:43 -07:00
parent 631f09847d
commit 20b82fbf77
8 changed files with 11 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/render-plot.R
View File

@@ -97,7 +97,7 @@ renderPlot <- function(expr, width='auto', height='auto', res=72, ...,
# Don't invalidate when width/height changes.
dims <- if (execOnResize) getDims() else isolate(getDims())
pixelratio <- session$clientData$pixelratio %OR% 1
p1 <- drawPlot(name, session, func, dims$width, dims$height, pixelratio, res)
p1 <- drawPlot(outputName, session, func, dims$width, dims$height, pixelratio, res)
p1 <- promises::catch(p1, function(reason) {
# Non-isolating read. A common reason for errors in plotting is because
# the dimensions are too small. By taking a dependency on width/height,