rhandsontable 的渲染器使表格变慢/呆滞任何修复？

编程问答 2022-05-01

问题描述

我发现 rhandsontable renderer 非常慢。当我在表格中添加渲染器时，我什至无法控制/点击/滚动。

这是我正在使用的数据。我的数据有超过 10 万行和 10 列。示例数据有大约 24k 行。

library(tidyverse)
library(rhandsontable)
set.seed(123)
df <- data.frame(col1 = c('A','A','B','C','C'),col2 = c('flower','pet','bird','tree','flower','tree'),col3 = sample(0:25,12,replace = TRUE))
for (i in 1:10){
  df <- rbind(df,df)
}
df1 <-  df[order(df$col1,factor(df$col2,levels = c('pet','flower'))),]
row.names(df1) <- NULL
df1$col1[duplicated(df1$col1)] <- ""

这是rhandsontable的代码：

editable_rows <- seq(1,nrow(df1),by = 4)
rhandsontable(df1,selectCallback = TRUE,readOnly = TRUE,rowHeaders = FALSE,digits = 0) %>%
  hot_table(highlightRow = TRUE,stretchH = "all") %>%
  hot_cols(fixedRowsTop = 1,format = "00",renderer = "
           function (instance,td,row,col,prop,value,cellProperties) {
               Handsontable.renderers.TextRenderer.apply(this,arguments);
               if(instance.getData()[row][0] != ''){
                td.style.background = '#b3e0ff';
               }
            }") %>%
  hot_row(editable_rows,readOnly = FALSE)
)

我还尝试将表格的第一行设置为粗体。还是一样的问题。令人惊讶的是，当我删除渲染器时，一切正常。这是我删除渲染器的表格代码：

editable_rows <- seq(1,format = "00") %>%
  hot_row(editable_rows,readOnly = FALSE)
)

我该怎么办？ 我是否必须在代码中安装/添加一些东西才能使其顺利运行？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

handsontablerrrhandsontableshinyshinyjs