web-dev-qa-db-ja.com

動的Rマークダウンブロックを生成する

私のデータセットには、Rマークダウンを使用してHTMLレポートに入れて分析したい60のグループがあります。各グループに同じ分析を適用したいので、コードブロック/分析を動的に生成できる方法があることを望んでいます。

単純に、ブロックを60回複製することは避けたいと思います。

私はこれに出くわしました thisknitrで子を使用する質問。私はこれをアイリスデータセットで複製しようとしました。以下の私の例では、私がやりたかったのは、種ごとに1つずつ、3つのH4タイトルを生成することだけでした。

私はこのアプローチと結婚していないことは注目に値します、それは私がやろうとしていることに関連しているように見えます。

使用したファイルは次のとおりです。

parent.RMDファイル。これが私の「マスター」レポートになります。

Automate Chunks of Analysis in R Markdown 
========================================================


```{r setup, echo=FALSE}
library(knitr)
```


```{r run-numeric-md, include=FALSE}
out = NULL
for (i in as.character(unique(iris$Species))) {
  out = c(out, knit_child('child.Rmd'))
}

`` `

そしてここにchild.Rmd。

#### Species = `r [i]`
rknitrr-markdown
25
Btibert3

knit_expand()を試してください：

Automate Chunks of Analysis in R Markdown 
========================================================

```{r setup, echo=FALSE}
library(knitr)
```

```{r run-numeric-md, include=FALSE}
out = NULL
for (i in as.character(unique(iris$Species))) {
  out = c(out, knit_expand(text='#### Species = {{i}}'))
}
```

`r paste(knit(text = out), collapse = '\n')`

'child.rmd'のようなテンプレートファイルを作成し、これをforループに入れることもできるので、複雑な分析を引用符で囲む必要はありません。

out = c(out, knit_expand('template.rmd'))

次に、'template.rmd'を次のようにします。

#### Species = {{i}}
22
Sam Dickson

@samのソリューションを使用して、次の汎用関数を作成しました。 grfDf列にDiagrammeRグラフオブジェクトがあるgraphというデータフレームがあるとします。以下は、Rmdですべてのグラフをプロットするために必要なすべてです：r require(DiagrammeR); renderHtmlWidgetList(grfDf$graph, render_graph)。警告については、コードを参照してください。

```
require(knitr)

#' Render a list of htmlWidgets using various tricks
#'
#' @param widgetList A list of htmlWidget objects to be rendered
#' @param renderFunction The function to render individual widgets. It can be either a name
#'   of the rendering function, e.g., "render_graph" in DiagrammeR, or the actual function to
#'   be passed to this call.
#' @return The knitted string. This is to be included in the output by using `r renderHtmlWidgetList(...)`;
#' @details This is a collection of various tricks. See the URL citations in the code.
#'   Note that this code does alliterate global variables starting with "renderHtmlWidgetList_".
#'   You may want to delete them using rm(list = ls(pattern="renderHtmlWidgetList_*")).
#' @examples Inlcude the following in the Rmd directly
#'   `r require(DiagrammeR); renderHtmlWidgetList(grfDf$graph, render_graph)`
#'
#' @export

renderHtmlWidgetList <- function(widgetList, renderFunction){
  # error checking
  stopifnot(is.list(widgetList))
  # handles if the renderFunction is actually a function
  # http://stackoverflow.com/questions/10520772/in-r-how-to-get-an-objects-name-after-it-is-sent-to-a-function
  if(is.function(renderFunction)) {
    # convert back to string, because we need to knit it later
    renderFunction <- deparse(substitute(renderFunction))
  }
  stopifnot(is.character(renderFunction) & length(renderFunction)==1)
  stopifnot(exists(renderFunction, mode = "function"))
  # inject global vars; make sure we have a unique global var name
  gVarName<- paste0("renderHtmlWidgetList_", sample(1:10000, 1))
  while (exists(gVarName)) {
    gVarName<- paste0("renderHtmlWidgetList_", sample(1:10000, 1))
  }
  # assigning widgetList to a global temp var
  # http://stackoverflow.com/questions/5510966/create-a-variable-name-with-paste-in-r
  assign(gVarName, widgetList, envir = .GlobalEnv)
  # solution from https://Gist.github.com/ReportMort/9ccb544a337fd1778179
  out <- NULL
  knitPrefix <- "\n```{r results='asis', cache=FALSE, echo=FALSE}\n\n"
  knitSuffix <- "\n\n```"
  for (i in 1:length(widgetList)) {
    knit_expanded <- paste0(knitPrefix, renderFunction, "(", gVarName, "[[", i, "]])")
    out = c(out, knit_expanded)
  }
  #invisible(out)
  paste(knitr::knit(text = out), collapse = '\n')
}
```
6
Gary Feng