将文本放在 shinydashboard 主体的中间

Question

如何将文本准确地放置在这个高度的闪亮仪表板主体左右两端的中间？

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(disable = T),
  dashboardBody(
    fluidRow(
      column(5,),
      column(4,
             span(h2(strong("Covid-19 Situation Dashboard"), style = 'font-size:30px;color:#6cbabf;')))
    )
  )
)

server <- function(input, output) { }

shinyApp(ui, server)

Answer 1

使用align = "center"，如下图

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(disable = T),
  dashboardBody(
    fluidRow(
      #column(5,),
      column(12,
             span(h2(strong("Covid-19 Situation Dashboard"), align = "center", style = 'font-size:30px;color:#6cbabf;')))
    )
  )
)

server <- function(input, output) { }

shinyApp(ui, server)

将文本放在 shinydashboard 主体的中间

Place text in the middle of shinydashboard body

r

shinydashboard