Leaflet Map Generated on 4/18/2017 by Caner Adil Irfanoglu

library(leaflet)
icon_W <- makeIcon(
  iconUrl = "http://i58.tinypic.com/119m3r5_th.gif", # Creating an icon
  iconWidth = 10, iconHeight = 23,
  iconAnchorX = 10, iconAnchorY =23 
)
mymap <- leaflet() %>% addTiles() %>% addMarkers(icon = icon_W,lat = 39.29 , lng = -76.56 , popup = "PartyHard") 
mymap