在字符串中的引号外添加单引号和逗号

Question

我想列出

列表

Ids <- c("00234nisduf", "928347ksjdfn", "92837sdfjkbnfgh")
Ids
[1] "00234nisduf"     "928347ksjdfn"    "92837sdfjkbnfgh"

并将其转换为SOQL查询：

Id_Query <- "'00234nisduf', '928347ksjdfn', '92837sdfjkbnfgh'"

我要查找的输出：'00234nisduf', '928347ksjdfn', '92837sdfjkbnfgh'每个Id周围必须有单引号，每个Id的引号后面都有逗号。

我已尝试paste(Ids, collapse = ",")并尝试与gsub("\\"" "'", Ids)混合但到目前为止没有运气。

提前谢谢！

Answer 1

定义一个接受字符串和新字符串的函数，将sQuote应用于其第二个参数，并使用paste将第二个参数与第一个参数合并。使用

调用该函数

Reduce(your_function, Ids)

编辑：

或者，在一行中：

Reduce(function(x,y) paste(x, y, sep=","), sQuote(Ids))