Partial map of the University of Maryland, Baltimore County (UMBC)

library(leaflet)

content1 <- paste(sep = "<br/>", "UMBC", "Department of Chemical and Biochemical Engineering")
content2 <- paste(sep = "<br/>", "UMBC", "Department of Physics")
content3 <- paste(sep = "<br/>", "UMBC", "Department of Chemistry and Biochemistry")
content4 <- paste(sep = "<br/>", "UMBC", "Albin O. Kuhn Library")
content5 <- paste(sep = "<br/>", "UMBC", "Concert Hall")
content6 <- paste(sep = "<br/>", "UMBC", "Book Store")


print("Map of the University of Maryland, Baltimore County (UMBC)")

## [1] "Map of the University of Maryland, Baltimore County (UMBC)"

print("April 30th, 2017")

## [1] "April 30th, 2017"

UMBC.point.of.interest <- data.frame(lng = c(-76.713848, -76.709739, -76.712818, -76.711470, -76.715655, -76.710974),
                                     lat = c(39.254998, 39.254918, 39.254688, 39.256745, 39.255806, 39.254652))
                        
UMBC.point.of.interest %>% leaflet() %>%
        addTiles() %>%

        addCircles(weight = 2, radius = 8) %>%
        
        addMarkers(-76.713848, 39.254998, popup = content1)  %>%
        addMarkers(-76.709739, 39.254918, popup = content2)  %>%
        
        addMarkers(-76.712818, 39.254688, popup = content3)  %>%
        addMarkers(-76.711470, 39.256745, popup = content4)  %>%
        
        addMarkers(-76.715655, 39.255806, popup = content5)  %>%
        addMarkers(-76.710974, 39.254652, popup = content6) %>%
        
        addLegend(position = "bottomright", labels ="", colors = "white", title = c("Map of the University of Maryland, Baltimore County (UMBC) on April 30th, 2017"))