Ткплот в html с knitr

Question

Я пытаюсь включить tkplot от igraph пакет внутри документа HTML (вязать из Rmd) через knitr пакет. Я задал очень похожий вопрос о латексе (который должен быть более сложным) здесь. Yihui ответил, но я не могу перенести этот крючок и учиться в этой ситуации. Как я могу вставить следующее tkplot в документе HTML, используя Rmd-файл в knitr?

```{r setup, include=FALSE}
library(igraph)
library(tcltk)
```


```{r}
edges <- structure(c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", 
    "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "A", "B", "C", 
    "D", "E", "F", "G", "H", "I", "J", "E", "G", "G", "F", "H", "G", 
    "D", "J", "J", "D", "B", "C", "D", "I", "I", "H", "A", "B", "G", 
    "I", "F", "D", "F", "J", "D", "B", "E", "E", "A", "E"), .Dim = c(30L, 
    2L), .Dimnames = list(NULL, c("person", "choice")))

g <- graph.data.frame(edges, directed=TRUE)
tkplot(g)
```

Answer 1

Менее привлекательный, но следуя совету Yihui:

```{r setup, include=FALSE}
library(igraph)
library(rgl)

knit_hooks$set(
    webgl = hook_webgl

)
```


```{r, webgl=TRUE, fig.width=12, fig.height=12}
edges <- structure(c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", 
    "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "A", "B", "C", 
    "D", "E", "F", "G", "H", "I", "J", "E", "G", "G", "F", "H", "G", 
    "D", "J", "J", "D", "B", "C", "D", "I", "I", "H", "A", "B", "G", 
    "I", "F", "D", "F", "J", "D", "B", "E", "E", "A", "E"), .Dim = c(30L, 
    2L), .Dimnames = list(NULL, c("person", "choice")))

g <- graph.data.frame(edges, directed=TRUE)
rglplot(g)
```