如何从函数生成rmarkDown文件

Question

如果有人能帮助我，我会非常感谢。

我想创建一个函数，该函数从函数中指定的参数中返回一些文件，例如数据范围和图。

我还希望此功能生成一个rmarkDown文件，其中将显示该函数中生成的表和图。这也许可以使用rmarkDown :: Render（）在功能中，但是我不确定如何确切。

该函数将是类似的：

# dataset:
data=data.frame(value=rnorm(100))


myfunction <- function(data, color){
  
p <- ggplot(data, aes(x=value)) + 
  geom_histogram(color = color)

data2 <- data$col2 <- 1:100

mylist <- list(plot = p, data = data2)
return(mylist)

}

test <- myfunction(data, "red")

想法是该函数在计算机上的文件夹中生成rmarkdown文件，并且用户可以免费指定参数。谢谢！

Answer 1

简短的答案是“是”。这是一个潜在的解决方案：

library(ggplot2)

# dataset:
data=data.frame(value=rnorm(100))


myfunction <- function(data, color){
  
  p <- ggplot(data, aes(x=value)) + 
    geom_histogram(color = color)
  
  cat("---
title: \"example Rmd\"
author: \"Jared_Mamrot\"
date: \'2022-06-06\'
output: html_document
---
  
\`\`\`{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
\`\`\`

## Example plot
\`\`\`{r example, echo=TRUE}
p <- ggplot(data, aes(x=value)) + 
  geom_histogram(color = color)
p
\`\`\`", 
file = "tmp.Rmd")
  rmarkdown::render("tmp.Rmd")
  data2 <- data$col2 <- 1:100
  
  mylist <- list(plot = p, data = data2)
  return(mylist)
  
}

test <- myfunction(data, "red")

输出（“ tmp.html”）：

example Rmd
Jared_Mamrot
2022-06-06
Example plot
p <- ggplot(data, aes(x=value)) + 
  geom_histogram(color = color)
p
## `stat_bin()` using `bins = 30`. Pick better value with
## `binwidth`.

test2 <- myfunction(data, "deepskyblue")

output（“ tmp.html”）：

example Rmd
Jared_Mamrot
2022-06-06
Example plot
p <- ggplot(data, aes(x=value)) + 
  geom_histogram(color = color)
p
## `stat_bin()` using `bins = 30`. Pick better value with
## `binwidth`.

Answer 2

这将采用MyFunction的输出，并使用Knitr :: Spin将其作为HTML或PDF呈现。如果输出称为测试，则它将创建一个称为test.r的文件，该文件将其插入test.md中，然后将其呈现为test.html（test.pdf（如果已指定了PDF_Document（），则已指定）。所有文件都在当前目录中。请注意，这将模块化的列表的生成和HTML或PDF输出的生成分开。

library(gglot2)
library(knitr)
library(rmarkdown)

# inputs are a named list of R objects and optional output type
spin_list <- function(List, output_format = html_document()) {
  stem <- deparse(substitute(List))
  Rfile <- paste0(stem, ".R")
  cat("#' ---\n#' title: \"", stem, "\"\n#' ---\n", file = Rfile, sep = "")
  for(nm in names(List)) {
    s <- sprintf("\n#+ %s, echo=FALSE\nprint(List[['%s']])\n", nm, nm)
    cat(s, file = Rfile, append = TRUE)
  }
  spin(Rfile)
  md <- paste0(stem, ".md")
  render(md, output_format)
}

spin_list(test) # test is created in question
browseURL("test.html")

生成的测试是：

#' ---
#' title: "test"
#' ---

#+ plot, echo=FALSE
print(List[['plot']])

#+ data, echo=FALSE
print(List[['data']])