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.

Inizia con l’app Shiny minimale fornita e riproduci il problema passando da una scheda all’altra di tabsetPanel prima che renderPlotly termini. Traccia come viene gestita la dimensione di plotlyOutput quando la scheda torna visibile; il lavoro è completato quando entrambi i grafici recuperano la larghezza corretta dopo il ritorno alla scheda iniziale, con un test di regressione per la sequenza di rendering ritardato.