如何在fancyhdr中使用Sweave (R)代码？

Question

我正在使用Sweave生成一个自动生成的定期报告。为了创建一个漂亮的头文件，我使用了fancyhdr包，到目前为止它工作得非常好。现在，因为我的报告是周期性的，所以我想动态地更改标题，而不将参数传递给函数。这就是为什么我写了一个小的R函数，它只是检查哪个周期是最新的。基于此，在R中生成报头串。

长话短说，我知道LaTeX中有\今天，但我需要使用来自R的特定信息，而不仅仅是日期。

下面是我的代码：

   \usepackage{fancyhdr}
 \pagestyle{fancy}

\renewcommand{\chaptermark}[1]{%
\markboth{#1}{}}
\renewcommand{\sectionmark}[1]{%
\markright{\thesection\ #1}}
\fancyhf{}
\fancyhead[LE,RO]{\bfseries\thepage}
\fancyhead[LO]{\rightmark{
<<>>=
print(TexHeader)@
}}
\fancyhead[RE]{\bfseries\leftmark}
\renewcommand{\headrulewidth}{0.5pt}
\renewcommand{\footrulewidth}{0pt}
\addtolength{\headheight}{0.5pt}
\fancypagestyle{plain}{%
\fancyhead{}
\renewcommand{\headrulewidth}{0pt}}

这会导致以下错误：

Package Fancyhdr Warning: \fancyhead's `E' option without twoside option is use
less on input line 23.

这正是我的TexHeader所在的行。

Answer 1

对于单面文档，您可以使用\fancyhead[L]{...}和\fancyhead[R]{...}。

此外，在这种情况下，最好使用<<results=tex, echo=FALSE>>=。下面是一个例子：

\documentclass[a4paper]{report}
\usepackage{fancyhdr}
\usepackage{lipsum}
\pagestyle{fancy}
\renewcommand{\chaptermark}[1]{%
\markboth{#1}{}}
\renewcommand{\sectionmark}[1]{%
\markright{\thesection\ #1}}
\fancyhf{}
\fancyhead[R]{\bfseries\thepage}
\fancyhead[L]{\rightmark{%
<<results=tex, echo=FALSE>>=
TexHeader <- format(Sys.time(), "%c")
cat(TexHeader)
@
}}
\renewcommand{\headrulewidth}{0.5pt}
\renewcommand{\footrulewidth}{0pt}
\addtolength{\headheight}{0.5pt}
\fancypagestyle{plain}{%
\fancyhead{}
\renewcommand{\headrulewidth}{0pt}}

\begin{document}
\lipsum
\end{document}

Answer 2

这只是一个警告，而不是一个错误。警告是关于您为偶数页添加了格式的事实，只有当您使用双面输出时，这才相关，在您的文档类中使用'twoside‘选项激活。否则，fancyhdr会将所有页面视为奇数