R Shiny中‘object of type closure is not subsettable’错误及DT行删除按钮问题

你遇到的object of type ‘closure’ is not subsettable错误，核心原因是对Shiny中reactive表达式的访问方式错误，以及没有正确基于核心数据源values$data进行修改。下面是具体的修改方案和解释：

错误根源 #

1. df是一个reactive()表达式，它本质是一个函数（closure），你不能直接用df$data访问它的输出，必须通过df()调用它来获取返回的DataFrame。
2. 你的核心数据源是values$data（reactiveValues对象），删除行时应该修改这个源头数据，而不是直接修改df的输出——因为df是依赖values$data生成的，修改源头后df会自动重新计算更新。

修改后的完整代码 #

library(shiny)
library(DT)

shinyApp(
  ui <- fluidPage(DT::dataTableOutput("data")),
  server <- function(input, output) {
    values <- reactiveValues(data = NULL)
    # 初始化核心数据源
    values$data <- as.data.frame(
      cbind(
        c("a", "d", "b", "c", "e", "f"), 
        c(1463, 159, 54, 52, 52, 220), 
        c(0.7315, 0.0795, 0.027, 0.026, 0.026, 0.11)
      ),
      stringsAsFactors = FALSE
    )
    # 生成删除按钮的工具函数
    shinyInput <- function(FUN, len, id, ...) {
      inputs <- character(len)
      for (i in seq_len(len)) {
        inputs[i] <- as.character(FUN(paste0(id, i), ...))
      }
      inputs
    }
    # 基于核心数据源生成带按钮的DataFrame（自动响应values$data的变化）
    df <- reactive({
      data.frame(
        Delete = shinyInput(
          actionButton, 
          nrow(values$data), 
          'button_', 
          label = "Remove", 
          onclick = 'Shiny.onInputChange(\"select_button\", this.id)'
        ),
        values$data, 
        stringsAsFactors = FALSE,
        row.names = NULL  # 避免自定义行号导致的索引混乱
      )
    })
    # 渲染DT表格，注意调用df()获取reactive表达式的输出
    output$data <- DT::renderDataTable(
      df(), 
      server = FALSE, 
      escape = FALSE, 
      selection = 'none'
    )
    # 处理按钮点击：修改核心数据源values$data
    observeEvent(input$select_button, {
      # 解析点击按钮对应的行号
      selectedRow <- as.numeric(strsplit(input$select_button, "_")[[1]][2])
      # 从核心数据源中删除对应行
      values$data <- values$data[-selectedRow, , drop = FALSE]
    })
  }
)

关键修改点说明 #

1. 正确访问reactive表达式：
   将renderDataTable中的df$data改为df()，通过调用reactive表达式获取它返回的DataFrame。

2. 修改核心数据源而非派生数据：
   在按钮点击的响应逻辑中，直接修改values$data——这是你需要保留的核心数据源，修改后df会自动重新计算，表格也会同步更新，同时values$data始终保持最新状态，可直接供其他函数使用。

3. 优化行索引处理：
   去掉自定义行号row.names = 1:nrow(values$data)，改用row.names = NULL，避免删除行后行号与按钮ID对应的索引出现不匹配的问题。

4. 初始化数据时禁用自动因子转换：
   在初始化values$data时添加stringsAsFactors = FALSE，避免字符列被自动转换为因子，简化后续数据操作。

内容的提问来源于stack exchange，提问作者tomsu