Apparently ggmap needs an api key. Will look at mapquest instead

scratch.R

 # Scratch file
 library(janitor)
 library(dplyr)
+library(ggmap)
 library(readr)
 Geo2017 <- clean_names(read_csv("data/AllDHBsGeocoded.csv"), case = "snake") %>%
     select(-facility_opening_date) %>%
 
 table(newFacil$facility_type_name)
 table(Geo2017$facility_type_name)
+
+newcoded <- geocode(gp_new$address, 
+                    output = "latlona") %>% 
+    rename("calculated_address" = address)