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

從可重現的 R Shiny 範例開始，重點關注 tabItem 中的 toWebGL 呼叫和 plotlyOutput。透過在分頁之間切換來重現問題，然後追蹤分頁隱藏並重新顯示時 renderPlotly 與 WebGL 圖表的行為；當在分頁之間切換後這些點仍然可見時，即表示完成。