Assignment Week 2: RMarkdown and Leaflet map

This map shows the campus of Universidade Estadual de Campinas (UNICAMP), which is located in Campinas, Brazil. It also points out where my lab is located in the univeristy campus.

library(leaflet)

unicampIcon <- makeIcon(iconUrl = "https://www.unicamp.br/unicamp/sites/default/files/logotipo/PRE_VERM.JPG",
  iconWidth = 40*215/230, iconHeight = 40,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)

unicampLatLong <- data.frame(
  lat = c(-22.8158, -22.8170),
  lng = c(-47.0678, -47.0700))

unicampLatLong  %>% 
    leaflet() %>% 
    addTiles() %>%
    addMarkers(popup = c("My lab", "Universidade de Campinas"), icon = unicampIcon) %>%
    addCircles(lat = c(-22.8158, -22.8170),
               lng = c(-47.0678, -47.0700), 
               radius = c(80, 400),
               color = c("red", "blue")) %>%
    addLegend(labels = c("Lab", "UNICAMP"), colors = c("red", "blue"),
              title = "Workplace on May 8th, 2020")