无法在R中合并html文件

因此，我有两个html页面，

html_1.html

和

html_2.html

我想在R中将它们一个叠在另一个上。如何做到这一点

例如：

library(dygraphs)
m1 = dygraph(nhtemp, main = "New Haven Temperatures") %>% 
  dyRangeSelector(dateWindow = c("1920-01-01", "1960-01-01"))
m2 = dygraph(nhtemp, main = "New Haven Temperatures") %>% 
  dyRangeSelector(dateWindow = c("1920-01-01", "1960-01-01"))
library(htmltools)
save_html(m1, file = 'm1.html')
save_html(m2, file = 'm2.html')
##Now load and merge m1.html and m2.html

最简单的方法是使用R标记文档：

---
title: ""
output: html_document
---
```{r echo=FALSE, message=FALSE, warning=FALSE}
library(dygraphs)

dygraph(nhtemp, main = "New Haven Temperatures", elementId = "a") %>% 
  dyRangeSelector(dateWindow = c("1920-01-01", "1960-01-01"))

dygraph(nhtemp, main = "New Haven Temperatures", elementId = "b") %>% 
  dyRangeSelector(dateWindow = c("1920-01-01", "1960-01-01"))
```

这会为你处理很多复杂的事情

重量级的方法是自己构建页面，而不涉及小部件javascript依赖关系的繁琐细节：

library(dygraphs)
library(htmlwidgets)
library(htmltools)

w1 <- dygraph(nhtemp, main = "New Haven Temperatures", elementId = "a") %>% 
  dyRangeSelector(dateWindow = c("1920-01-01", "1960-01-01"))

w2 <- dygraph(nhtemp, main = "New Haven Temperatures", elementId = "b") %>% 
  dyRangeSelector(dateWindow = c("1920-01-01", "1960-01-01"))

saveWidget(w1, "w1.html")
saveWidget(w2, "w2.html")

w1_src <- sprintf("data:text/html;base64,%s", openssl::base64_encode(rawToChar(readBin("w1.html", "raw", file.size("w1.html")))))
w2_src <- sprintf("data:text/html;base64,%s", openssl::base64_encode(rawToChar(readBin("w2.html", "raw", file.size("w2.html")))))

tags$html(
  tags$body(
    tags$iframe(src=w1_src, seamless="", frameborder="0", allowtransparency="true", scrolling="no", style="width:100%;height:400px"),
    tags$iframe(src=w2_src, seamless="", frameborder="0", allowtransparency="true", scrolling="no", style="width:100%;height:400px")
  )
) %>% 
  save_html("bothwidgets.html")

库（动态图）
库（htmlwidgets）
图书馆（htmltools）
w1%
动态范围选择器（日期窗口=c（“1920-01-01”、“1960-01-01”））
w2%
动态范围选择器（日期窗口=c（“1920-01-01”、“1960-01-01”））
saveWidget（w1，“w1.html”）
saveWidget（w2，“w2.html”）
谢谢，我真的很喜欢你的第一个解决方案。但是如何将第一个解决方案保存到html文件中（计算需要很长时间，我想使用html文件来显示结果。我没有时间每次都运行.rmd）
rmarkdown:：render（“whateverYouCalledTheFile.rmd”）
将它保存到html文件中。