将r中的双引号替换为单引号

Question

我试图使用https://mermaid-js.github.io/mermaid/#/输出一些文本到流程图。这是我需要遵循的语法，即双引号外的单引号。例如,

library(DiagrammeR)
mermaid('graph TB n Trial_A["<b>Trial_A </b> 
<br/> (BGL + PCD vars)
<br/> (XAL)
<br/> (RAX)
<br/> (NOW)"] 
n style Trial_A fill:#FCFBFD n ')

所以我试图使用paste0组合文本列表，但它总是在外面的双引号:

textn <- c("This is a sentence [<b>]", '"a (panda bear)"')    
textn2 <- paste0(textn, collapse=" n ")
textn2
"This is a sentence [<b>] n "a (panda bear)""

我想要

'This is a sentence [<b>] n "a (panda bear)"'

我有什么办法可以做到吗?我尝试了gsub(""","'", textn2)，它只改变了里面的双引号。

Answer 1

noquote()就是你要找的。

1。查看输入和输出:

Run:
noquote("Your text")

Your text

2。添加单引号:

运行:
paste0("'", noquote("Your text"), "'")

"'Your text'"

3。再次使用noquote函数(抱歉嵌套函数-它不是很漂亮，但它工作):

运行:
noquote(paste0("'", noquote("Your text"), "'"))

'Your text'