R，Sweave，LaTeX - 要在LaTeX中打印的轉義變量？

Question

我一直在尋找過去的2天，雖然我發現堆棧溢出和Google上的其他討論類似的問題，但我沒有發現任何與我的請求相符的問題。

我有一個我支持的預先存在的應用程序，它是圍繞R.構建的。Sweave Rnw模板文件用於生成.tex文件，用於生成.pdf文件。

內RNW，有現有的代碼，例如這樣的：

\begin{tabular}{lll} 
& {\bf \textcolor{TitlesColor}{Report name:}} & \Sexpr{print(myReport$report_name)}\\ 
& {\bf \textcolor{TitlesColor}{Report date:}} & \today \\ 
& {\bf \textcolor{TitlesColor}{Course name:}} & \Sexpr{print(myReport$courseInfo$shortname)}\\ 
& {\bf \textcolor{TitlesColor}{Start date:}} & \Sexpr{print(myReport$courseInfo$startdate_readable)}\\ 
& {\bf \textcolor{TitlesColor}{Instructor:}} & \Sexpr{print(paste(myReport$instructor$lastname, collapse="| "))}\\ 
\end{tabular} 

的問題是，myReport $ courseInfo $短名稱有需要進行轉義爲乳膠，因爲它包含的字符，如&（值這迫使LaTeX拋出關於表列的錯誤）。 我試過包括seqinr庫，並在整個數據對象上使用stresc，但仍然生成的.tex文件顯示了未命名的&短名稱。

我還沒有完全熟悉R，但是在玩模板時，我發現上面的「print（）」調用是不需要的，因爲只需在\ Sexpr中直接指定變量導致打印值，但仍記錄在.tex中時，我的轉義值不轉義。

我也試圖將stresc直接放在\ Sexpr（而不是打印）中，沒有任何區別。

所以看起來R/Sweave自己的過程是剝離斜槓，這意味着我可能需要雙斜槓值，但是我對R知道如何做到這一點並不熟悉。

什麼是將動態數據打印到.tex文件的正確方法？

---

UPDATE： 基於@阿龍的回答，這裏是我創建的功能：

# Sanitizes variables for displaying within LaTeX via Sexpr 
# Adds slashes to LaTeX special characters, which results in single-slash in tex output 
sanitizeLatexS <- function(str) { 
    gsub('([#$%&~_\\^\\\\{}])', '\\\\\\\\\\1', str, perl = TRUE); 
} 

我更新的模板（如在我上面的原帖引用）現在看起來是這樣的：

\begin{tabular}{lll} 
& {\bf \textcolor{TitlesColor}{Report name:}} & \Sexpr{sanitizeLatexS(myReport$report_name)}\\ 
& {\bf \textcolor{TitlesColor}{Report date:}} & \today \\ 
& {\bf \textcolor{TitlesColor}{Course name:}} & \Sexpr{sanitizeLatexS(myReport$courseInfo$shortname)}\\ 
& {\bf \textcolor{TitlesColor}{Start date:}} & \Sexpr{sanitizeLatexS(myReport$courseInfo$startdate_readable)}\\ 
& {\bf \textcolor{TitlesColor}{Instructor(s):}} & \Sexpr{sanitizeLatexS(paste(myReport$instructorList$lastname, collapse="| "))}\\ 
\end{tabular} 

因此，一個&的字符串現在正確地顯示在生成的LaTeX文件中：

一些字符串\ &其他字符串

Answer 1

您可以使用\verb或者您可以插入一個四重反斜槓，這是在最終的tex文件中獲取一個所需的四個反斜槓，因爲它經歷了將雙「\」轉換爲單個「\」的兩個打印操作。

\documentclass{article} 
\begin{document} 
<<echo=FALSE, results=hide>>= 
sanitize <- function(str) { 
    result <- str 
    result <- gsub("&", "\\\\&", result, fixed = TRUE) 
    result <- gsub("_", "\\\\_", result, fixed = TRUE) 
    result 
} 
@ 

<<>>= 
(foo <- "test & _") 
sanitize(foo) 
@ 

My string is ``\verb+\Sexpr{foo}+''. When sanitized, it's ``\Sexpr{sanitize(foo)}''. 

\end{document} 

Answer 2

能否\verb命令的幫助嗎？

Answer 3

或者您也可以使用Sweave製作表格;當使用tex輸出而不是Sexpr時，只需要一個雙反斜槓，因爲我的sanitize1在這裏，或者stresc做得更完全。

你會填寫d與你的價值觀（myReport$report_name而不是"My_Report_Name"，例如），而不是我做了的人。

<<echo=FALSE, results=tex>>= 
sanitize1 <- function(str) { 
    result <- str 
    result <- gsub("&", "\\&", result, fixed = TRUE) 
    result <- gsub("_", "\\_", result, fixed = TRUE) 
    result 
} 
d <- rbind(c("Report name:","My_Report_Name"), 
      c("Report date:","\\today"), 
      c("Course name:","STAT101"), 
      c("Start date:", "23 Mar 2011"), 
      c("Instructor:", "Aaron & Jon L.")) 
cat("\\begin{tabular}{lll}\n") 
for(i in 1:nrow(d)) { 
    cat("& {\\textbf{",d[i,1],"}} &", sanitize1(d[i,2]), "\\\\\n", sep="") 
} 
cat("\\end{tabular}\n") 
@ 

Answer 4

的Hmisc封裝具有latexTranslate功能設計成用於膠乳製備字符串。從它的幫助文件：

latexTranslate平移特定 項字符串乳膠 格式，例如，使一個^ 2 = \ $^2 \ $爲變量標籤內 標。 如果greek == TRUE，希臘字母的乳房名稱（例如， 「alpha」）將添加反斜槓 。數學模式根據需要插入 。 latexTranslate假定 輸入文本始終有匹配項，例如[） []（（），並通過\ $周邊\ $ 是OK。