R粘贴功能错误

Question

我试图生成这个输出字符串

CONTAINS(ORIG_DOC,'SECTIONS("7 - Past Medical/Surgical History")(PRECISE FORM OF "DM", PRECISE FORM OF "DM2", "diabetes")') <> 0

使用粘贴功能如下

paste("CONTAINS(ORIG_DOC,'SECTIONS("7 - Past Medical/Surgical History")(PRECISE FORM OF "DM", PRECISE FORM OF "DM2", "diabetes")') <> 0")

我收到一个错误

Error: unexpected numeric constant in "paste("CONTAINS(ORIG_DOC,'SECTIONS("7"

不确定我在这里遗漏了什么，非常感谢任何帮助。

Answer 1

将所有双引号 " 转义为 \" 并使用 noquote:

> txt = noquote(paste("CONTAINS(ORIG_DOC,'SECTIONS(\"7 - Past Medical/Surgical History\") (PRECISE FORM OF \"DM\", PRECISE FORM OF \"DM2\", \"diabetes\")') <> 0"))
> txt
[1] CONTAINS(ORIG_DOC,'SECTIONS("7 - Past Medical/Surgical History") (PRECISE FORM OF "DM", PRECISE FORM OF "DM2", "diabetes")') <> 0
>

R粘贴功能错误

R paste function error

r

paste