Shrink DT :: dataTableOutput Размер

Question

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

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

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

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

Какие варианты или теги я должен добавить?

Answer 1

Попробуйте добавить width: 75% к вашему style параметра div:

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

Answer 2

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

для меньшего шрифта (в UI)