JavaScript error dialog header is hidden when using {shinydashboard}

[ismirsehregal]

The header of the new JavaScript error dialog is covered by the dashboardHeader when using {shinydashboard}:

library(shiny)
library(shinydashboard)

devmode()

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(textInput("duplicated_id", ""), textInput("duplicated_id", "")),
  dashboardBody()
)

server <- function(input, output, session) {}

shinyApp(ui, server)

---

Expected behaviour:

library(shiny)

devmode()

ui <- basicPage(textInput("duplicated_id", ""), textInput("duplicated_id", ""))

server <- function(input, output, session) {}

shinyApp(ui, server)