将编织块数据拆分并输出到两个不同的亚硝酸盐中 [英] Splitting knitr Chunk code and output into two different knitrouts

问题描述

knitr Chunk选项results = "hold"可以将输出放在Chunk Code之后.我想知道如何将knitr块代码拆分并输出到可能以Code和Output为标题的两个不同的knitrouts中.预先感谢您的帮助.

The knitr Chunk option results = "hold" can put the output after the Chunk Code. I wonder how to split knitr Chunk code and output into two different knitrouts possibly with heading of Code and Output. Thanks in advance for your help.

\documentclass{article} 
\begin{document}

<< label=Test, results = "hold" >>=
1:100
args(lm)
@ 
\end{document}

所需的输出

1:100
args(lm)

和

 [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18
 [19]  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36
 [37]  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54
 [55]  55  56  57  58  59  60  61  62  63  64  65  66  67  68  69  70  71  72
 [73]  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90
 [91]  91  92  93  94  95  96  97  98  99 100
function (formula, data, subset, weights, na.action, method = "qr", 
    model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, 
    contrasts = NULL, offset, ...) 

已编辑

我知道可以通过放置两个大块来实现，一个大块仅显示代码，另一个大块仅显示代码.对于长文件，这是一个额外的麻烦.我想知道是否可以通过一些钩子获得.

I know this can be done by putting two chunks one showing only code and other showing only code. For long document this is an extra hassle. I wonder if this can be obtained with some hook.

推荐答案

您将不得不尝试格式化，但是您可以通过修改source render_latex钩子，在代码前添加\\noindent\\textbf{Code:}并在其后添加\\noindent\\textbf{Output:}:

You'll have to play around with formatting, but you can achieve this by modifying the source code hook. What I show below is actually a very simple modification of the basic render_latex hook that adds \\noindent\\textbf{Code:} before the code and \\noindent\\textbf{Output:} after it:

\documentclass{article} 
\begin{document}

<<setup, include=FALSE>>=
knit_hooks$set(
source = function(x, options) {
      x = knitr:::hilight_source(x, 'latex', options)
      if (options$highlight) {
        if (options$engine == 'R' || x[1] != '\\noindent') {
          paste(c('\\noindent\\textbf{Code:}\\begin{alltt}', x, '\\end{alltt}', '','\\noindent\\textbf{Output:}'),
                collapse = '\n')
        } else {
          if ((n <- length(x)) > 5) x[n - 3] = sub('\\\\\\\\$', '', x[n - 3])
          paste(c('\\noindent\\textbf{Code:}',x, '','\\noindent\\textbf{Output:}'),
                collapse = '\n')
        }
      } else .verb.hook(x)
    }
)
@

Here's your first chunk.

<<chunk1, results = "hold" >>=
1:100
args(lm)
@ 

And here's another.

<<chunk2, results = "hold">>=
1:5
6:10
@ 

That seems to be it.

\end{document}

结果如下:

感谢@mrbcuda在注释中建议的细微修改，您可以将代码帧和输出帧分开:

Thanks to a slight modification suggested by @mrbcuda in comments means you can separate the code and output frames:

这是setup块的修改:

<<setup, include=FALSE>>=
knit_hooks$set(
source = function(x, options) {
      x = knitr:::hilight_source(x, 'latex', options)
      if (options$highlight) {
        if (options$engine == 'R' || x[1] != '\\noindent') {
          paste(c('\\noindent\\textbf{Code:}\\begin{alltt}', x, '\\end{alltt}', '','\\end{kframe}\\begin{kframe}\\noindent\\textbf{Output:}'),
                collapse = '\n')
        } else {
          if ((n <- length(x)) > 5) x[n - 3] = sub('\\\\\\\\$', '', x[n - 3])
          paste(c('\\noindent\\textbf{Code:}',x, '','\\noindent\\textbf{Output:}'),
                collapse = '\n')
        }
      } else .verb.hook(x)
    }
)
@

以及结果输出:

这篇关于将编织块数据拆分并输出到两个不同的亚硝酸盐中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！