Assignment 3

Katrina Pooler

Hospitals in Cumberland County

spring_harbor = "123 Andover Rd, Westbrook, ME 04092"
sh_dcoord = geocode(spring_harbor)

mid_coast = "123 Medical Center Dr, Brunswick, ME 04011"
mc_dcoord = geocode(mid_coast)

maine_med = "22 Bramhall St, Portland, ME 04102"
mm_dcoord= geocode(maine_med)

mercy_westbrook = "40 Park Rd, Westbrook, ME 04092"
mw_dcoord= geocode(mercy_westbrook)

new_england= "335 Brighton Ave, Portland, ME 04102"
ne_dcoord= geocode(new_england)

mercy_hospital= "144 State St, Portland, ME 04101"
mh_dcoord= geocode(mercy_hospital)

parkview= "329 Maine St, Brunswick, ME 04011"
p_dcoord= geocode(parkview)

mercy_yarmouth= "385 US Route One, Yarmouth, ME 04096"
my_dcoord= geocode(mercy_yarmouth)

m = leaflet() %>% addTiles() %>% addMarkers(lng= sh_dcoord$lon, lat= sh_dcoord$lat, popup = "Spring Harbor Hospital") %>% addMarkers(lng= mc_dcoord$lon, lat= mc_dcoord$lat, popup= "Mid Coast Hospital") %>% addMarkers(lng=mm_dcoord$lon, lat=mm_dcoord$lat, popup= "Maine Medical Center") %>% addMarkers(lng= mw_dcoord$lon, lat= mw_dcoord$lat, popup="Mercy Westbrook") %>% addMarkers(lng= ne_dcoord$lon, ne_dcoord$lat, popup= "New England Rehabilitation Hospital of Portland") %>% addMarkers(lng= mh_dcoord$lon, mh_dcoord$lat, popup= "Mercy Hospital") %>% addMarkers(lng= p_dcoord$lon, lat= p_dcoord$lat, popup= "Parkview Adventist Medical Center") %>% addMarkers(lng= my_dcoord$lon, lat= my_dcoord$lat, popup= "Mercy Yarmouth")
m

How far is the Gorham campus from the nearest hospital?

usm_gor= "37 College Ave, Gorham, ME 04038"

route= route(usm_gor, mercy_westbrook, mode = "driving", structure= "route")

m= leaflet() %>% addProviderTiles("Stamen.Toner") %>% addPolylines(lng= route$lon, lat= route$lat, fill= FALSE, color= "blue")

m