R Shiny调用mutate报错：无适用reactive类对象的处理方法

你收到该报错的直接原因是直接对reactive类型的对象调用了mutate函数。Shiny中的reactive对象本质是函数类型，而非直接的数据框，必须通过[reactive变量名]()的方式调用，才能获取其存储的实际数据结构，直接传入dplyr的操作函数自然会触发类匹配错误。

以下是可直接运行的完整实现逻辑，完全匹配你的需求：

• UI端定义表名多选输入控件、结果表格输出容器
• 服务端先通过响应式逻辑筛选用户选中的表对应数据，再做宽表转换，填充Yes/No标识
• 所有对reactive对象的取值操作都加()调用

library(shiny)
library(dplyr)
library(tidyr)

# 示例输入数据，和你提到的df结构完全一致
df <- data.frame(
  Tables = rep(c("表1", "表2", "表3"), each = 3),
  Variables = c("id", "姓名", "年龄", "id", "性别", "年龄", "id", "姓名", "手机号")
)

ui <- fluidPage(
  selectInput("selected_tables", "选择要对比的表", 
              choices = unique(df$Tables), 
              multiple = TRUE,
              selected = unique(df$Tables)),
  tableOutput("result")
)

server <- function(input, output) {
  # 响应式筛选用户选中的表对应数据
  filtered_data <- reactive({
    filter(df, Tables %in% input$selected_tables)
  })
  
  # 处理生成目标宽表
  output$result <- renderTable({
    # 重点：取reactive变量的值必须加()，拿到实际数据框后再做dplyr操作
    filtered_data() %>%
      mutate(exist = "Yes") %>%
      pivot_wider(names_from = Tables, values_from = exist, values_fill = "No")
  })
}

shinyApp(ui, server)

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