Shrink DT:: dataTableOutput Size

У меня блестящий интерфейс, и я много использую DT::dataTableOutput и DT::renderDataTable. Однако мне интересно, есть ли способ уменьшить размер данных, например, уменьшить шрифт и таблицу. Как мне это сделать?

Скажем, у меня есть следующий код:

foo <- function(){
  shinyApp(
    ui = fluidPage(
      DT::dataTableOutput("table")
    ),

    server <- function(input, output) {
      x <- data.frame(1:5, 2:6)
      output$table <- DT::renderDataTable(x)
    }
  )
}

Какие параметры или теги следует добавить?

Ответы

div(DT::dataTableOutput("table"), style = "font-size: 75%; width: 75%")

div(DT::dataTableOutput("table"), style = "font-size:50%")