Example of trying to get an iframe of a html widget

htmlwidgetiframeMWE.Rmd

---
title: "sample"
output:
  md_document:
    variant: markdown_github
preserve_yaml: true
always_allow_html: yes
---

```{r setup, include = FALSE, message = FALSE, warning = FALSE, error = FALSE}
library(knitr)
library(htmlwidgets)
library(widgetframe)
opts_chunk$set(collapse = TRUE)

if(!require(outbreaks)) install.packages(outbreaks)
if(!require(epicontacts)) install.packages(epicontacts)
```


```{r}
library(epicontacts)
library(outbreaks)
merskor15 <- make_epicontacts(linelist = mers_korea_2015$linelist,
                              contacts = mers_korea_2015$contacts, 
                              directed = FALSE)
```

```{r}
p=plot(merskor15)
```

```{r echo=FALSE}
saveWidget(p, "htmlwidget.html", selfcontained = TRUE)
```

<iframe src="htmlwidget.html" width="100%" height="500px"></iframe>

```{r echo=FALSE}
frameWidget(p)
```