r - 如何将保存的 Leaflet 小部件插入 Rmarkdown HTML 输出

Question

我创建了一个传单小部件并将其保存在本地:

library(htmlwidgets)
library(leaflet)
library(sf)

shp = st_read("/path/to/some/shapefile.shp")

m = shp %>%
  leaflet() %>%
  addProviderTiles(providers$CartoDB.Positron) %>%
  setView(lng = -70, lat = 40, zoom = 11)

saveWidget(m, "m.html")

现在我想在 Rmarkdown block 中加载这个小部件:

---
title: "Title"
author: "author"
date: "5/8/2020"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

etc etc etc

```{r}
function_that_loads_widget("m.html")
```

etc etc etc

我试过 htmltools::includeHTML() 但这使得整个 HTML 输出成为一个大部件。不显示报告的文本。

我意识到我可以将创建 Leaflet 小部件的代码直接放在 Rmarkdown block 中，但我不想那样做。

Answer 1

knitr::include_url() 似乎是解决方案。这适用于我的 blogdown 帖子。

```{r, out.width="100%"}
knitr::include_url("url_of_html", height="1080px")
```