javascript - rhandsontable 如何限制最大值。行数

Question

我在 Shiny 的应用程序中有一个 rhandsontable，它有 2 行。它使用 reactiveValues() 在其中加载值。

禁止通过拖动单元格来创建额外的行

fillHandle = list(direction='vertical', autoInsertRow=FALSE))

应该允许用户通过上下文菜单创建额外的行，但不超过 10 行。我虽然使用 customOpts 来做，用户可以在其中添加新行直到 nrow(table) == 10，但我对 javascript 非常不满意。我试着用不同的方式来做(见下面的代码)，但没能成功。另外，有没有办法以另一种方式做到这一点？

这是我到目前为止的代码片段:

output$table <- renderRHandsontable({
  rhandsontable(data.frame(rv_values),
                fillHandle = list(direction='vertical', autoInsertRow=FALSE)) %>%
    hot_context_menu(allowRowEdit = TRUE, allowColEdit = FALSE)
})

我尝试像这样手动更改 allowRowEdit，但不太清楚如何让它工作:

observeEvent(input$table, {
  if(nrow(hot_to_r(input$table)) > 10)
#magic happens here

})

有什么想法吗？

Answer 1

对不起，我问得太快了。花了 2 个小时并发布在这里之后，我找到了一个简单的解决方案:将 maxRows = 10 添加到 rhandsontable，就是这样。

 rhandsontable(data.frame(rv_data),
                fillHandle = list(direction='vertical', autoInsertRow=FALSE),
                maxRows = 10) %>%
    hot_context_menu(allowRowEdit = TRUE, allowColEdit = FALSE)