library(leaflet)
tagList(
leaflet(quakes, width="100%", height="100%") %>%
# addTiles() %>% # do not add tiles for CI purposes
addMarkers(~ long, ~ lat),
tags$style("html, body { width: 100%; height: 100%; }")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.