Vertical scrollbar incorrectly appears when dialog has no buttons and is short

[daattali]

Example:

library(shiny)

ui <- fluidPage()

server <- function(input, output, session) {
  shinyalert::shinyalert("test")
}

shinyApp(ui, server)

This only happens if there are no buttons