Как центрировать текст с помощью 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)