E79H4LAi

1ï..Site
21                            Bridge Over Troubled Waters 
32                                       St. Francis House
43                                 JRI Health PACT Program
54             AIDS Action Committee of Massachusetts, Inc
65 Boston GLASS (Gay & Lesbian Adolescent Social Services)
76               Daniel Driscoll - Neponset Health Center 
8                                                          Address        acronym       lon      lat
9                                    47 West St, Boston, MA 02111           BOTW -71.06300 42.35514
10                               39 Boylston St, Boston,  MA 02111    St. Francis -71.06295 42.35270
11                                75 Amory St, Boston, MAÂ Â 02119       JRI PACT -71.09978 42.32068
12               75 Amory Street, Front Entrance, Boston, MA 02119            AAC -71.09978 42.32068
13 75 Amory Street, Garden Level - Rear Entrance, Boston, MA 02119          GLASS -71.09967 42.32066
14                          398 Neponset Ave, Dorchester, MA 02122 DD Neponset HC -71.04397 42.28678
15	
16leaflet(data = a) %>% 
17                        addProviderTiles('CartoDB.Positron', options = tileOptions(minZoom=10, maxZoom=18)) %>%
18                        setView(-71.0589, 42.3601, zoom = 11) %>%
19                        addPolygons(data = boston_shp,popup = ~Name,label = ~Name,
20                                    labelOptions = labelOptions(noHide = F),
21                                    stroke = TRUE, weight = 2,
22                                    color = 'gray')%>%
23                        addSearchOSM() %>%
24                        addFullscreenControl%>%
25                        addMiniMap(tiles = providers$Esri.WorldStreetMap,
26                                   toggleDisplay = T)%>%
27                        addCircleMarkers(~lon, ~lat,  label= ~acronym,
28                                         labelOptions = labelOptions(noHide = T, textOnly = FALSE,direction = "auto",
29                                                                     style = list(
30                                                                       "color" = "red",
31                                                                       "font-family" = "serif",
32                                                                       "font-style" = "italic",
33                                                                       "box-shadow" = "3px 3px rgba(0,0,0,0.25)",
34                                                                       "font-size" = "12px",
35                                                                       "border-color" = "rgba(0,0,0,0.5)"
36                                                                     )),
37                     options = markerOptions(riseOnHover = TRUE))