go back to using ggplotly() to prepare the widget for shiny rendering

* the extra call to plotly_build() forces more computation then necessary and fixes #1569
plotly · Jul 13, 2019 · a0fa68f · a0fa68f
1 parent 2a439bc
commit a0fa68f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/shiny.R b/R/shiny.R
@@ -58,9 +58,9 @@ renderPlotly <- function(expr, env = parent.frame(), quoted = FALSE) {
 # Converts a plot, OR a promise of a plot, to plotly
 prepareWidget <- function(x) {
   p <- if (promises::is.promising(x)) {
-    promises::then(x, plotly_build)
+    promises::then(x, ggplotly)
   } else {
-    plotly_build(x)
+    ggplotly(x)
   }
   register_plot_events(p)
   p