R在renderDataTable单元格内闪亮选择输入

问题描述

我搜索解决方案将selectedInputs放在renderDataTable单元格中。我找到了js解决方案：

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)))
    })
  }
))

请注意，如果您重新投递表，输入将无法正常工作，除非您添加一些额外的代码来取消绑定。

Note that if you rerender the table, the inputs won't work unless you add some extra code to unbind.

编辑：

我们假设表中的数据是反应性的，因此它会更改，表会重新呈现。这里需要明确解除绑定：

Let's say the data in the table is reactive so it changes, and the table rerenders. You will need to explicitely unbind as per @yihui here: https://groups.google.com/forum/#!msg/shiny-discuss/ZUMBGGl1sss/zfcG9c6MBAAJ

所以你需要添加在UI中：

So you need to add in the UI:

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

然后在服务器中，您可以触发该功能，每当您使用以下方式退回datatable：

And then in the Server you trigger the function whenever you rerender the datatable with:

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

colnames参数是列名称的向量，因此当您指定长度为一个FALSE的向量时，它将为您提供一列名为FALSE的表。我不知道从列表中删除列名的简单方法。这将是一个很好的SO问题。

The colnames parameter is a vector of column names so when you specify a length one vector of FALSE it gives you a table with one column named FALSE. I am not sure of a straightforward way of removing column names from datatables. That would be a good SO question on its own.

这篇关于R在renderDataTable单元格内闪亮选择输入的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！