My Interactive Map

library(leaflet)

## This version of Shiny is designed to work with 'htmlwidgets' >= 1.5.
##     Please upgrade via install.packages('htmlwidgets').

df <- data.frame(lat=c(37.7712412, 37.7932225), 
                 lng=c(-122.4072869, -122.3968866), 
                 descriptions=c("My Home", "My Office"))
my_icons <- icons(ifelse(df$descriptions == "My Home", "https://img.icons8.com/metro/26/000000/home.png",
                         "https://img.icons8.com/ios-filled/50/000000/link-company-parent.png"),
                  iconWidth = 31*215/230, iconHeight = 31,
                  iconAnchorX = 31*215/230/2, iconAnchorY = 16)
my_map <- df %>% leaflet() %>%
  addTiles() %>%
  addMarkers(popup=df$descriptions, icon = my_icons, clusterOptions = markerClusterOptions())

## Assuming "lng" and "lat" are longitude and latitude, respectively

my_map