如何在R中将字符串与引号和括号连接起来

Question

我试图连接两个字符串。第一个字符串应如下所示：

a <- paste("//*/a[@href = 'abcd1234.cfmcyc_dt=",eopm, "&orig_id=1234']",sep="")
> a 
 [1] "//*/a[@href = 'abcd1234.cfmcyc_dt=20160731&orig_id=1234']"

然后我想添加第二个字符串，它只是一个右括号，如下所示：

b <- ")"
c <- noquote(b)
[1] )

我尝试以下操作，但双引号会移到最后：

paste(a,c)
"//*/a[@href = 'abcd1234.cfmcyc_dt=20160731&orig_id=1234'])"

我希望它看起来像这样：

"//*/a[@href = 'abcd1234.cfmcyc_dt=20160731&orig_id=1234']")

我试图逃避报价，但我似乎无法得到它。

Answer 1

尝试这样做：

a <- paste("//*/a[@href = 'abcd1234.cfmcyc_dt=", 'eopm' , "&orig_id=1234']",sep="")
b <- '")'
c <- noquote(b)

结果

paste(a, c)
[1] "//*/a[@href = 'abcd1234.cfmcyc_dt=eopm&orig_id=1234'] \")"

Answer 2

试试这个：

eopm <- 20160731    
a <- paste0("//*/a[@href = 'abcd1234.cfmcyc_dt=",eopm, "&orig_id=1234']")
b <- '")'
c <- noquote(b)
noquote(paste0('"',a,c))

<强>结果：

> noquote(paste0('"',a,c))
[1] "//*/a[@href = 'abcd1234.cfmcyc_dt=20160731&orig_id=1234']")