R，Googleway，通过删除单词来匹配地址

Question

如果我直接运行以下代码，它会给我一个错误，因为地址太过指定了，但是如果我删除-272，则可以正常工作。

所以我如何继续自动删除单词，直到功能运行并给我地址

library(googleway)    
 google_geocode(address = "경북 경주시 외동읍 문산공단길 84-272", language = "kr", key = api_key,

Answer 1

如果我在您的问题中使用该地址，则API对我有用。但是，使用其他问题中的地址会给我ZERO_RESULTS返回。

我们可以在gsub()命令中使用简单的正则命令之后删除地址的最后一部分。

library(googleway)
set_key("your_api_key")
## invalid query
add <- "대한민국 경기도 안산시 단원구 성곡동 강촌로 140"
res <- google_geocode(address = add, language = "kr")
res
# $results
# list()
# 
# $status
# [1] "ZERO_RESULTS"
## remove the last part after the final space and it works
new_add <- gsub(' \S*$', '', add)
res <- google_geocode(address = new_add, language = "kr")
geocode_coordinates(res)
#        lat      lng
# 1 37.31737 126.7672

您可以将其转换为迭代循环，该循环将在最终的"空间"字符之后继续删除所有内容，并尝试在新地址上进行地理位置。

## the curl_proxy argument is optional / specific for this scenario 
geocode_iterate <- function(address, curl_proxy) {
    continue <- TRUE
    iterator <- 1
    while (continue) {
        print(paste0("attempt ", iterator))
        print(address)
        iterator <- iterator + 1
        res <- google_geocode(address = address, language = "kr", curl_proxy = curl_proxy)
        address <- gsub(' \S*$', '', address)
        if (res[['status']] == "OK" | length(add) == 0 | grepl(" ", add) == FALSE ){
            continue <- FALSE
        }
    }
    return(res)
}
add <- "대한민국 경기도 안산시 단원구 성곡동 강촌로 140"
res <- geocode_iterate(address = add, curl_proxy = curl_proxy)
# [1] "attempt 1"
# [1] "대한민국 경기도 안산시 단원구 성곡동 강촌로 140"
# [1] "attempt 2"
# [1] "대한민국 경기도 안산시 단원구 성곡동 강촌로"

请注意确保while循环实际上可以退出。您不想进入无限循环。

记住，即使返回了ZERO_RESULTS，查询仍然计入您的每日API配额。