本文介绍了R Shiny selectedInput 在 renderDataTable 单元格内的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我寻找将 selectedInputs 放入 renderDataTable 单元格的解决方案.我找到了 js 解决方案:https://datatables.net/examples/api/form.html ,但是我不知道如何在 Shinyjs 中将这个解决方案作为 renderDataTable 对象来实现.我将不胜感激提示/想法/解决方案如何在闪亮中实现可编辑的 renderDataTable.

I search for solution to put selectedInputs in renderDataTable cells. I found js solutions: https://datatables.net/examples/api/form.html , however I do not know how to implement this solution in shinyjs as renderDataTable object. I would be grateful for hints / ideas / solutions how to implement editable renderDataTable in shiny.

推荐答案

与此非常相似:添加带有 TRUE/FALSE 的列并将其显示为复选框

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.

假设表格中的数据是反应性的,因此它会发生变化,并且表格会重新呈现.您需要按照@yihui 在这里明确解除绑定:https://groups.google.com/forum/#!msg/shiny-discuss/ZUMBGGl1sss/zfcG9c6MBAAJ

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());
        })"))

然后在服务器中,每当您重新渲染数据表时都会触发该函数:

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 Shiny selectedInput 在 renderDataTable 单元格内的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!

08-23 03:16