逃避R中的特殊乳胶字符

Question

编辑： 在软件包Hmisc中找到函数latexTranslate。似乎是我在寻找的东西。

是否有一个R函数转义特殊的乳胶字符（使用cat后）。

即

char <- "Some # special & chars ^ in \this > text"
cat(someFunction(char))

预期产出： 一些＃special \＆amp; $ \ backslash $ this $＆gt; $ text

中的字符\ ^

如果没有，关于如何自己做的任何想法。由于逃避“\”，我对gsub等的所有尝试都失败了。到目前为止我做了什么......

escapeLatexSpecials <- function(x) {
  x <- gsub("\\", "$\\backslash$", x, fixed = T)
  x <- gsub("#", "\\\\#", x)
  x <- gsub("$", "\\\\$", x)
  x <- gsub("%", "\\\\%", x)
  x <- gsub("&", "\\\\&", x)
  x <- gsub("~", "\\\\~", x)
  x <- gsub("_", "\\\\_", x)
  x <- gsub("^", "\\\\^", x)
  x <- gsub("\\{", "\\\\{", x)
  x <- gsub("\\}", "\\\\}", x)
  x <- gsub(">", "$>$", x)
  x <- gsub("<", "$<$", x)
  return(x)
}

cat(escapeLatexSpecials("Some # special & chars ^ in \this > text"))
\^Some \# special \& chars ^ in     his $>$ text\$