Визуализация рчартов с использованием пакета ReporteRs в PowerPoint

Question

Я могу отрисовать диаграмму в R блестящий по следующему коду:

 output$example=renderChart2({
    p1 <- nPlot(mpg ~ wt, group = 'cyl', data = mtcars, type = 'multiBarChart')
    p1
    })

Теперь я хочу то же самое в ppt. с помощью пакета ReporteRs. Я попробовал приведенный ниже код, но он не работает

library(ReporteRs)
doc =pptx( )
doc <- addSlide(doc, "Two Content")
plotFunc<- function(){ nPlot(mpg ~ wt, group = 'cyl', data = mtcars, type = 'multiBarChart')
} 
doc <- addPlot(doc, fun =print, x = plotFunc)
writeDoc(doc, "r-2.pptx" )

Может кто-нибудь сказать мне, как сделать рчартс в ppt.