Rとplot.lyを使用して、複数のhtmlwidgetsを自分のhtmlに保存する方法は？

Question

私はplot.lyでRで遊び始めています。私はhtmlwidgetsを使って自分のグラフをhtmlで直接公開する可能性に驚いています。 これまでは、同じHTMLに複数のウィジェットを保存することができませんでした。 私は、スタンドアローンHTMLSにHTMLコードに手でそれを組み合わせるよりも、複数のウィジェットを保存しているが、私はR.

に簡単な例、それを行うことができるようにしたいと思います：

#graph 
graph<- ggplot(df, aes(x = Data, y=tax))+ geom_bar(stat='identity') 
gg <- ggplotly(graph) 

# save as HtmlWigdet 
htmlwidgets::saveWidget(as.widget(gg), "Index.html") 

をsaveWidgetsに複数のggplotlyオブジェクトを解析するにはどうすればよいですか？

（これはここstackoverflowの中に私の最初の質問です、私はそれが右やったね！よろしく！）

Answer 1

あなたは後にしているユースケースとは何ですか？これらのグラフを（R Markdownで作成）に追加することを検討してください。 Plotlyと組み合わせた私の最近のgotoだった。

Answer 2

これは、htmltoolsパッケージのビットとピースから、タグリストを保存してからiframeタグを返す機能です。 htmlwidgetsをhtmltools::tagListとラップし、この機能を使用して束全体を保存することができます。

save_tags <- function (tags, file, selfcontained = F, libdir = "./lib") 
{ 
    if (is.null(libdir)) { 
    libdir <- paste(tools::file_path_sans_ext(basename(file)), 
        "_files", sep = "") 
    } 
    htmltools::save_html(tags, file = file, libdir = libdir) 
    if (selfcontained) { 
    if (!htmlwidgets:::pandoc_available()) { 
     stop("Saving a widget with selfcontained = TRUE requires pandoc. For details see:\n", 
      "https://github.com/rstudio/rmarkdown/blob/master/PANDOC.md") 
    } 
    htmlwidgets:::pandoc_self_contained_html(file, file) 
    unlink(libdir, recursive = TRUE) 
    } 
    return(htmltools::tags$iframe(src= file, height = "400px", width = "100%", style="border:0;")) 
}