使用字符串表达式的Arrow filter()在Shiny中失效，有无解决办法？

问题背景 #

Arrow数据集已支持用字符串表达式过滤，但在Shiny响应式环境里，使用input$size这类动态输入值构建过滤条件时会失效；而用固定字符串字面量或者在Shiny环境外运行相同代码时，过滤逻辑能正常工作。

失效原因 #

Arrow的dplyr接口基于**非标准计算（NSE）**解析表达式，Shiny的响应式输入（如input$size）是以延迟求值的promise形式存在的，Arrow无法直接解析这种动态的promise对象，导致过滤条件无法正确识别。

解决方法 #

通过强制将响应式输入转换为Arrow可识别的静态值，即可解决问题，以下是两种实用方案：

方案1：用!!操作符注入静态值 #

先将响应式输入处理为普通字符串变量，再用!!（强制求值操作符）把变量值注入到过滤表达式中：

output$distPlot <- renderPlot({
  # 先处理输入值，转为静态字符串
  target_size <- str_to_title(input$size)
  
  subset <- faithful_arrow |> 
    filter(str_detect(size, !!target_size)) |> 
    collect()
  
  # 后续绘图逻辑不变
  x    <- subset[, 2]
  bins <- seq(min(x), max(x), length.out = input$bins + 1)
  
  hist(x, breaks = bins, col = 'darkgray', border = 'white',
       xlab = '等待下次喷发的时间（分钟）',
       main = '等待时间直方图')
})

方案2：直接使用字符串形式的过滤表达式 #

利用Arrow支持字符串表达式的特性，直接构造完整的过滤字符串传入filter()：

output$distPlot <- renderPlot({
  target_size <- str_to_title(input$size)
  # 拼接成字符串形式的过滤条件
  filter_str <- paste0("str_detect(size, '", target_size, "')")
  
  subset <- faithful_arrow |> 
    filter(filter_str) |> 
    collect()
  
  # 后续绘图逻辑不变
  x    <- subset[, 2]
  bins <- seq(min(x), max(x), length.out = input$bins + 1)
  
  hist(x, breaks = bins, col = 'darkgray', border = 'white',
       xlab = '等待下次喷发的时间（分钟）',
       main = '等待时间直方图')
})

效果验证 #

修改textInput的输入内容后，直方图会实时根据过滤结果更新，两种方案都能让Arrow在Shiny响应式环境中正常执行动态过滤。

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