Leaflet Maps

library(leaflet)
icon<-makeIcon(iconUrl="https://cdn.pixabay.com/photo/2017/01/19/09/11/logo-google-1991840__340.png",iconWidth = 31*215/230,iconHeight = 31)
iconsite<-c("<a href ='http://google.com'>GOOGLE</a>")


df<-data.frame(lat=runif(20,min=34,max=67),lng=runif(20,min=100,200))
df%>%leaflet()%>%addTiles()%>%addMarkers(icon=icon,popup=iconsite)