R语言中如何将字符串外层双引号替换为单引号（适配mermaid）

我用R的DiagrammeR包生成Mermaid流程图，语法要求外层用单引号，内层用双引号，示例代码如下：

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

但用paste0拼接文本列表时，输出结果的外层始终是双引号：

textn <- c("This is a sentence [<b>]", '"a (panda bear)"')    
textn2 <- paste0(textn, collapse=" 
 ")
textn2
# 当前输出：
"This is a sentence [<b>] 
 \"a (panda bear)\""

我需要的结果是：

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

试过用gsub("\"","'", textn2)，但只替换了内层的引号，外层的双引号没改成单引号，请问怎么解决？

内容的提问来源于stack exchange，提问作者Charlotte Deng