从 R 中获取带有正确转义引号的 linux 命令语法

Question

我正在尝试使用来自联系表单的一堆值的粘贴在 R 中构建一个 linux sendemail 命令。消息部分将包含单引号和/或双引号。根据这篇文章 (How to escape double quote inside a double quote?)，我确定我需要完成已经打开的一个 (')，放置转义的一个 (\')，然后打开另一个 (')。

例如，当直接从 linux 命令行运行时（使用实际电子邮件地址时），此方法有效：

sendemail -f mary@test.com -t bob@test.com -u 'Subject here' -m 'My message'\''s text has single quote or maybe "double quotes".' -s smtp.gmail.com:587 -o tls=yes -xu from@mail.com -xp xxxxxx

消息部分来自联系表单，我想通过电子邮件将该消息发送给我们的团队。我尝试使用 gsub 用 '\'' 替换单引号，因此 sendemail 将成功发送消息，但我没有找到正确的 gsub 语法。我已经尝试过这种类型的各种旋转：

gsub("'", "'\''", message)

gsub("\'", "'\\''", message)

等等...我尝试过使用fixed、perl等。我似乎无法获得所需的语法。

我没有反斜杠或 2 个反斜杠，而 sendemail 只需要一个反斜杠。

当然，我可以从消息中删除单引号和双引号，这样就可以了。不过，如果可能，我更愿意“按原样”保留消息。

这甚至可以用 gsub 和粘贴吗？

这是我正在做的代码 sn-p：

 message = gsub("\'", "\\\'", input$mailAndStoreModalText)
 message = gsub("\"", "\\\"", message)
 print( message)

如果我的输入是 - 这是“最好的”音乐 - 上面的 gsub 只会产生相同的结果，但反斜杠为 0。然后这失败了：

team.email = paste0("sendemail -f ", user.email, 
                   " -t ", distr.list,
                   " -u 'Contact Form Submitted' -m", 
                   " 'Priority: ", priority," ", message, 
                   "' -s smtp.gmail.com:587 -o tls=yes -xu sender@test.com -xp xxxxx")

 t <- try(system(team.email, intern = TRUE))

Answer 1

如果您链接gsubs，您应该第二次传递message 变量。但是，您可以这样使用它：

message <- gsub("\"", "\\\"", gsub("\'", "\\\'", input$mailAndStoreModalText, fixed=TRUE), fixed=TRUE)

或基于正则表达式的替换：

message <- gsub("([\"'])", "\\\\\\1", input$mailAndStoreModalText)

两者都会输出This\'s the \"best\" music。

请参阅R demo online。请注意，cat(message, "\n") 命令向您显示 message 保存的文字字符串，而不是您尝试打印 message 时获得的 字符串文字。

此外，([\"']) 正则表达式匹配并捕获到第 1 组 " 或 ' 并且 "\\\\\\1" 替换模式将整个匹配替换为 \（使用 4 个反斜杠定义），然后第 1 组中的值 (\\1)。