non-working OSM geocoding

.gitignore

@@ -1,3 +1,4 @@
+osm_api.R
 # ---> R
 # RStudio project files
 *.Rproj

scratch.R

@@ -1,8 +1,10 @@
 # Scratch file
 library(janitor)
 library(dplyr)
-library(ggmap)
+#library(ggmap)
+library(nominatim)
 library(readr)
+source("osm_api.R")
 Geo2017 <- clean_names(read_csv("data/AllDHBsGeocoded.csv"), case = "snake") %>%
     select(-facility_opening_date) %>%
     mutate(dhb_name = ifelse(is.na(dhb_name), "Missing", dhb_name),
@@ -43,6 +45,4 @@ 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)
+newcoded <- osm_geocode(gp_new$address[1:5])