Flexdashboard使用Reactive时报closure类型对象不可子集化错误问询

Shiny中reactive()返回的是响应式函数对象，不是直接的数据集对象。你必须通过加()的方式调用这个函数，才能拿到它返回的实际数据框。直接对reactive生成的对象用$取列，相当于对函数本身取属性，自然会触发报错。

你的错误写法本质：

# 错误示例：对响应式函数直接取列
df <- reactive(unique_symbols %>% filter(symbol == input$ticker))
df$security_name

你现有的侧边栏代码逻辑是正确的，只要放在对应侧边栏代码块中即可：

```{r, context="sidebar"}
unique_symbols <- query_to_df(db, query_1)
selectInput('ticker', 'Ticker', unique_symbols$symbol)

## 1. 基础响应式数据调用
正确的调用方式是先执行响应式函数获取数据框，再提取对应字段，所有涉及响应式变量的逻辑都必须放在响应式上下文中：
```r
# 定义响应式数据框：返回选中ticker对应的主表信息
selected_ticker_info <- reactive({
  unique_symbols %>% 
    filter(symbol == input$ticker)
})

# 提取security_name字段，同样做成响应式变量
selected_security_name <- reactive({
  selected_ticker_info()$security_name
})

# 渲染展示字段
renderText({
  paste0("当前选中标的名称：", selected_security_name())
})

2. 对接后续补充信息SQL查询 #

如果需要基于选中的ticker查询其他表的补充数据，可直接在响应式函数中构造动态SQL查询：

# 定义响应式函数：获取对应标的的补充信息
supplement_table <- reactive({
  # 构造参数化查询，避免SQL注入风险
  second_query <- glue::glue_sql(
    "SELECT * FROM 补充信息表 WHERE ticker = {input$ticker}",
    .con = db
  )
  query_to_df(db, second_query)
})

# 渲染补充信息表格
renderTable({
  supplement_table()
})

• 响应式变量只能在reactive()、render*()、observe()这类Shiny响应式上下文中调用，直接在全局环境执行selected_ticker_info()会触发报错
• 首次查询得到的unique_symbols已经是本地数据框，筛选操作不需要重复查询数据库，性能开销极低
• 构造动态SQL时建议使用glue::glue_sql或者DBI::sqlInterpolate做参数化处理，避免SQL注入风险

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