小编Han*_*ans的帖子

我希望我的数据表显示取决于表中复选框状态的内容。我找到了两者的帮助，包括DT中的复选框以及更改数据表的内容，但是当我尝试将这些解决方案组合在一起时，却没有得到想要的东西。选中一个框时，该表将重绘两次，这是我想要的第一次，但稍后又切换回去。

这是几乎应该执行的代码...在我发疯之前是否有人在帮忙？

library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    DT::dataTableOutput('x1'),
    verbatimTextOutput('x2')
  ),

  server = function(input, output, session) {
    # create a character vector of shiny inputs
    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
    }

    # obtain the values of inputs
    shinyValue = function(id, len) {
      unlist(lapply(seq_len(len), function(i) {
        value = input[[paste0(id, i)]]
        if (is.null(value)) TRUE else value
      }))
    }

    n = …