Io sono la creazione di un cruscotto lucido, e si desidera utilizzare infobox all'interno di un tabpanel. Ma l'altezza del pannello non regolare dinamicamente all'altezza dell'infobox. Se posso integrare un grafico in un pannello, quindi si regola automaticamente.
Il mio codice simile a questo:
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)
Come posso regolare l'altezza del tabpanel all'altezza del infobox?