无法使用 Tigris 进行地理编码

问题描述

我正在尝试为一批地址生成人口普查大地水准面。当我使用 tigris 包中的“append_geoid”函数时，r 返回 "Error in call_geolocator(as.character(address$street[i]),as.character(address$city[i]),: Bad Request (HTTP 400)"。

我使用了 r 文档中给出的示例数据，它产生了相同的结果。代码如下。感谢您提供有关如何解决问题的任何帮助！

airports <- dplyr::data_frame(street = "700 Catalina Dr",city = "Daytona Beach",state = "FL")

append_geoid(airports,'tr) # Populate Census Tract GEOID

解决方法

编辑：该软件包的固定版本位于 github 上：

remotes::install_github("walkerke/tigris")

然后再试一次

编辑 2：

github 上的版本好像还是报错，不过这次不一样了。 HTTP 调用成功，但响应不包含他的函数所期望的内容。我会联系他或她。

我的初始帖子：

我收到的信息和你一样。

我做到了：debug( call_geolocator )

然后再次运行它，这次是单步执行。在几行代码之后，它创建了 url：https://geocoding.geo.census.gov/geocoder/geographies/address?street=700%20Catalina%20Dr&city=Daytona%20Beach&state=FL&benchmark=Public_AR_Census2010&vintage=Census2010_Census2010&layers=14&format=json

此网址随后失败。在浏览器中打开这个 url 也会报错，说无效基准。

现在是时候给作者打电话，让他​​知道他的软件包不再工作了。

作为参考，这是调试会话在我的终端中的样子，直到我检查了创建的完整 url 并点击 Q 停止调试：

> debug( call_geolocator )
> append_geoid(airports,'tract') # Populate Census Tract GEOID
debugging in: call_geolocator(as.character(address$street[i]),as.character(address$city[i]),as.character(address$state[i]))
debug: {
    call_start <- "https://geocoding.geo.census.gov/geocoder/geographies/address?"
    if (is.na(zip)) {
        url <- paste0("street=",utils::URLencode(street),"&city=",utils::URLencode(city),"&state=",state)
    }
    if (!is.na(zip)) {
        if (class(zip) == "character" & nchar(zip) == 5 & !grepl("\\D",zip)) {
            url <- paste0("street=",state,"&zip=",zip)
        }
        else {
            message("'zip' (",paste0(zip),") was not a 5-character-long string composed of :digits:. Using only street,city,state.")
            url <- paste0("street=",state)
        }
    }
    call_end <- "&benchmark=Public_AR_Census2010&vintage=Census2010_Census2010&layers=14&format=json"
    url_full <- paste0(call_start,url,call_end)
    r <- httr::GET(url_full)
    httr::stop_for_status(r)
    response <- httr::content(r)
    if (length(response$result$addressMatches) == 0) {
        message(paste0("Address (",street," ",") returned no address matches. An NA was returned."))
        return(NA_character_)
    }
    else {
        if (length(response$result$addressMatches) > 1) {
            message(paste0("Address (",") returned more than one address match. The first match was returned."))
        }
        return(response$result$addressMatches[[1]]$geographies$`Census Blocks`[[1]]$GEOID)
    }
}
Browse[2]> 
debug: call_start <- "https://geocoding.geo.census.gov/geocoder/geographies/address?"
Browse[2]> 
debug: if (is.na(zip)) {
    url <- paste0("street=",state)
}
Browse[2]> 
debug: url <- paste0("street=",state)
Browse[2]> 
debug: if (!is.na(zip)) {
    if (class(zip) == "character" & nchar(zip) == 5 & !grepl("\\D",zip)) {
        url <- paste0("street=",zip)
    }
    else {
        message("'zip' (",state.")
        url <- paste0("street=",state)
    }
}
Browse[2]> 
debug: call_end <- "&benchmark=Public_AR_Census2010&vintage=Census2010_Census2010&layers=14&format=json"
Browse[2]> 
debug: url_full <- paste0(call_start,call_end)
Browse[2]> 
debug: r <- httr::GET(url_full)
Browse[2]> url_full
[1] "https://geocoding.geo.census.gov/geocoder/geographies/address?street=700%20Catalina%20Dr&city=Daytona%20Beach&state=FL&benchmark=Public_AR_Census2010&vintage=Census2010_Census2010&layers=14&format=json"
Browse[2]> Q

进入人机界面：https://geocoding.geo.census.gov/geocoder/locations/address?form

它确实看起来像上面那个 url 中的基准在下拉选择框中不再可用。将其更改为 Public_AR_Census2020 反而会产生另一个错误，Invalid vintage in request。将该字符串中的 2010 更改为 2020 会导致成功的 HTTP 请求：https://geocoding.geo.census.gov/geocoder/geographies/address?street=700%20Catalina%20Dr&city=Daytona%20Beach&state=FL&benchmark=Public_AR_Census2020&vintage=Census2010_Census2010&layers=14&format=json .

这在这一点上并没有真正帮助你，但至少你可以联系作者，表明问题可以解决，你可以给他一些信息来开始工作。

如果你很聪明，你可以克隆他的包源并自己修复它，将修复提供给他，但仍然使用你自己的修复包，直到他解决。