Peer-graded Assignment: R Markdown and Leaflet

Create a web page using R Markdown that features an interactive map created with Leaflet.

My submission

Following map shows the hospitals in US that currently have an Elekta Unity system for radiation therapy. This MR-LINAC system provides magnetic resonance imaging during radiation therapy while adapting treatment delivery in real-time for precise cancer treatments.

By clicking on the location symbol you will see an URL link that brings you to the specific hospital.

library(leaflet)

## Making Custom Markers
LatLong <- data.frame(
        lat = c(29.70766895, 43.04139555, 41.65938035, 40.76445335, 42.6188429),
        lng = c(-95.39762257, -88.02455617, -91.54841274, -73.95694408, -83.09325699))

## Adding Multiple Popups
Sites <- c(
        "<a href='https://www.mdanderson.org/'>University of Texas MD Anderson Cancer Center, Houston </a>",
        "<a href='https://www.froedtert.com/'>Froedtert & the Medical College of Wisconsin, Milwaukee </a>",
        "<a href='https://uihealthcare.org/'>University of Iowa Hospitals & Clinics, Iowa City </a>",
        "<a href='https://www.mskcc.org/'>Memorial Sloan Kettering Cancer Center, New York </a>",
        "<a href='https://www.beaumont.org/'>Beaumont Hospital, Troy </a>"
)
LatLong %>% leaflet() %>% addTiles() %>% 
        addMarkers(popup = Sites)