收縮DT :: dataTableOutput大小

Question

我有一個閃亮的界面，我使用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)
    }
  )
}

我應該添加哪些選項或標簽？

Answer 1

嘗試將width: 75%添加到div style參數：

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

Answer 2

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

對於較小的字體（在UI中）