html - R Shiny selectedInput在renderDataTable单元格内

我搜索将selectedInputs放入renderDataTable单元格的解决方案。我找到了js解决方案：https://datatables.net/examples/api/form.html，但是我不知道如何在shinyjs中将此解决方案实现为renderDataTable对象。我将非常感谢如何在shiny中实现可编辑renderDataTable的提示/想法/解决方案。

最佳答案

与此非常相似：adding a column with TRUE/FALSE and showing that as a checkbox

library(shiny)
library(DT)
runApp(list(
  ui = basicPage(
    h2('The mtcars data'),
    DT::dataTableOutput('mytable'),
    h2("Selected"),
    tableOutput("checked")
  ),

  server = function(input, output) {
    # helper function for making checkbox
    shinyInput = function(FUN, len, id, ...) {
      inputs = character(len)
      for (i in seq_len(len)) {
        inputs[i] = as.character(FUN(paste0(id, i), label = NULL, ...))
      }
      inputs
    }
    # datatable with checkbox
    output$mytable = DT::renderDataTable({
      data.frame(mtcars,Rating=shinyInput(selectInput,nrow(mtcars),"selecter_",
                                            choices=1:5, width="60px"))
    }, selection='none',server = FALSE, escape = FALSE, options = list(
      paging=TRUE,
      preDrawCallback = JS('function() {
Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() {
Shiny.bindAll(this.api().table().node()); } ')
    ) )
    # helper function for reading checkbox
    shinyValue = function(id, len) {
      unlist(lapply(seq_len(len), function(i) {
        value = input[[paste0(id, i)]]
        if (is.null(value)) NA else value
      }))
    }
    # output read checkboxes
    output$checked <- renderTable({
      data.frame(selected=shinyValue("selecter_",nrow(mtcars)))
    })
  }
))

请注意，如果重新提交表，除非添加一些额外的代码来解除绑定，否则输入将不起作用。
编辑：
假设表中的数据是被动的，所以它会发生变化，并且表会重新提交。您需要按照@yihui在这里明确解除绑定：https://groups.google.com/forum/#!msg/shiny-discuss/ZUMBGGl1sss/zfcG9c6MBAAJ
所以您需要在UI中添加：

tags$script(HTML("Shiny.addCustomMessageHandler('unbind-DT', function(id) {
          Shiny.unbindAll($('#'+id).find('table').DataTable().table().node());
        })"))

然后在服务器中，每当使用以下命令重新提交数据表时，都会触发该函数：

session$sendCustomMessage('unbind-DT', 'mytable')

colnames参数是列名的向量，因此当您指定长度时，一个向量为FALSE，它会给您一个表，其中一个列名为FALSE。我不确定是否可以直接从数据表中删除列名。这本身就是个好问题。