这是基于FontAwesome，它允许大小调整，请参阅https://fontawesome.com/docs/web/style/size。
演示：

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

分别为：

至于居中，如果你不怕在页面上居中 * 所有 * <h4>元素，这是可行的：

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)

你可以使用一个甜蜜的提醒，但你只有四个选择的图标。

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)