Intro

Intro!

Raw leaflet

library("leaflet")
quakes %>%
  leaflet() %>%
  addProviderTiles(providers$Esri.WorldShadedRelief) %>%
  addCircleMarkers()

## Assuming "long" and "lat" are longitude and latitude, respectively

widgetFrame

library("widgetframe")

## Loading required package: htmlwidgets

the_leaflet <- quakes %>%
  leaflet() %>%
  addProviderTiles(providers$Esri.WorldShadedRelief) %>%
  addCircleMarkers()

## Assuming "long" and "lat" are longitude and latitude, respectively

frameWidget(the_leaflet)