library(leaflet)
setwd("~/Coursera/9 Developing Data Products/Semana 2")
df <-read.csv(file ="schools.csv", header = TRUE, sep = ",")
df
## X Nombre lat lng
## 1 1 EGADE Business School 19.35932 -99.26004
## 2 2 Instituto Politecnico Nacional 19.50033 -99.13717
df<- df %>% leaflet() %>% addTiles() %>% addMarkers()
## Assuming "lng" and "lat" are longitude and latitude, respectively
df