2017-04-23 4 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는 해당 매개 변수의 최대 값입니다. 상자 너비는 열 너비를 기준으로합니다. 너비 매개 변수가 4 인 열은 너비 매개 변수가 12 인 상자를 포함하여 상자로 완전히 채워지고 너비가 4 인 열을 가져옵니다.

이렇게 사용할 수 있습니다. 가 offset = 0, style='padding:0px;' 여기 참조 : 같은

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

당신이 원하는 경우

가 사용 sthg 사이에 빈 공간을 없애 shiny fluidrow column white space