How to add a large, colored icon to the center of a shiny modal

I want to create a shiny modal that looks like a scary warning.

Here is what I have so far:

library(shiny)


ui = basicPage(
  actionButton("show", "Show modal dialog")
)

server = function(input, output) {
  observeEvent(input$show, {
    showModal(modalDialog(
      title = icon("bomb"),
      "This is an important message!"
    ))
  })
}

shinyApp(ui, server)

which produces this

How can I make the icon way bigger, centered, and a warning color like orange or red? I'm using bslib for theming so ideally the warning color would be tied to the theme.

This is based on FontAwesome, which allows sizing, see https://fontawesome.com/docs/web/style/size.

Demo:

shiny::icon("bomb")
shiny::icon("bomb", class="fa-2xl")
shiny::icon("bomb", class="fa-10x", style="color: Tomato;")

Respectively:

As for centering it, if you're not afraid to center all <h4> elements on the page, this works:

library(shiny)
ui = basicPage(
  tags$style(HTML("h4 { text-align: center; }")),
  actionButton("show", "Show modal dialog")
)
server = function(input, output) {
  observeEvent(input$show, {
    showModal(modalDialog(
      title = icon("bomb", class="fa-10x", style="color: Tomato;"),
      "This is an important message!"
    ))
  })
}
shinyApp(ui, server)

You can use a sweet alert, but you'll have only four choices for the icon.

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  actionButton(
    inputId = "btn",
    label = "Launch a warning sweet alert",
    icon = icon("check")
  )
)

server <- function(input, output, session) {
  
  observeEvent(input$btn, {
    show_alert(
      title = "Important !!",
      text = "Read this message...",
      type = "warning"
    )
  })
  
}

shinyApp(ui, server)