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

Bắt đầu với ví dụ R Shiny có thể tái hiện, tập trung vào lệnh gọi toWebGL và plotlyOutput bên trong tabItem. Tái hiện sự cố bằng cách chuyển đổi giữa các tab, sau đó theo dõi cách renderPlotly và biểu đồ WebGL hoạt động khi tab bị ẩn rồi được hiển thị lại; hoàn tất khi các điểm vẫn hiển thị sau khi chuyển đổi giữa các tab.