Добавить htmlwidget из R в слайд PowerPoint

Question

Как добавить вывод диаграммы htmlwidget из DiagrammeR::grViz() в слайд PowerPoint? Я бы предпочел сохранить векторную графику и свести к минимуму ручные прикосновения.

Код в main.R ниже визуализирует диаграмму DOT как htmlwidget

# ./code/digraph-test.dot 
digraph my_plot_name {
A->B->C;
}

# main.R
library(DiagrammeR)
digraph_test <- grViz("./code/digraph-test.dot")

Я хотел бы добавить этот вывод на слайд PowerPoint. Я адаптировал следующий код из этого поста.

library( ReporteRs )
require( ggplot2 )
mydoc = pptx( )
mydoc = addSlide( mydoc, slide.layout = "Title and Content" )
mydoc = addTitle( mydoc, "Plot examples" )
myplot = grViz("./code/digraph-test.dot")
# myplot = qplot(Sepal.Length, Petal.Length
#                , data = iris, color = Species
#                , size = Petal.Width, alpha = I(0.7))
mydoc = addPlot( mydoc, function( ) print( myplot ), vector.graphic=TRUE)
writeDoc( mydoc, file = "test plot.pptx" )

Выдает следующую ошибку:

Error in .jcall(slide, "I", "add", dml.object) : 
  javax.xml.bind.UnmarshalException
 - with linked exception:
[org.xml.sax.SAXParseException; lineNumber: 1; columnNumber: 2; The markup in the document preceding the root element must be well-formed.]

Кажется, что некоторые люди имеют успех с надстройкой LiveWeb для PowerPoint. Я столкнулся с проблемой ActiveX, нашел только решения для взлома и решил не преследовать. Должно быть простое решение, верно?

Answer 1

По предложению @alistaire, Rmarkdown будет лучшим решением для этого графика, но если он вам нужен в PowerPoint, я предлагаю использовать пакет webshot, чтобы получить его в виде png-файла.

library(DiagrammeR)
library( ReporteRs )

mydoc = pptx()
mydoc = addSlide( mydoc, slide.layout = "Title and Content" )
mydoc = addTitle( mydoc, "Plot examples" )

# compute new size for image to fit in ppt shape ----
shape_dim <- dim(mydoc)$size
shape_height <- setNames( shape_dim["height"], NULL ) * 72 
shape_width <- setNames( shape_dim["width"], NULL ) * 72

# reuse the shape dimensions in grViz call ----
digraph_test <- grViz("digraph-test.dot", width = shape_width, height = shape_height )
htmlwidgets::saveWidget(widget = digraph_test, file = "digraph.html", selfcontained = TRUE)
webshot::webshot(url = "digraph.html", selector = '.html-widget-static-bound', file= "digraph.png")


mydoc = addImage( mydoc, filename = "digraph.png" )
writeDoc( mydoc, file = "test plot.pptx" )