2

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

那么我怎样才能自动删除单词，直到函数运行并给我地址，

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

1 回答 1

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 配额。

于 2018-04-02T09:43:52.873 回答