Leaflets Intro

setwd("~/R/fun")
library(leaflet)

package <U+393C><U+3E31>leaflet<U+393C><U+3E32> was built under R version 3.3.3

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")
m  # Print the map

h <- leaflet() %>%
  addTiles() %>%
  addMarkers(lng = -97.734, lat = 30.285, popup = "It's 1:50 AM and OU still sucks")
h

utbuildings <- read.csv("utbuildings.csv")
utbuildings$lat <- gsub(",", "", utbuildings$lat)
utbuildings$lat <- as.numeric(utbuildings$lat)

m <- leaflet(data = utbuildings) %>%
  addTiles() %>%
  addMarkers(lat = utbuildings$lat, lng = utbuildings$long, clusterOptions = markerClusterOptions(spiderLegPolylineOptions = list(color = "#222222")), popup = utbuildings$Location)
m