Add shiny-scalable class

R/render-cached-plot.R

@@ -508,6 +508,7 @@ renderCachedPlot <- function(expr,
         img <- result$plotObj$img
         # Replace exact pixel dimensions; instead, the max-height and
         # max-width will be set to 100% from CSS.
+        img$class <- "shiny-scalable"
         img$width  <- NULL
         img$height <- NULL
 

inst/www/shared/shiny.css

@@ -12,7 +12,7 @@ pre.shiny-text-output.noplaceholder:empty {
   height: 0;
 }
 
-.shiny-image-output img, .shiny-plot-output img {
+.shiny-image-output img.shiny-scalable, .shiny-plot-output img.shiny-scalable {
   max-width: 100%;
   max-height: 100%;
 }