r - 如何使用fluidRow和mainPanel将文本居中？

Question

我想在 fluidRow 中居中一些文本在 mainPanel .因此，我试过:

library(shiny)

ui <- fluidPage(
  mainPanel(
    fluidRow(
      align = "center",
      "How to center this?"
    )
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

但是，文本显然偏离了中心(太靠左了)。如果我省略 mainPanel(...)有用。

Answer 1

它确实居中，mainPanel只是不采取全宽。
如果你看 ?mainPanel() ，width的参数默认为 8。如果您想要全宽，请将其设置为 12。

library(shiny)

ui <- fluidPage(
   mainPanel(
      fluidRow(
         align = "center",
         "How to center this?"
      ), width = 12
   )
)

server <- function(input, output) {}

shinyApp(ui, server)