World Map with Leaflet

data("wrld_simpl")
leaflet(wrld_simpl) %>% setView(0, 0, 1) %>%
    addPolygons(weight = 1, label = ~NAME)