Sweave-胶乳文件:在文本中使用新字体，但保留R代码的原始字体。

Question

使用Sweave，我编写了一个小测试文件，如下所示。由于我想使用不同的字体，所以我加载包fontspec。但是，在.pdf输出中，R代码块也显示了一个新的字体。

\documentclass[a4paper, 12pt]{scrartcl}
\usepackage[a4paper, left=2.5cm, right=2.5cm, top=2.5cm, bottom=2cm]{geometry}
\usepackage{fontspec} % fonts

\begin{document}
\SweaveOpts{concordance=TRUE}

% new font
\fontspec{Cambria}    
Some text. 

% R chunk
<< >>=
x <- 1:10
plot(x)
@

\end{document}

我的问题是:是否可以(使用\DefineVerbatimEnvironment{}?)返回R代码块的默认字体，将字体保留为\fontspec{ }格式的文本？

Answer 1

这比我预想的要难。我找到了答案，here。魔法线似乎是\usepackage[noae]{Sweave}。

我做了一些更改，因为\usepackage{fontspec}似乎期望的不是pdflatex。

\documentclass[a4paper, 12pt]{scrartcl}
\usepackage[a4paper, left=2.5cm, right=2.5cm, top=2.5cm, bottom=2cm]{geometry}
\usepackage[noae]{Sweave}
\usepackage[light,math]{anttor} % Obvious and ugly roman font. 
\usepackage[T1]{fontenc}

\begin{document}
\SweaveOpts{concordance=TRUE}


% new font
Some text. 


% R chunk
<< >>=
x <- 1:10
plot(x)
@

\end{document}