export_png（）ではなくggvisをPNGにエクスポートする方法はありますか？

Question

誰かがggvisオブジェクトをPNGにエクスポートする代替方法を知っているのだろうかと思いました。 LinuxまたはWindowsで実装できます。私はいくつかの方法が、私はもっと単純であるものを掲示していた

おかげ

Answer 1

。

必須ライブラリ

library(ggvis) 
library(XML) 
library(webshot) 
library(htmltools) 

ggvisを生成し、検索するために正規表現を使用して文字ベクトル

webst <- htmlParse(outfile, asText=FALSE) 
showMethods(class=class(webst), where=search()) 
webst <- as(webst, "character") 
class(webst) 

にHTMLの構文解析HTMLローカルディレクトリ

outfile <- mtcars %>% ggvis(~wt, ~mpg) %>% layer_smooths() %>% set_options(width = 1200, height = 800) %>% view_static() %>% html_print(background = "white", viewer = getOption("viewer", utils::browseURL)) 

を印刷HTMLコード内のSVGオブジェクトの名前/ HTMLセレクタの生成

id <- webst %>% sub(pattern = "-container.*", replacement ="") %>% sub(pattern = ".*plot_", replacement ="") 
selec <- paste0("#plot_", id, " > div > svg") 

ブラウザのスクリーンショットをキャプチャするためにWebshotを使用します。あなたはどのように簡素化するための提案を持っている場合や、

webshot(outfile, "test_webshot8.png", selector = selec) 

出力

は、より良い方法が理解されるであろう。