为 dataframe 的每一行添加前缀和后缀，但最后一行没有后缀，然后全部折叠

Question

我有一个 dataframe 的值，我需要 append 每行的前缀和后缀，希望最后一行我不想添加后缀但做前缀。

然后我需要将此 dataframe 折叠为单个字符串，以便我可以将其传递给 SQL 查询。

我的数据如下所示：

x <- data.frame(products = c("foo","bar","foobar"))

我需要 append "BRAND_NAME LIKE '%"作为前缀和"%' OR"作为后缀，然后折叠，这样我的字符串看起来像：

"BRAND_NAME LIKE '%foo%' OR BRAND_NAME LIKE '%bar%' OR BRAND_NAME LIKE '%foobar%'"

请注意，我需要排除最后一个元素末尾的“OR” 。

我试过使用胶水 package 但还没有找到一种方法来将前缀应用于最后一行

x %>% mutate(new_string = glue("BRAND_NM LIKE '%{products}%' OR"))

我也尝试过 str_remove function 但我担心我的一些产品名称中会包含“OR”，这会打乱我的分析。

str_remove(tail(products,1), " OR")

任何指针将不胜感激。

Answer 1

根据您预期的 output，这可能是您正在寻找的：

paste0( "BRANDNAME LIKE ", paste0( "'%", x$products, "%'", collapse = " OR BRANDNAME LIKE ") )

#[1] "BRANDNAME LIKE '%foo%' OR BRANDNAME LIKE '%bar%' OR BRANDNAME LIKE '%foobar%'"

Answer 2

我认为最好的方法是为所有添加前缀和后缀，然后提取字符串以删除最后一个 OR

library(tidyverse) library(glue)

x <- data.frame(products = c("foo","bar","foobar"))

x$products <- glue("BRAND_NAME LIKE '% {x$products} %' OR ")

现在折叠成单个字符串

glue_collapse(x$products) %>%

现在字符串提取

str_extract(., ".+(?= OR $)")

最后一条语句在末尾查找空格或空格 ($) 以进行匹配，并包括直到但不包括该匹配的所有字符