如何在.Rnw输出文件中输入行号时保持编织风格？

Question

我已经阅读了很多问题和相关答案，但我没有找到解决方案！我的要求与此类似： Putting line number for R code with knitr，但我希望保持Knitr的标准风格。用户Thomas建议将language=R添加到列表选项中，但这不会更改输出。

这样的结果：

会很棒！ （主题与LINE编号无关）。 我试过使用render_listings()函数：

\documentclass{article}
\usepackage{listings}

\lstdefinestyle{Rstyle}{%
  fancyvrb=FALSE,escapechar=`,language=R,%
  basicstyle={\Rcolor\Sweavesize\ttfamily},%         Added \ttfamily
  backgroundcolor=\Rbackground,%
  showstringspaces=false,%
  keywordstyle=\Rcolor,%
  commentstyle={\Rcommentcolor\ttfamily\itshape},%
  %literate=                                         Removed
  alsoother={$},%
  numbers=left,                    
  numbersep=5pt, 
  alsoletter={.<-},%
  otherkeywords={!,!=,~,$,*,\&,\%/\%,\%*\%,\%\%,<-,<<-,/},%
  escapeinside={(*}{*)}}%

\begin{document}

<<setup, include=FALSE>>=
render_listings()
@

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

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

\end{document}

也许我必须修改sweavel.sty文件，但我不知道该怎么做。