如何通过hot_cols实现rhandsontable多复选框列的条件格式化？

你的问题核心在于固定获取了第1列（索引1）的复选框值，而非当前列的状态。以下是修正后的代码，用hot_cols实现多列复选框的条件格式化：

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  rHandsontableOutput('table')
)

server <- function(input, output) {
  df <- data.frame(
    alphabet = letters[1:10],
    include = TRUE,
    include2 = FALSE,
    stringsAsFactors = FALSE
  )
  
  output$table <- rhandsontable::renderRHandsontable({
    col_highlight <- 2:3    
    rhandsontable(df, height = 500, col_highlight = col_highlight - 1) %>%
      hot_cols(
        renderer = "
          function (instance, td, row, col, prop, value, cellProperties) {
            // 先渲染复选框组件
            Handsontable.renderers.CheckboxRenderer.apply(this, arguments);
            
            // 处理目标列列表，确保为数组格式
            let hcols = [];
            if (instance.params && instance.params.col_highlight) {
              hcols = instance.params.col_highlight;
              hcols = Array.isArray(hcols) ? hcols : [hcols];
            }
            
            // 仅对指定列应用背景色，使用当前单元格的value判断状态
            if (hcols.includes(col)) {
              td.style.background = value ? '#C3FA9A' : '#ff4d4d';
            }
          }"
      )
  })
} 

shinyApp(ui, server)

关键修改说明： #

• 替换固定列索引：不再硬编码instance.getData()[row][1]，直接使用渲染函数自带的value参数（当前单元格的复选框状态），更高效且适配多列场景
• 变量作用域优化：用let声明hcols，避免全局变量污染
• 简化逻辑判断：用三元表达式合并两个条件判断，代码更简洁
• 兼容性处理：确保hcols始终为数组格式，兼容单列/多列的传入情况

修改后，所有指定列的复选框都会根据自身选中状态显示对应背景色，无需重复调用hot_col。

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