当在markdown中循环时，edgebundle不会渲染绘图

Question

我正在尝试创建一个自动报告，我使用edgebundleR创建一系列和弦图。

我有一个功能可以做很多东西并且或多或少都有这种形式：

plot_chords <- function(x,t,pos) {
  ...
  stuff I do with the data
  ...
  g <- graph.adjacency(mydata, mode="upper", weighted=TRUE, diag=FALSE)
  return(edgebundle(g))
}

如果我不在循环中使用它，此功能可以正常工作。如果它处于这样的循环中，它就不会出现：

```{r echo = FALSE,message=FALSE, warning = FALSE,results = "asis"}
for (c in unique(df$Group)) {

  cat("\n\n## ",c," - Negative Correlations (min r=",t_neg," - only significative)\n\n")
  plot_chords(subset(df, Group == c),0.5,0)

}
```

我发现一般情况下，除非我使用print：

，否则这在循环内部不起作用

for (c in unique(df$Group)) {
  temp=df[df$Group == c,]
  print(plot_chords(temp,0.5,0))
}

但是印刷品在降价时并不起作用。

如何渲染情节？

感谢。

Answer 1

edgebundle调用返回htmlwidget并且正如您所指出的那样，当不在循环中时，它会正常工作。您的情况的解决方案是使用for循环在临时文件中生成几个特定的​​R代码块，然后将该临时文件评估为主.Rmd文件中的子文件。

例如，在.Rmd文件中，这两个块将加载所需的包并定义一个函数foo，它创建并显示一个随机的edgebundle。

```{r}
set.seed(42)
library(edgebundleR)
library(igraph)
```

## test the function

```{r}
foo <- function() {
  adjm <- matrix(sample(0:1, 100, replace = TRUE, prob = c(0.6, 0.4)), nc = 10)
  g <- graph.adjacency(adjm)
  edgebundle(g)
}
```

在一个块中调用foo两次将在输出.html文档中按预期工作。

```{r}
foo()
foo()
```

要在for循环中生成多个edgebudle，请尝试此操作。编写for循环以使用所需的R块填充temp.Rmd文件。您需要根据应用需要对其进行修改。

## test the function in a for loop

```{r}
tmpfile <- tempfile(fileext = ".Rmd")
for(i in 1:3) {
  cat("### This is edgebundle", i, "of 3.\n```{r}\nfoo()\n```\n",
      file = tmpfile, append = TRUE) 
}
```

tmpfile的内容如下所示：

### This is edgebundle 1 of 3.
```{r}
foo()
```
### This is edgebundle 2 of 3.
```{r}
foo()
```
### This is edgebundle 3 of 3.
```{r}
foo()
```

要在主输出文件中显示小部件，请使用以下块：

```{r child = tmpfile}
```

完整的.Rmd文件和结果：

<强> example.Rmd：

# edgebundleR and knitr
Answer to https://stackoverflow.com/questions/47926520/edgebundle-doesnt-render-plot-when-in-loop-in-markdown

```{r}
set.seed(42)
library(edgebundleR)
library(igraph)
```

## test the function

```{r}
foo <- function() {
  adjm <- matrix(sample(0:1, 100, replace = TRUE, prob = c(0.6, 0.4)), nc = 10)
  g <- graph.adjacency(adjm)
  edgebundle(g)
}
foo()
foo()
```

## test the function in a for loop

```{r}
tmpfile <- tempfile(fileext = ".Rmd")
for(i in 1:3) {
  cat("### This is edgebundle", i, "of 3.\n```{r}\nfoo()\n```\n",
      file = tmpfile, append = TRUE) 
}
```

```{r child = tmpfile}
```

```{r}
print(sessionInfo(), local = FALSE)
```