Map

library(leaflet)
my_map <- leaflet() %>% addTiles() %>% addMarkers(lat=39.3341961,lng=-82.0893786,popup="KB's home!!!")
my_map