R & Shiny - 边栏文本对齐对齐

Question

我创建了一个闪亮的应用程序，您可以在这里查看： http://www.agristats.eu/en/prices-agricultural-commodities/

此应用的 R 代码是 here。问题在于应用程序侧边栏中的文本。它一直隐藏在地块后面，所以我需要在侧边栏内对齐它。各自的代码部分是：

sidebar <- dashboardSidebar(sidebarMenu(selectInput('commodity', 'Προϊόν', 
    choices = unique(data_quandl$data_product)),
    tags$footer(tags$p("This application is based on Quandl data."))))

更令人费解的是，在同一个网站中，我有另一个类似的应用程序，其中相应的侧边栏文本被正确打印。您可以查看应用正常运行 here.

我该如何解决这个问题？

Answer 1

你遇到的问题，页脚出现在 ul 标签内，问题是因为 ul 上的 {white-space:nowrap} 规则。

如果可以在ul标签外打印页脚，应该可以解决问题。

或者尝试这个属性使用自定义 css {white-space:initial;}

希望这对您有所帮助..

Answer 2

在 sidebarMenu 之外添加 footer 将达到以下目的：

sidebar <- dashboardSidebar(sidebarMenu(
  selectInput('commodity', 'Προϊόν', choices = unique(data_quandl$data_product))
  ),
  tags$footer(
    tags$p("This application is based on Quandl data.")))

输出：

其他解决方法是使用 div 标记来对齐文本。

sidebar <- dashboardSidebar(sidebarMenu(
  selectInput('commodity', 'Προϊόν', choices = unique(data_quandl$data_product)),
  div(style="text-align:center","This application is based on",br(), "Quandl Data")
  ))

这导致：

R & Shiny - 边栏文本对齐对齐

R & Shiny - Sidebar text alignment justified

css

r

shiny

shinydashboard