R＆シャイニーサイドバーのテキストの配置は、私はあなたがここに正しく閲覧できシャイニーアプリケーションを作成した

Question

を正当化。 問題は、アプリケーションのサイドバーのテキストです。それはプロットの後ろに隠れているので、私はその整列をサイドバー内で正当化する必要があります。 各コード部分は次のとおりです。

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

次のように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") 
)) 

これは、その結果：

Answer 2

問題が発生しているフッターがulタグの内側にあり、問題はulの{white-space:nowrap}ルールのためです。

可能であれば、フッターをulタグの外側に印刷すると問題が解決するはずです。

または他のカスタムCSSにこのことができます{white-space:initial;}

希望を使用してこのプロパティを試してみてください。..