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))
    })
  }
)

Beginne mit dem reproduzierbaren R Shiny-Beispiel und konzentriere dich auf den toWebGL-Aufruf und plotlyOutput innerhalb von tabItem. Reproduziere das Problem, indem du zwischen den Tabs wechselst, und verfolge anschließend, wie sich renderPlotly und der WebGL-Plot verhalten, wenn der Tab ausgeblendet und wieder angezeigt wird; abgeschlossen ist die Aufgabe, wenn die Punkte nach dem Wechseln zwischen den Tabs sichtbar bleiben.