google_map(key=key,data=care_homes, zoom=10 ) %>% add_markers(care_homes,opacity=1)