Disappearing points

I'm using toWebGL to generate a large plotly in my R Shiny app. But when I switch tabs in the app, the points on the plot disappear.

Reproducible example below. Switch between tabs and you'll see points disappear

shinyApp(
  dashboardPage(
    dashboardHeader(title = "Example"),
    dashboardSidebar(
      sidebarMenu(
        menuItem(
          text = 'TAB1',
          tabName = 'tab_1'
        ),
        menuItem(
          text = 'TAB2',
          tabName = 'tab_2'
        )
      )
    ),
    dashboardBody(
      tabItems(
        tabItem(
          tabName = 'tab_1'
        ),
        tabItem(
          tabName = 'tab_2',
          box(
            plotlyOutput(
              "myplot"
            )
          )
        )
      )
    )
  ),
  function(input, output, session) {
    output$myplot <- renderPlotly(expr = {
      toWebGL(plot_ly(mtcars, x = ~mpg, y = ~wt))
    })
  }
)

Inizia con l’esempio riproducibile R Shiny, concentrandoti sulla chiamata a toWebGL e su plotlyOutput all’interno di tabItem. Riproduci il problema passando da una scheda all’altra, quindi traccia il comportamento di renderPlotly e del grafico WebGL quando la scheda è nascosta e viene mostrata di nuovo; il lavoro è completato quando i punti rimangono visibili dopo il passaggio da una scheda all’altra.