在Shiny中垂直对齐图像

ui <- fluidPage(
  tags$div(id = "image-container",
           img(src = "path_to_image.jpg", width = "200px", height = "200px"))
)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
      #image-container {
        display: flex;
        align-items: center;
        justify-content: center;
      }
    "))
  ),
  tags$div(id = "image-container",
           img(src = "path_to_image.jpg", width = "200px", height = "200px"))
)