|
@@ -45,4 +45,6 @@ gp_new <- filter(gp_prac, is.na(gp_prac$calculated_address)) %>%
|
45
|
45
|
table(newFacil$facility_type_name)
|
46
|
46
|
table(Geo2017$facility_type_name)
|
47
|
47
|
|
48
|
|
-newcoded <- osm_geocode(gp_new$address[1:5])
|
|
48
|
+# newcoded <- osm_geocode("21 Ruakura Road, Hamilton East, Hamilton 3216")
|
|
49
|
+
|
|
50
|
+newcoded <- geocode(gp_new$address, limit = 1)
|