漂亮的波浪号〜来自 R 块和 knitr？ [关闭]

Question

我希望在 LaTeX 中很好地显示代码块中的线性模型。模型调用采用带有波浪号的标准形式 ~ 在 LaTeX 中排版非常糟糕。

\documentclass{article}
\begin{document}
<<>>=
lm(Sepal.Width ~ Sepal.Length, data = iris)
@
\end{document}

代码编成knitr::knit(mwe.Rnw)，然后通过PDFLaTeX运行。

在 LaTeX 中制作漂亮的波浪线非常烦人，让 knitr 制作波浪线似乎并不容易，更容易。对knit 生成的 .tex 文件的检查表明，代码被置于三个环境中，其中\begin{alltt} ... \end{alltt} 是有趣的一个。但是alltt 包没有提供任何对特殊字符的特殊排版的快速修复。

Answer 1

此解决方案的灵感来自 yihui's example on hooks、this post 和我的好友 RJ。

\documentclass{article}
\usepackage{xspace}
\newcommand{\mytilde}{\lower.80ex\hbox{\char`\~}\xspace}
\begin{document}
<<setup, include=FALSE>>=
library(knitr)
hook_source = knit_hooks$get('source')
knit_hooks$set(source = function(x, options) {
  txt = hook_source(x, options)
  # extend the default source hook
  gsub('~', '\\\\mytilde', txt)
})
@
<<results = "hide">>=
lm(Sepal.Width ~ Sepal.Length, data = iris)
@
\end{document}

它还定义了一般使用的\mytilde 命令。例如，R 代码的内联示例：“in the form \texttt{response~\mytilde~predictors} ...”。

包xspace 不是绝对必要的（只要您删除新命令中的xspace），但会使命令更好用。