Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/user-interface/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何呈现具有确定行高的数据表?_R_Datatable_Shiny_Dt - Fatal编程技术网

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

R 如何呈现具有确定行高的数据表?,r,datatable,shiny,dt,R,Datatable,Shiny,Dt,我为这样一项任务奋斗了几个小时: 在R中,我需要显示一个表,该表包含一列整数,行之间的间隔是确定的(相对较大的) 在renderTable()函数中有spating参数,但即使将其设置为最大值'l'对我来说仍然不够 我尝试使用xtable并考虑了来自的示例,但没有结果(我不知道CSS) 我在网上找到的最自然的方法是使用DT包和滚动条扩展,但是下面的代码仍然没有给出结果 ui.R: 服务器.R: library(shiny) library(DT) function(input, output)

我为这样一项任务奋斗了几个小时: 在R中,我需要显示一个表,该表包含一列整数,行之间的间隔是确定的(相对较大的)

renderTable()
函数中有
spating
参数,但即使将其设置为最大值
'l'
对我来说仍然不够

我尝试使用xtable并考虑了来自的示例,但没有结果(我不知道CSS)

我在网上找到的最自然的方法是使用
DT
包和
滚动条
扩展,但是下面的代码仍然没有给出结果

ui.R:

服务器.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)
)
)
}
库(闪亮)
图书馆(DT)
功能(输入、输出){

输出$dtable要使用
rowCallback
选项并将样式附加到每一行:

服务器.R
库(闪亮)
图书馆(DT)
功能(输入、输出){

输出$dtable要使用
rowCallback
选项并将样式附加到每一行:

服务器.R
库(闪亮)
图书馆(DT)
功能(输入、输出){

输出$dtable它完全符合我的要求。谢谢你GGamba!无论如何,我仍然很好奇,
rowHeight
选项是否能产生与其名称一致的效果?可能我的语法有问题?你知道吗?
滚动条
扩展只渲染da的可见部分,这对缩短渲染时间很有用tatable。要做到这一点,它必须知道行的高度,计算要渲染的行数。它不影响行的实际高度,而是用来知道“我在这个视口中渲染多少行?”它正是我想要的。谢谢GGamba!无论如何,我仍然很好奇,
rowHeight
选项是否uld根据其名称产生效果?可能我的语法有问题?你知道吗?
Scroller
扩展只渲染数据表的可见部分,有助于缩短渲染时间。为此,它必须知道行的高度,计算要渲染的行数。它不会影响actu所有行的高度,但它用于知道“在该视口中渲染多少行?”
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)
)
)
}
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')}")
    )
    )
}