У меня есть простая блестящая приборная панель с данными в несколько рядов. Есть ли способ увеличить высоту данных, чтобы точно вписаться в блестящую страницу панели инструментов?
## app.R ##
library(shiny)
library(shinydashboard)
library(DT)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
DT::dataTableOutput("mytable"))
)
server <- function(input, output) {
output$mytable = DT::renderDataTable({
head(iris)
})
}
shinyApp(ui, server)