Screen moves when confirmSweetAlert is closed.

[reisner]

Hi there,

In the example below, when you click on a datatable row, a sweetalert opens. When you close this window, the screen moves down to the table. Is this a bug with confirmSweetAlert? If I remove the tabsetPanel, the issue goes away, so there is some kind of interaction happening here.

library(shiny)
library(shinyWidgets)
library(DT)

ui <- bootstrapPage(
  "Just", br(), "Some", br(), "Filler", br(), br(), br(), br(), br(), br(),
  tabsetPanel(
    tabPanel("Data", DT::dataTableOutput("results"))
  )
)

server <- function(input, output) {
  output$results <- DT::renderDataTable({
    data.frame(a = runif(500), b = runif(500)) |>
      DT::datatable(selection = 'single', options = list(pageLength = 100))
  })

  observeEvent(input$results_rows_selected, {
    shinyWidgets::confirmSweetAlert(inputId = "info")
  })
}

shinyApp(ui = ui, server = server)

Before:

After:

Tested on Mac OSX (Chrome and Safari).
Package Info:

R 4.3.0
shiny 1.7.5.1
shinyWidgets 0.8.0
DT 0.30

Thanks for the great package!

[pvictor]

I don't have a solution... This does not seem to occur in Firefox or when using latest Bootstrap assets via {bsllib} (e.g. bslib::page_fluid()).