나는 대시보드를 만들과 함께 빛나고 사용하려면 올 내부 tabpanel. 하지만 높이는 패널의하지 않는 동적으로 조정하는 고도의 정보박스. 면 나는 통합 차트에서 위원회,그것은 자동으로 조정됩니다.
내 코드는 다음과 같습니다:
library("shiny")
library("shinydashboard")
library("shinydashboardPlus")
ui <- dashboardPage(
header = dashboardHeader()
,sidebar = dashboardSidebar()
,body = dashboardBody(
tabBox(
tabPanel(
title = "Tab1"
,infoBoxOutput(outputId = "ibo")
)
,tabPanel(
title = "Tab2"
,plotOutput(outputId = "po")
)
,width = 12
)
)
)
server <- function(input, output) {
output$ibo <- renderInfoBox({
infoBox(
title = "Infobox"
,value = 42
)
})
output$po <- renderPlot({
plot(mtcars$mpg, mtcars$cyl)
})
}
shinyApp(ui = ui, server = server)
는 방법을 조정할 수 있습니의 높이 tabpanel 의 높이로 올?