2017-04-23 19 views
0

3つのサブジェクトを含むダッシュボードの並べ替えをしようとしています。したがって、私は3つのボックスを作ったが、私が達成したいのは、メインページの3つのボックスは、ページの全幅をカバーするが、それらは非常に狭いということである。 は、私の理解では、ページの全体の幅は12個の単位であるので、私はこのコードを作っ:Shinyのオブジェクト割り当て

library(shiny) 
library(shinydashboard) 

sidebar <- dashboardSidebar(
    sidebarMenu(
    menuItem("Dashboard", tabName = "main", icon = icon("dashboard")), 
    menuItem("Widgets", icon = icon("th"), tabName = "widgets") 
) 
) 

body <- dashboardBody(
    tabItems(
    tabItem(tabName = "main", 
      tags$head(
       tags$style(HTML(" 
           h2,h4{ 
           text-align: center; 
           } 
           " 
      )) 
      ), 
      h2("Title"), 
      h4("Dashboard"), 
      fluidRow(
       column(4, 
        box(title="Advance Analysis Tools", hr(), 
         tags$ul(tags$li("Object"), tags$li("Object"), tags$li("Object"), tags$li("Object")))), 
       column(4, 
        box(title="Quality",hr(), 
         tags$ul(tags$li("Object"),tags$li("Object")))), 
       column(4, 
        box(title="Operation",hr(), 
         tags$ul(tags$li("Object"),tags$li("Object"),tags$li("Object"),tags$li("Object"), tags$li("Object"), tags$li("Object")))) 
      ) 
      ) 

      ) 
      ) 

ui <- dashboardPage(
    dashboardHeader(title = "Dashboard"), 
    sidebar, 
    body 
) 

server <- function(input, output) { 

} 

shinyApp(ui, server) 

をしかし、3箱が正しく普及されていません。

お知らせください。事前に

おかげで、

マイケル

+0

あなた 'ボディ< - dashboardBody()'関数はlapplyにエラー 'エラーがスローされます(list(...)、tagAssert、class = "tab-pane"): 引数はありません。デフォルトはありません。ローカルバージョンではそうではないでしょうか? – BigDataScientist

+0

はい、申し訳ありませんが、私はコードを更新しました。現在は動作しています。 –

+0

問題はありません。簡略化されたバージョンの作業は感謝しています:) – BigDataScientist

答えて

1

box()機能はまた、あなたがcolumn()機能のためにそれを使用するだけのような幅の引数があります。 おそらく既に知っているように、12はそのパラメータの最大値です。 ボックスの幅は列の幅に関連していることに注意してください。幅パラメータが12のボックスを含む幅パラメータが4の列は、ボックスで完全に埋められ、幅が4の列になります。

などです。

column(4, 
    box(title="Operation",hr(), width = 12, ... 

あなたのような使用sthgの間に空白スペースを取り除きたい場合は、次の offset = 0, style='padding:0px;' はこちらを参照してください。shiny fluidrow column white space

関連する問題