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箱が正しく普及されていません。
お知らせください。事前に
おかげで、
マイケル
あなた 'ボディ< - dashboardBody()'関数はlapplyにエラー 'エラーがスローされます(list(...)、tagAssert、class = "tab-pane"): 引数はありません。デフォルトはありません。ローカルバージョンではそうではないでしょうか? – BigDataScientist
はい、申し訳ありませんが、私はコードを更新しました。現在は動作しています。 –
問題はありません。簡略化されたバージョンの作業は感謝しています:) – BigDataScientist