partial_bundle() not working with Shiny

[lmavila]

I've been trying to use partial_bundle() so that the plotly.js distributed is smaller and my Shiny created website loads faster
When I try to use partial bundle the plot is not showing. Using chrome dev tools it shows "ReferenceError: Plotly is not defined" in plotly.js line 162

Here is a minimal example:

library(shiny)
library(plotly)
ui <- fluidPage(
    fluidRow(plotlyOutput("distPlot"))
)
server <- function(input, output) {
    output$distPlot <- renderPlotly({
        p <- plot_ly(x = 1:10, y = 1:10)%>% partial_bundle()
    })
}
shinyApp(ui = ui, server = server)

[cpsievert]

Yikes, thanks for the report. This should eventually get fixed, but in the meantime, you can workaround it by "pre-inserting" the dependencies in the ui this way:

library(shiny)
library(plotly)

ui <- fluidPage(
  partial_bundle(plot_ly())$dependencies,
  fluidRow(plotlyOutput("distPlot"))
)
server <- function(input, output) {
  output$distPlot <- renderPlotly({
    plot_ly(x = 1:10, y = 1:10) %>% 
      partial_bundle()
  })
}
shinyApp(ui = ui, server = server)

[lmavila]

This worked well. Thanks so much for the workaround and the fast reply.

[wholmes105]

I've been getting the same error in both regular R Markdown and flexdashboard documents whenever I try to use more than one plot with partial_bundle(), but it's worth noting that it generally seems to work when only one of the plots is used with plotly_bundle(). Unfortunately, Adding partial_bundle(plot_ly())$dependencies to my document didn't seem to accomplish the same thing as it did in a regular shiny app. Is there an equivalent workaround for something like this?

---
title: "Plotly Partial Bundle Bug"
runtime: shiny
output: flexdashboard::flex_dashboard
---

```{r include=FALSE}
library(plotly)

partial_bundle(plot_ly(), 'basic')$dependencies

knitr::opts_chunk$set(
echo=FALSE,
message = FALSE
)
```

### Plot A
```{r}
plot_ly(
data = mtcars,
x = ~wt,
y = ~mpg
) %>% partial_bundle('basic')
```

### Plot B
```{r}
plot_ly(
data = mtcars,
x = ~wt,
y = ~mpg
) %>% partial_bundle('basic')
```