根据功能输入动态创建Rmd文件

我想动态创建和编织

.Rmd

文件，并在浏览器中显示分析结果。我正在使用

knitr

和

knit2html

来实现这一点。目前我正在使用以下方法：

myHTMLsummary <- function(data,x) {

  con <- paste0(getwd(),"/myHTMLSummary.Rmd")
  writeLines ("

Data frame summary
========================================================

Summary:
```{r,echo=FALSE}
summary(data[x])
```",con)

  knit2html(con,quiet=TRUE)

  if (interactive()) browseURL(paste0(getwd(),"/myHTMLSummary.html"))  
}

myHTMLsummary(iris,"Sepal.Length")

---

myHTMLsummary也许这不是一个好例子——我认为
writeLines（）
在这里没有用处。我的意思是内容实际上是一个固定的字符串，那么为什么不提前将其保存到
myHTMLSummary.Rmd
？那么你只需要

myHTMLsummary <- function(data, x) {
  knit2html("myHTMLSummary.Rmd", quiet=TRUE)
  if (interactive()) browseURL(file.path(getwd(), "myHTMLSummary.html"))  
}

myHTMLsummary(iris, "Sepal.Length")

myHTMLsummary试一试怎么样？似乎有关联。