r - 打印长文本字符串 LaTeX/Sweave

Question

在我进行的一项调查结束时，我们会给受访者一个开放式框，让他们告诉我们调查中未涵盖的任何内容。这些评论通常会跨越几页。我熟悉 LaTeX 的 longtable 包，这是我模拟的解决方案:

<<results = tex>>=
cat("\\begin{longtable}{p{14cm}}\n")
cat("\\hline\n")
write.table(toBePrinted, eol = "\\\\\n", col.names = FALSE)
cat("\\hline\n")
cat("\\end{longtable}")
@

虽然此解决方案在技术上可行，但它看起来并不完美，需要改进。我有两个相关的问题:

1. Sweave 输出的文本卫生提示将被视为 tex。例如，如果有人说 你的调查很棒 & 我会花 $$$ 100% 的时间做更多的调查! 特殊字符 &, $, % reak havok当通过 LaTeX 处理时。有没有比 gsub 调用列表更有效的方法来用善意的东西替换有问题的字符？
2. 有关使用 Sweave & LaTeX 打印这些长注释的更好方法的建议。

Answer 1

您可以查看用于创建 latex 表的包 xtable，但我猜这对 longtable 不太适用。或者，查看包 Hmisc 中的函数 latex，它有一个选项“longtable”并允许对输出进行更多控制。

要为 Latex 中使用的特殊字符添加斜杠，您可以这样做:

add.slash <- function(x){
    where <- embed(c(1,gregexpr("[&#$%]",x)[[1]],nchar(x)+1),dim=2)
    out <- paste(apply(where,1,function(y){substr(x,y[2],y[1]-1)}),collapse="\\")
    return(out)
}

> x <- "I print $ and % and & and # and . and ! and ,"

> cat(add.slash(x),"\n")
I print \$ and \% and \& and \# and . and ! and , 

---

编辑: [[:punct:]] 的使用是错误的，它也改变了标点符号等等。代码已更正。反斜杠确实有问题。