如何在Shiny中将titlePanel居中？

Question

在R的Shiny包中，如何使titlePanel中的文本居中于页面顶部？

Here is an example of what I mean

我用于titlePanel的唯一代码是：

ui <- fluidPage(
  titlePanel("How to Centre Me??")

当我查看文档时，该函数采用的唯一变量是：

titlePanel(title, windowTitle = title)

那么可以将标题居中吗？

谢谢

Answer 1

万一仍然有人需要一个简单的解决方案：

titlePanel(
    h1("First level title", align = "center")
)

Answer 2

您可以使用column（）函数。

像这样：

fluidPage(
           column(3,offset = 4, titlePanel("How to Centre Me??")) 
           )

其中3是列宽和偏移量，您可以根据需要进行调整。

Answer 3

使用CSS：

ui <- fluidPage(
  tags$head(
    tags$style(
      ".title {margin: auto; width: 200px}"
    )
  ),
  tags$div(class="title", titlePanel("Centered title"))
)

Answer 4

或者您可以放弃通常位于侧边栏中央的titlePanel（）并执行以下操作：

<PackageReference Include="xunit.runner.visualstudio" Version="2.4.0" />

不优雅但是很容易。