R Shiny：如何通过数值输入自动添加rhandsontable行（无需右键）

要实现无需右键点击，直接通过numericInput（ID为Noi）的数值自动添加对应行数的行，核心思路是利用Shiny的响应式特性，直接在服务器端根据输入值调整表格的数据源，而非依赖右键菜单的JS回调。以下是修改后的完整代码：

library(shiny)
library(rhandsontable)
library(shinyjs)

ui <- fluidPage(  
  sidebarLayout(
    sidebarPanel(
      h3("Input parameter"),
      numericInput(inputId = "Noi", label = "Row Count", value = 7, min = 0, max = 1000)
    ),
    mainPanel(
      useShinyjs(),
      rHandsontableOutput(outputId = 'Adjusttable', width ='100%', height = '677px'),
      dataTableOutput(outputId = "Init_Tbl")
    )
  )
)

server <- function(input, output, session) {    
  # 响应式数据框：根据Noi的值自动调整行数
  DF <- reactive({
    # 初始5行数据
    init_df <- data.frame(
      ID = 1:5,
      Column2 = 0, 
      Start = "D",
      FM = "",
      stringsAsFactors = FALSE
    )
    
    # 获取需要添加的行数
    add_rows <- input$Noi
    
    if(add_rows > 0){
      # 生成要添加的空行（默认值与初始行一致）
      new_rows <- data.frame(
        ID = (nrow(init_df)+1):(nrow(init_df)+add_rows),
        Column2 = 0,
        Start = "D",
        FM = "",
        stringsAsFactors = FALSE
      )
      # 合并初始行和新行
      DF_Out <- rbind(init_df, new_rows)
    } else {
      # 如果Noi为0，只保留初始行
      DF_Out <- init_df
    }
    
    return(DF_Out)
  })

  output$Adjusttable <- renderRHandsontable({  
    DF() %>% 
      rhandsontable(
        width = 280, 
        height = 677,
        stretchH = "all"
      ) %>%
      # 若仍需右键菜单可保留，这里移除了自定义添加行的选项
      hot_context_menu()
  }) 
} 

shinyApp(ui, server)

关键修改说明： #

1. 响应式数据源：将DF改为依赖input$Noi的响应式对象，根据输入数值动态计算并添加新行，确保输入变化时表格自动更新。
2. 移除JS右键回调：不再依赖自定义右键菜单的JS函数，直接通过R代码控制表格行数，逻辑更清晰且符合Shiny的响应式设计。
3. 默认值处理：添加的新行沿用初始行的默认值（如Column2=0、Start="D"），保证表格格式统一；当Noi为0时，仅显示初始5行。

内容的提问来源于stack exchange，提问作者Raghavan vmvs