รวมทุกอย่างเข้าด้วยกัน

m4 <- ___() %>% 
        ___(group = "OSM") %>% 
        ___("CartoDB", group = "Carto") %>% 
        ___("Esri", group = "Esri") %>% 
        ___(data = public, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label),  group = "Public") %>% 
        ___(data = private, radius = 2, label = ~htmlEscape(name),
                           color = ~pal(sector_label), group = "Private")  %>% 
        ___(data = profit, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label), group = "For-Profit")  %>% 
        ___(baseGroups = c("OSM", "Carto", "Esri"), 
                         overlayGroups = c("Public", "Private", "For-Profit")) %>% 
        ___(lat = 39.8282, lng = -98.5795, zoom = 4) 

m4