Zeilennummer für R-Code mit Knit setzen

Question

Ich frage mich, ob es eine Funktion gibt line numbers mit knitr in .Rnw zu setzen. Ich fand this discussion und diese Dokumente (here und here) aber konnte nicht den Weg finden, Zeilennummern zu setzen. Jede Hilfe wird sehr geschätzt. Danke

Answer 1

Diese Lösung verwendet die LaTeX Angebote Paket, um Zeilennummern zu erstellen. Ich kann sie nur zur Arbeit bringen, indem ich mich über alle Code-Chunks akkumuliere, aber ich stelle mir vor, dass es eine ähnliche Lösung gibt, die Linien nur innerhalb jedes Chunks aufzählt. Hier ist die .Rnw Quelle:

\documentclass{article} 
\usepackage{listings} 
\begin{document} 

<<setup, echo=FALSE>>= 
knit_hooks$set(source = function(x, options) { 
    paste("\\begin{lstlisting}[numbers=left, firstnumber=last]\n", x, 
     "\\end{lstlisting}\n", sep = "") 
}) 
@ 

<<a, results='hold'>>= 
1:2 
3:4 
5:6 
@ 

<<b>>= 
"test1" 
"test2" 
"test3" 
@ 

\end{document} 

Die wichtigsten Teile hierfür sind in der Quelle Haken, which is basically copied from here. Die firstnumber=last teilt Auflistungen mit, um Zeilennummern über Auflistungen zu sammeln. Ohne es sind alle Zeilen mit 1 nummeriert, weil knitr jede Codezeile in eine eigene Auflistung setzt.

Und hier ist das Ergebnis:

Wenn Sie jeder Codeblock von 1 Nummerierung beginnen soll, einen Haken fügen Sie den Zähler zurücksetzen:

knit_hooks$set(reset = function(before, options, envir){ 
if(before){ 
    return("\\setcounter{lstnumber}{1}") 
} 
}) 

und verwenden Sie dann reset=TRUE zu Aktivieren Sie den Haken in jedem Stück, das Sie möchten:

<<a, results='hold', reset=TRUE>>= 
1:2 
3:4 
@