r-markdown - 在同一个 Rmd 文件下重用 pandoc 和 R 的代码块

Question

我已经编写了以下RMarkdown文件，用于显示使用正确的行号和换行的代码，以及显示代码的输出，基于 Clement 在这个问题中的回答（pandoc 在转换为 pdf 时不会对代码块进行文本换行） ：

---
title: "Reuse code chunk"
output:
  pdf_document: 
    keep_tex: true
  html_notebook: default
editor_options:
  chunk_output_type: inline
header-includes:
  - \usepackage[T1]{fontenc}
  - \usepackage{times}
  - \usepackage{float}
  - \usepackage{booktabs}
  - \usepackage{fvextra} # https://stackoverflow.com/questions/20788464/pandoc-doesnt-text-wrap-code-blocks-when-converting-to-pdf
  - \DefineVerbatimEnvironment{Highlighting}{Verbatim}{breaklines,commandchars=\\\{\}}
---

```{r setup, include=TRUE, message=FALSE}
library(knitr)
library(dplyr)
```

<!-- https://stackoverflow.com/questions/22329685/how-to-display-line-numbers-in-rmarkdown-html-and-pdf/25299194#25299194 -->
```{#code_section .R .numberLines}  
data(iris) 

# Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim. Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu. In enim justo, rhoncus ut, imperdiet a, venenatis vitae, justo. Nullam dictum felis eu pede mollis pretium. Integer tincidunt. Cras dapibus. Vivamus elementum semper nisi. Aenean vulputate eleifend tellus. Aenean leo ligula, porttitor eu, consequat vitae, eleifend ac, enim. Aliquam lorem ante, dapibus in, viverra quis, feugiat a, tellus. Phasellus viverra nulla ut metus varius laoreet. Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante. Etiam sit amet orci eget eros faucibus tincidunt. Duis leo. Sed fringilla mauris sit amet nibh. Donec sodales sagittis magna. Sed consequat, leo eget bibendum sodales, augue velit cursus nunc,
```

```{r code_section, echo=FALSE}
data(iris) 
iris %>%
  head %>%
  kable(.,format = 'latex',booktabs=TRUE,linesep='')

# Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim. Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu. In enim justo, rhoncus ut, imperdiet a, venenatis vitae, justo. Nullam dictum felis eu pede mollis pretium. Integer tincidunt. Cras dapibus. Vivamus elementum semper nisi. Aenean vulputate eleifend tellus. Aenean leo ligula, porttitor eu, consequat vitae, eleifend ac, enim. Aliquam lorem ante, dapibus in, viverra quis, feugiat a, tellus. Phasellus viverra nulla ut metus varius laoreet. Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante. Etiam sit amet orci eget eros faucibus tincidunt. Duis leo. Sed fringilla mauris sit amet nibh. Donec sodales sagittis magna. Sed consequat, leo eget bibendum sodales, augue velit cursus nunc,
```

您可以看到在 pandoc 块和 R 代码块中都重复了相同的块，我认为手动重复该块有点效率低下，我可以以某种方式在 R/pandoc 中重用代码块然后再次使用它（在 pandoc 和 R分别）。

谢谢！

标签： r-markdownpandoc

Answer 1

我建议使用返回所需降价字符串knitr的源代码挂钩（请参阅https://yihui.name/knitr/hooks/ ）。

---
title: "Reuse code chunk"
output:
  pdf_document: 
    keep_tex: true
  html_notebook: default
editor_options:
  chunk_output_type: inline
header-includes:
  - \usepackage[T1]{fontenc}
  - \usepackage{times}
  - \usepackage{float}
  - \usepackage{booktabs}
  - \usepackage{fvextra} # https://stackoverflow.com/questions/20788464/pandoc-doesnt-text-wrap-code-blocks-when-converting-to-pdf
  - \DefineVerbatimEnvironment{Highlighting}{Verbatim}{breaklines,commandchars=\\\{\}}
---

```{r setup, echo=FALSE}
knitr::knit_hooks$set(source = function(x, options) {
  paste(
    collapse = '\n',
    c(
      sprintf('\n\n```{#%s .%s .numberLines}', options$label, options$engine), 
      x, 
      '```\n\n'
    )
  )
})
```

```{r pkgs, include=TRUE, message=FALSE}
library(knitr)
library(dplyr)
```

```{r code_section}
data(iris) 
iris %>%
  head %>%
  kable(.,format = 'latex',booktabs=TRUE,linesep='')

# Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim. Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu. In enim justo, rhoncus ut, imperdiet a, venenatis vitae, justo. Nullam dictum felis eu pede mollis pretium. Integer tincidunt. Cras dapibus. Vivamus elementum semper nisi. Aenean vulputate eleifend tellus. Aenean leo ligula, porttitor eu, consequat vitae, eleifend ac, enim. Aliquam lorem ante, dapibus in, viverra quis, feugiat a, tellus. Phasellus viverra nulla ut metus varius laoreet. Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante. Etiam sit amet orci eget eros faucibus tincidunt. Duis leo. Sed fringilla mauris sit amet nibh. Donec sodales sagittis magna. Sed consequat, leo eget bibendum sodales, augue velit cursus nunc,
```