18

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)
    }
  )
}

我应该添加哪些选项或标签?

4

2 回答 2

23

尝试添加width: 75%到您的style参数div

div(DT::dataTableOutput("table"), style = "font-size: 75%; width: 75%")
于 2015-08-11T17:18:34.497 回答
0
div(DT::dataTableOutput("table"), style = "font-size:50%")

对于较小的字体(在 UI 中)

于 2015-08-10T15:20:44.333 回答