使用 Sweave 和列表进行非连续行编号

Question

我正在用 LaTeX 编写报告，嵌入多个 R 脚本，这些脚本以非连续的 Sweave 块的形式报告。

我在 Stackoverflow 上发现了一些关于如何自定义 Sweave 和 listings 包以突出显示代码和编号行的非常有用的评论。 我修改了原始的 sweave.sty 包，如下所示，以利用 列表，同时避免过多的设置给我的 LaTeX 文档带来负担。

基本上，我在行编号选项方面遇到了麻烦。根据配置（firstnumber=last），行在文档中逐渐编号。 如果我设置 firstnumber=auto ，则每个 R 代码块的编号都会从 1 重新开始。

\RequirePackage[T1]{fontenc}
\RequirePackage{graphicx,ae,fancyvrb}
\IfFileExists{upquote.sty}{\RequirePackage{upquote}}{}
\setkeys{Gin}{width=0.8\textwidth}
\DefineVerbatimEnvironment{Scode}{Verbatim}{fontshape=sl, fontsize=\small}

\newenvironment{Schunk}{}{}

\usepackage{listings}
\newcommand{\indexfonction}[1]{\index{#1@\texttt{#1}}}
\usepackage[usenames,dvipsnames]{color}

\definecolor{gris90}{gray}{0.95}

\lstdefinelanguage{Renhanced}[]{R}{%
   sensitive,%
   morecomment=[l]\#,%
   morestring=[d][\color{RoyalPurple}]",%
   morestring=[d][\color{RoyalPurple}]',
  alsoletter={.\%_},
  alsoother={:_\$}}

\lstset{language=Renhanced,extendedchars=false,
  basicstyle=\small\ttfamily, 
  columns=flexible,
  commentstyle=\textsl,
  numbers=left, 
  numberstyle=\small \ttfamily,
  keywordstyle=\mdseries,
  showstringspaces=false,
  index=[1][keywords], 
  indexstyle=\indexfonction}


\lstnewenvironment{Sinput}[1][]{
 \lstset{%
   language={Renhanced},
   basicstyle=\small \ttfamily,
   columns=flexible,  
   frame=single,                             
   backgroundcolor=\color{gris90},           
   numbers=left, 
   numberstyle=\small \ttfamily,
   firstnumber=last,
   #1
 }
}{}
\lstnewenvironment{Soutput}[1][]{
 \lstset{%
   language={Renhanced},
   basicstyle=\small \ttfamily, 
   columns=flexible,
   numbers=right, 
   numberstyle=\tiny,
   firstnumber=last,
   #1
 }
}{}

我想找到一个中间解决方案，其中编号在同一脚本的不同块中进行，但在不同脚本的开头重新启动表单 1（可能通过手动指定）。

我认为，问题在于我无法手动指定列表的名称，因为 Sweave 在后台执行此操作。

欢迎提出建议！

Answer 1

我实际上找到了一个伪解决方案。

在开始打开新脚本的代码块之前，键入以下代码行：

\begin{lstlisting}[firstnumber=1] 
\end{lstlisting}

这不会在文档中产生任何可见的输出，并将以下块的行编号重置为 1（或任何其他所需的数字）。

不用说，任何更优雅的解决方案仍然受到欢迎！