R＆amp;闪亮 - 侧边栏文本对齐方式合理

Question

我创建了一个Shiny应用程序，您可以在此处查看： 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

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

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")
  ))

这导致：

Answer 2

你遇到问题的那个，页脚存在于ul标签内，问题是由于ul上的{white-space:nowrap}规则。

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

或者使用自定义css {white-space:initial;}

尝试此属性

希望这会有所帮助..