如何在Shiny应用中为DT复选框设置初始TRUE/FALSE值？

你的思路是可行的，但当前代码存在几个细节错误导致未生效，修正后即可实现需求：

核心问题分析 #

1. 复选框选中状态由checked属性控制，而非value：你之前把YN的值赋给value属性，这只会设置复选框的value值，不会改变选中状态。需要根据YN的值添加checked属性来控制是否选中。
2. name属性不匹配：你给每个复选框的name是row_selected1、row_selected2带序号的形式，但后续JS用getElementsByName("row_selected")查找，无法匹配到元素，导致无法获取选中值。
3. 大数据量性能问题：20万行数据直接在R中拼接HTML字符串会影响性能，建议用DT的前端回调渲染复选框。

修正后的实现方案 #

方案1：R端生成复选框列（适合数据量较小场景） #

先修正复选框列的生成代码：

vals$Data[, Select := ifelse(YN == "TRUE", 
                             '<input type="checkbox" name="row_selected" checked>',
                             '<input type="checkbox" name="row_selected">')]

注：如果YN是逻辑型而非字符串，直接用YN == TRUE判断。

然后修正JS代码，确保能正确获取选中行：

tags$script(HTML('$(document).on("click", "input[name=\'row_selected\']", function () {
  var checkedRows = [];
  $("input[name=\'row_selected\']:checked").each(function() {
    // 获取当前行的Brand值作为标识，可根据需求修改列索引（eq(0)对应第一列Brands）
    var brand = $(this).closest("tr").find("td:eq(0)").text();
    checkedRows.push(brand);
  });
  Shiny.onInputChange("checked_rows", checkedRows);
})'))

方案2：DT前端回调渲染（适合20万行大数据量） #

用DT的rowCallback在前端动态生成复选框，避免R端处理大量HTML字符串：

output$your_datatable <- renderDT({
  datatable(
    vals$Data,
    escape = FALSE,
    # 先添加空的Select列
    colnames = c("Brands", "Forecasted_Growth", "Last_Year_Purchase", "Contact", "YN", "Select"),
    rowCallback = JS(
      'function(row, data) {
         // data[4]对应YN列（索引从0开始）
         var checkbox = $(\'<input type="checkbox" name="row_selected">\');
         if(data[4] === "TRUE") {
           checkbox.prop("checked", true);
         }
         // 将复选框插入到第6列（索引5）
         $("td:eq(5)", row).html(checkbox);
       }'
    )
  )
})

对应的JS获取选中值代码和方案1一致。

补充说明 #

• 如果需要获取选中行的其他数据，只需修改JS中td:eq(n)的索引即可（n从0开始对应列的位置）。
• 20万行数据建议开启DT的分页功能，否则页面加载会极慢。

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