Parlak bir gösterge tablosu oluşturuyorum ve bir tabpanel içinde ınfobox kullanmak istiyorum. Ancak panelin yüksekliği dinamik olarak bilgi kutusunun yüksekliğine ayarlanmıyor. Bir grafiği bir panele entegre edersem, otomatik olarak ayarlanır.
Kodum şuna benziyor:
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)
Sekme panelinin yüksekliğini bilgi kutusunun yüksekliğine nasıl ayarlayabilirim?