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

scratch.R

@@ -1,6 +1,7 @@
 # Scratch file
 library(janitor)
 library(dplyr)
+library(ggmap)
 library(readr)
 Geo2017 <- clean_names(read_csv("data/AllDHBsGeocoded.csv"), case = "snake") %>%
     select(-facility_opening_date) %>%
@@ -41,3 +42,7 @@ gp_new <- filter(gp_prac, is.na(gp_prac$calculated_address)) %>%
 
 table(newFacil$facility_type_name)
 table(Geo2017$facility_type_name)
+
+newcoded <- geocode(gp_new$address, 
+                    output = "latlona") %>% 
+    rename("calculated_address" = address)