Question

我构建了一个闪亮的数据表，其中包含两个包含复选框的列。我找到了这段代码，（不记得确切地从哪里开始），

output$Sum_table = renderDataTable({

  SPY <- uploaded.data()

  #Display table with checkbox buttons
  df.var.names <- names(SPY)
  addCheckboxButtons <- paste0('<input type="checkbox" name="row', df.var.names, '" value="', df.var.names, '">',"")
  addCheckboxButtons1 <- paste0('<input type="checkbox" name="row', df.var.names, '" value="', df.var.names, '">',"")

  Table<-DT::datatable(cbind(df.var.names,Exclude_variables=addCheckboxButtons,
                             Choose_Target_variable=addCheckboxButtons1), 
                       options = list(orderClasses = TRUE,
                                      lengthMenu = c(5, 25, 50),
                                      pageLength = length(df.var.names), 
                                      callback = JS("function(table) {
                                                    table.on('change.dt', 'tr td input:checkbox', function() {
                                                    setTimeout(function () {
                                                    Shiny.onInputChange('rows', 
          $(this).add('tr td input:checkbox:checked').parent().siblings(':last-child').map(function() {
                                                    return $(this).text();
                                                    }).get())
                                                    }, 10); 
                                                    });
}")),escape = FALSE)
  Table
  })

我使用此代码来构建一个包含三列的数据表，第一个是变量名称，第二个是复选框列，用于选择我想从模型中排除的变量（多个），第三个是复选框列选择目标变量（单选）。

我还不知道如何访问这些选中的复选框。例如：

varibles to exclude＆lt; - 第二列中选中的复选框

目标变量＆lt; - 第三栏中选中的复选框

有谁知道怎么做？

如何获取DT对象中单击的复选框的索引

0 个答案: