Commit 2038e79e authored by Carlos Cámara's avatar Carlos Cámara

Geocode only unique street names to save time.

parent 1b151c6c
...@@ -81,7 +81,7 @@ df2 = df %>% ...@@ -81,7 +81,7 @@ df2 = df %>%
sep = " ")) %>% sep = " ")) %>%
filter(!is.na(nomoficial)) filter(!is.na(nomoficial))
geocoded.df = photon::geocode(df2$full_address_ca, limit = 1, geocoded.df = photon::geocode(unique(df2$full_address_ca), limit = 1,
# lang = "es", # lang = "es",
key = "highway", key = "highway",
locbias = c(-0.3766, 39.4665)) locbias = c(-0.3766, 39.4665))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment