Plotting a map by Leaflet package

This simple map shows my three favorite must-see places in Catania, my birthplace.

library(leaflet)
## Warning: package 'leaflet' was built under R version 4.0.5
latit <- c(37.49919, 37.50439, 37.50267)
longit <- c(15.08443, 15.09000, 15.08824)
fav <- c("<a href='https://it.wikipedia.org/wiki/Castello_Ursino'>Castello Ursino</a>",
"<a href='https://it.wikipedia.org/wiki/Teatro_Massimo_Vincenzo_Bellini'>Teatro Massimo Bellini</a>",
"<a href='https://it.wikipedia.org/wiki/Cattedrale_di_Sant%27Agata'>Duomo di Catania</a>")
nam=c("Castello Ursino", "Teatro Massimo Bellini", "Duomo di Catania")
col = c("blue", "red", "green")
df<-data.frame(latitude=latit, longitude=longit, places=fav, names=nam, colors=col)

#plotting map 
df %>% 
leaflet() %>% 
addTiles() %>%
addCircleMarkers(color= df$colors, popup =df$places) %>%
addLegend("bottomright", colors= df$colors, labels = df$names) %>%
addProviderTiles(providers$OpenStreetMap)
## Assuming "longitude" and "latitude" are longitude and latitude, respectively