Trying to get a working geocode, still errors

scratch.R

@@ -4,7 +4,7 @@ library(dplyr)
 #library(ggmap)
 library(photon)
 library(readr)
-source("osm_api.R")
+#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),
@@ -47,4 +47,6 @@ table(Geo2017$facility_type_name)
 
 # newcoded <- osm_geocode("21 Ruakura Road, Hamilton East, Hamilton 3216")
 
-newcoded <- geocode(gp_new$address, limit = 1)
+newcoded <- as.data.frame(t(sapply(gp_new$address, geocode)))
+#newcoded <- geocode(gp_new$address, limit = 1)
+