如何呈现具有确定行高的数据表？

Question

我已经为这样的任务苦苦挣扎了几个小时： 在 R Shiny 中，我需要显示一个包含单列整数的表格，其中 行之间的间距明确（相对较大）。

renderTable() 函数中有 spacing 参数，但即使将其设置为最大值 'l' 仍然不足以达到我的目的。

我尝试使用 xtable 并考虑到来自 Adjust row height xtable R 的示例，但没有结果（我不知道 CSS）。

我在网上找到的最自然的方法是使用DT 包和Scroller 扩展，但下面的代码仍然没有结果

ui.R:

fluidPage(
  sidebarLayout(
    sidebarPanel(
        dataTableOutput('dtable', width = '50%') # argument 'height' does not work here
        ),
    mainPanel()
  )
)

服务器.R：

library(shiny)
library(DT)

function(input, output) {
output$dtable <- DT::renderDataTable({
  data.frame(SSD = c(2, 17, 19, 35))
},
extensions = 'Scroller',
options = list(
  dom = 't',
  ordering = FALSE,
  scroller = list(rowHeight = 100)
)
)
}

它的输出只给出列名（出了什么问题？？），但没有Scroller 扩展，它会显示预期的表格 - 当然间距太小......

Answer 1

您想使用rowCallback 选项并为每一行附加一个样式：

服务器.R

library(shiny)
library(DT)

function(input, output) {
    output$dtable <- DT::renderDataTable({
        data.frame(SSD = c(2, 17, 19, 35))
    },
    options = list(
        dom = 't',
        ordering = FALSE,
        rowCallback = JS("function(r,d) {$(r).attr('height', '100px')}")
    )
    )
}

请注意，随着行数的增加，这可能会导致渲染时间增加