在单个降价文件中将多个R脚本渲染为降价

Question

我有几个使用#'进行记录的R脚本，目的是将所有脚本合并到一个单独的.Rmd文件中。

我从this post看到它真的直截了当地多主.Rmd文件中结合使用代码块.Rmd文件

这是不错，但我更愿意把我的代码.R文件，因为它运行的速度更快意目的和文档的渲染不会经常发生。

首先，我在主降价文件，尝试这样：

```{r, child = "script.R"} 
``` 

但是，这并不能正确渲染 - bascally一堆与#'的现在降价的文字。

然后我试图使用什么在这个blog post描述是为了将R脚本在一个单一的降价文件合并：

```{r} 
library(rmarkdown) 
rmarkdown::render("script.R") 
``` 

但这只是产生script.md并没有嵌入降价到主文件。关于如何在主文件中正确渲染.R脚本作为降价的任何想法？

Answer 1

这是我的方法。它将使用rmarkdown::render生成md文件，然后通过将选项results设置为asis来读取md文件的内容并将其合并到主文件中。缺点是该方法会生成一些临时文件，并且可能不是非常高效，但它实现了目标。

--- 
title: "test" 
author: "Consistency" 
date: "2017/6/29" 
output: html_document 
--- 

```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = TRUE) 

join <- function(ls, sep = ", "){ 
    do.call(paste, append(ls, list(sep = sep))) 
} 

inline_render <- function(script_name){ 
    suppressMessages(capture.output(rmarkdown::render(paste0(script_name, ".R"), output_format = "rmarkdown::md_document"), file = "tmp")) 
    cat(join(readLines(paste0(script_name, ".md")), "\n")) 

} 
``` 

```{r script, echo=FALSE, results='asis'} 
inline_render("script") 
``` 

```{r script1, echo=FALSE, results='asis'} 
inline_render("script1") 
```