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