如何将带有引号(" "和)的 R 代码包装为文本？

Question

我有以下R代码，其中嵌入了一些降价

tab_header(    
title = md(paste0(
"<b>",
'<span style="font-size: 11pt;">',input$title_num,'</span>',
"<br>",
'<span style="font-size: 11pt;">',input$title_name,'</span>',
"</b>"))
) %>%

我的目标是将整个代码块转换为文本。每当我在过去这样做的时候，我就会这样做。

mytext <- "y=mx+b"
#which prints like this below
print(mytext)
[1] "y=mx+b"

但是在这种情况下，我有html代码，我使用""和''。

简单地将""或''包裹在引号块周围将不起作用。

解决这个问题的最好方法是什么?

我试图通过rendertext()在我闪亮的应用程序保存这段代码。

所需的目标:

mytext <- " tab_header(    
title = md(paste0(
"<b>",
'<span style="font-size: 11pt;">',input$title_num,'</span>',
"<br>",
'<span style="font-size: 11pt;">',input$title_name,'</span>',
"</b>"))
) %>% "
print(mytext)

Answer 1

从R 4.0.0开始，您可以使用原始文本符号:

mytext <- r"[
tab_header(    
title = md(paste0(
"<b>",
'<span style="font-size: 11pt;">',input$title_num,'</span>',
"<br>",
'<span style="font-size: 11pt;">',input$title_name,'</span>',
"</b>"))
) %>% ]"
mytext
[1] "ntab_header(    n  title = md(paste0(n    "<b>",n    '<span style="font-size: 11pt;">',input$title_num,'</span>',n    "<br>",n    '<span style="font-size: 11pt;">',input$title_name,'</span>',n    "</b>"))n) %>% "

原始字符常量也可以使用类似的语法c++中使用的:"(…)"与…任何字符序列，除了它必须不包含关闭序列)"。分隔符对也可以使用[]和{}，R也可以代替R。

参见?Quotes和这个答案