partial_bundle() not working with Shiny

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)

Bắt đầu với ví dụ Shiny tối thiểu trong issue và tái hiện lỗi của trình duyệt “Plotly is not defined” từ plotly.js. Theo dõi cách partial_bundle() được tích hợp vào đầu ra của Shiny; issue được hoàn thành khi biểu đồ được render trong Shiny mà không có lỗi đó và sử dụng bundle nhỏ hơn.