Chart width error with shiny tabpanels

Hello,

When a plot is loading and at that moment you changes the tabpanel. When you return to the initial tab panel the width of the graph is incorrect.

We have tried all kinds of solutions such as putting the plots inside a column. But nothing works to fix the problem.

Using the following code, when starting the application and you changes to "Hello 2" before the graph of "Hello 1" has been rendered. The graph of "Hello 1" looks like in the following image

and not as in "Hello 2"

library(shiny)

`ui <- fluidPage(
selectInput("choice", "Choose", choices = names(iris), selected = NULL),
tabsetPanel(id="tabset",
tabPanel("Hello 1",value = "C1",
plotlyOutput("case1")),
tabPanel("Hello 2",value = "C2",
plotlyOutput("case2")) ))

server <- function(input, output) {

output$case1 <- renderPlotly({
    Sys.sleep(5)
    plot_ly(iris, x = ~get(input$choice), y = ~Sepal.Length, type = 'scatter', mode = 'markers')
})

output$case2 <- renderPlotly({
    Sys.sleep(5)
    plot_ly(iris, x = ~get(input$choice), y = ~Sepal.Length, type = 'scatter', mode = 'markers')
})

}

shinyApp(ui = ui, server = server)
`

Thanks.

Bắt đầu với ứng dụng Shiny tối giản được cung cấp và tái hiện vấn đề bằng cách chuyển đổi giữa các tab của tabsetPanel trước khi renderPlotly hoàn tất. Theo dõi cách việc định kích thước của plotlyOutput được xử lý khi tab hiển thị trở lại; công việc được xem là hoàn tất khi cả hai biểu đồ lấy lại đúng chiều rộng sau khi quay lại tab ban đầu, kèm theo một bài kiểm thử hồi quy cho chuỗi render bị trì hoãn.