如何在rhandsontable中批量设置hot_cell？是否存在hot_cells函数？

针对你提出的需求——当Check列值为TRUE时，将对应行的cyl列设为只读，有两种可行方案：

方法一：批量调用hot_cell实现批量设置 #

rhandsontable没有直接的hot_cells批量设置函数，但可以通过循环或函数式编程的方式，对目标行逐一调用hot_cell，将配置叠加到表格对象上。这里用purrr::reduce简化批量操作：

library(shiny)
library(rhandsontable)
library(purrr)

ui <- fluidPage(
  rHandsontableOutput("Test")
)

server <- function(input, output, session) {
  
  temp_RV <- reactiveValues("DF" = cbind(mtcars, data.frame("Check" = FALSE)))
  
  observeEvent(input$Test, {
    temp_RV$DF <- hot_to_r(input$Test)
  })
  
  output$Test <- renderRHandsontable({
    if(!is.null(temp_RV$DF)) {
      # 初始化表格对象
      hot_table <- rhandsontable(temp_RV$DF)
      
      # 获取Check列值为TRUE的行索引（rhandsontable行索引从0开始）
      target_rows <- which(temp_RV$DF$Check) - 1
      
      # 批量应用hot_cell设置
      if(length(target_rows) > 0){
        hot_table <- reduce(target_rows, function(ht, row){
          ht %>% hot_cell(row = row, col = "cyl", readOnly = TRUE)
        }, .init = hot_table)
      }
      
      hot_table
    }
  })
}

shinyApp(ui, server)

方法二：通过Renderer设置单元格只读属性 #

你之前尝试renderer时的问题在于，没有正确修改Handsontable的cellProperties属性——单元格的只读状态是通过该对象控制的，而非直接修改DOM元素。正确的renderer写法如下：

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  rHandsontableOutput("Test")
)

server <- function(input, output, session) {
  
  temp_RV <- reactiveValues("DF" = cbind(mtcars, data.frame("Check" = FALSE)))
  
  observeEvent(input$Test, {
    temp_RV$DF <- hot_to_r(input$Test)
  })
  
  output$Test <- renderRHandsontable({
    if(!is.null(temp_RV$DF)) {
      rhandsontable(temp_RV$DF) %>%
        hot_col(col = "cyl", renderer = JS("
          function(instance, td, row, col, prop, value, cellProperties) {
            // 调用默认数值渲染器
            Handsontable.renderers.NumericRenderer.apply(this, arguments);
            
            // 获取当前行Check列的值（避免硬编码列索引）
            const checkValue = instance.getData()[row][instance.propToCol('Check')];
            
            // 根据Check值设置只读状态和样式
            if(checkValue) {
              cellProperties.readOnly = true;
              td.style.backgroundColor = '#4c433c';
            } else {
              cellProperties.readOnly = false;
              td.style.backgroundColor = '#93d7ff';
            }
          }
        "))
    }
  })
}

shinyApp(ui, server)

注意事项 #

• 使用renderer时，用instance.propToCol('Check')代替硬编码列索引，可避免列顺序变化导致的代码失效。
• 两种方法各有优劣：批量调用hot_cell更直观，适合简单场景；renderer方法更灵活，适合需要动态根据单元格值调整状态的复杂场景。

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