Week_2 Assignment

1. Project date

Sys.Date()

## [1] "2020-08-10"

2. Map - University of São Paulo (Brazil)

library(leaflet)

map_usp <- leaflet() %>%
  addTiles() %>%
  addMarkers(lat=-23.5613991, lng=-46.7307891, popup="USP - Campus Butantã") %>%
  addMarkers(lat=-23.4823919, lng=-46.5026385, popup="USP - Campus Leste (EACH)") %>%
  addMarkers(lat=-21.1725114, lng=-47.8482037, popup="USP - Campus Ribeirão Preto") %>%
  addMarkers(lat=-22.0027496, lng=-47.9007629, popup="USP - Campus São Carlos")

map_usp