如何将Shiny App输出的特殊格式内容转为管道分隔列表用于dplyr过滤？

方法1：手动构建匹配模式 #

直接将目标字符串用paste()函数拼接，指定collapse = "|"生成管道分隔的正则模式：

# 生成管道分隔的匹配规则
pattern <- paste("wrong item", "Wrong order", "completely wrong", collapse = "|")

# 用于dplyr过滤
df %>% 
  filter(str_detect(string, pattern))

方法2：从控制台输出文本自动提取 #

如果是直接复制的控制台输出内容，可以通过字符串处理自动提取目标项并生成模式：

# 复制的原始控制台输出
raw_output <- '[1] "wrong item"       "Wrong order"      "completely wrong"'

# 提取所有引号内的内容并拼接成管道分隔模式
library(stringr)
pattern <- str_c(str_extract_all(raw_output, '"([^"]+)"')[[1]] %>% str_remove_all('"'), collapse = "|")

# 执行过滤
df %>% 
  filter(str_detect(string, pattern))

你之前代码的问题 #

你尝试的l<-paste("wrong item" "Wrong order" "completely wrong")会报错，因为paste()函数的多个输入参数必须用逗号分隔，不能直接连写字符串。

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