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

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

- Miller Zhu

---

很棒的问题！我也很想知道答案~ - Andy Yao

Answer 1

尝试将width: 75%添加到div的style参数中：

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

- ctloftin

---

没问题，当然你可以通过改变数字来调整大小，我只是随意选择了75%。 - ctloftin

Answer 2

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

用于较小的字体（在用户界面中）

- Jimbo

---

但这只会使字体变小，而没有改变表格的大小？ - Miller Zhu

嗯，我不知道表格大小，试试一些HTML标签吧。 - Jimbo