在shiny中对齐标题面板中的图像

tags$head(
  tags$style(
    HTML("
      #image-container {
        display: flex;
        justify-content: center;
        align-items: center;
      }
    ")
  )
)

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(
      HTML("
        #image-container {
          display: flex;
          justify-content: center;
          align-items: center;
        }
      ")
    )
  ),
  
  titlePanel(
    column(
      width = 12,
      div(id = "image-container",
          img(src = "image.jpg", alt = "Image")
      )
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui = ui, server = server)