November 17, 2017

library(leaflet)
chiefsIcon <- makeIcon(
  iconUrl = "http://freelogo2016cdn.b-cdn.net/wp-content/uploads/2016/12/kansas_city_chiefs_logo.png",
  iconWidth = 80, iconHeight=60,iconAnchorX = 40,iconAnchorY = 30
)

map <- leaflet() %>%
  addTiles() %>%
  addMarkers(lat =39.0489,
             lng = -94.4839,
             icon=chiefsIcon,
             popup="And the home of the.....CHIEFS!")
map