Coursera-Developing Data Products Week 2 Assignment

Simple map

This is a very simple map created in leaflet.

This map shows my favorite museum - the Smithsonian Air and Space Museum.

## Load LEAFLET package
library(leaflet)

## Create a dataframe with information for the Smithsonian Air and Space Museum
AirSpace <- data.frame(name="<a href='https://airandspace.si.edu/'>Smithsonian Air and Space Museum</a>",
                       lat=38.88758,
                       lng=-77.01998)

## Create map
AirSpace %>%
    leaflet() %>%
        addTiles() %>%
            addMarkers(lat=AirSpace$lat,lng=AirSpace$lng,
                       popup=AirSpace$name)