How to embed highcharter in rmarkdown to share (not a loop)

I cannot get two simple highcharter charts in an Rmarkdown file I want to share. It works fine and renders in my PC or Mac, but when I share the file, people only see text.

They are not part of a loop, as mentioned in few articles. They are just two charts. For the reproducible example, I literally just opened a new rmarkdown doc and selected html. I replaced the "summary table" of cars with highcharter code. I even tried htmltools::tagList(chart1, chart2) and it does not work.

I am supplying the code. If you please show me how to do it with one chart, I can do it with the second. Thank you.

---
title: "Untitled"
output: html_document
---

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


```{r echo=FALSE}
library(magrittr)
library(highcharter)
highchart() %>%
    hc_add_series(cars, type = "scatter", hcaes(speed, dist))

I apologize if the tick marks hide the code background, but the three chunks are wrapped with the three tickmarks at the beginning and end of each chunk.

Thank you again.

Solution

Yes the code below produces the file below the code. I now have an entire .html file that has the highchart self contained in the file.

---
output:
 html_document:
   self_contained: yes
   mode: selfcontained
---

{r echo=FALSE}
library(magrittr)
library(highcharter)
highchart() %>%
hc_add_series(cars, type = "scatter", hcaes(speed, dist))