leverage new shiny output widget size reporting

Author: cpsievert

DESCRIPTION

@@ -33,7 +33,7 @@ Imports:
     viridisLite,
     base64enc,
     htmltools,
-    htmlwidgets (>= 0.9),
+    htmlwidgets (>= 1.1),
     tidyr,
     hexbin,
     RColorBrewer,
@@ -66,7 +66,9 @@ Suggests:
     png,
     IRdisplay
 Remotes:
-  tidyverse/ggplot2
+  tidyverse/ggplot2,
+  ramnathv/htmlwidgets,
+  rstudio/shiny
 LazyData: true
 RoxygenNote: 6.0.1
 Roxygen: list(markdown = TRUE)

NEWS.md

@@ -3,6 +3,8 @@
 ## NEW FEATURES & IMPROVEMENTS
 
 * Upgraded to plotly.js v1.35.2. A _huge_ amount of features and improvements have been made since v1.29.2 (i.e., the version included in the last CRAN release of the R package - v4.7.1). Highlights include a complete re-write of `scattergl` to make it nearly feature complete with `scatter`, localization of text rendering (i.e., international translations), and two new trace types (`violin` & `table`). Read more about the v1.32.0 release [here](https://codeburst.io/notes-from-the-latest-plotly-js-release-b035a5b43e21) and the complete list of changes [here](https://github.com/plotly/plotly.js/releases).
+* One may now inform `ggplotly()` about the relevant **shiny** output size via `session$clientData`. This ensures `ggplotly()` sizing is closer to **ggplot2** sizing, even on window resize. For an example, run `plotly_example("shiny", "ggplotly_sizing")`.
+* The default `height`/`width` that `ggplotly()` assumes is now more consistently correct in various context, but it also now requires access to one of the following devices: `Cairo::Cairo()`, `png()`, or `jpg()`. 
 * The selection mode can now switch from 'transient' to 'persistent' by holding the 'shift' key. It's still possible to _force_ persistent selection by setting `persistent = TRUE` in `highlight()`, but `persistent = FALSE` (the default) is now recommended since it allows one to switch between [persistent/transient selection](https://plotly-book.cpsievert.me/linking-views-without-shiny.html#transient-versus-persistent-selection) in the browser, rather than at the command line.
 * Instead of an error, `ggplotly(NULL, "message")` and `plotly_build(NULL, "message")` now returns `htmltools::div("message")`, making it easier to relay messages in shiny when data isn't yet ready to plot (see #1116)
 * The `animation_button()` function gains a `label` argument, making it easier to control the label of an animation button generated through the `frame` API (see #1205).

R/ggplotly.R

@@ -7,6 +7,9 @@
 #' graphics device (if no device is open, width/height of a new (off-screen) 
 #' device defaults to 640/480). In other words, `height` and
 #' `width` must be specified at runtime to ensure sizing is correct.
+#' For examples on how to specify the output container's `height`/`width` in a 
+#' shiny app, see `plotly_example("shiny", "ggplotly_sizing")`.
+#' 
 #'
 #' @param p a ggplot object.
 #' @param width Width of the plot in pixels (optional, defaults to automatic sizing).

R/shiny.R

@@ -27,7 +27,8 @@ plotlyOutput <- function(outputId, width = "100%", height = "400px",
     width = width, 
     height = height, 
     inline = inline, 
-    package = "plotly"
+    package = "plotly",
+    reportSize = TRUE
   )
 }
 

inst/examples/shiny/ggplotly_sizing/app.R

@@ -0,0 +1,24 @@
+library(shiny)
+library(plotly)
+
+ui <- fluidPage(
+  plotlyOutput("pid")
+)
+
+server <- function(input, output, session, ...) {
+  
+  # to relay the height/width of the plot's container, we'll query this 
+  # session's client data http://shiny.rstudio.com/articles/client-data.html
+  cdata <- session$clientData
+  
+  output$pid <- renderPlotly({
+    p <- ggplot(iris) + 
+      geom_point(aes(Sepal.Length, Sepal.Width)) +
+      facet_wrap(~Species)
+    
+    ggplotly(p, width = cdata$output_pid_width, height = cdata$output_pid_height)
+  })
+  
+}
+
+shinyApp(ui, server)