如何解决 tigris::call_geolocator() Internal Server Error (HTTP 500) 错误?

How to solve tigris::call_geolocator() Internal Server Error (HTTP 500) error?

我想从我数据中的地址获取城市的人口普查代码。问题是我找不到适用于佛罗里达州盖恩斯维尔的 shapefile。所以我试图使用参加调查的人的地址来获取人口普查代码,一旦我有了人口普查代码,我就会 substr 到前 11 位数字以匹配 tidycensus 的 GEOID包,它将县人口普查和形状文件提供给层次结构的最低层。

因为我只有城市居民的 GEOID,所以我会得到那些 shapefile 而不是整个县。所以我做了以下只是为了获得人口普查代码:

library(tigris)
library(readr)

gainsville_df2 <- readr::read_csv("311_Service_Requests__myGNV_.csv")

#gainsville_df2 is the dataframe of the csv file
jio<- apply(gainsville_df2["Address"], 1, function(row) tigris::call_geolocator(row, "Gainesville", "FL", zip = NA))

#It ran for ~1.5 hours, parsing through 1892 addresses, then I got this error out of nowhere:

#Error in tigris::call_geolocator(row, "Gainesville", "FL", zip = NA) : 
#  Internal Server Error (HTTP 500).
#Called from: httr::stop_for_status(r)

一个 link 到 the data is here。我有 ~9200 个地址要解析,这发生在 ~1800。环顾四周的错误,我看到需要一些超时设置,不幸的是,我不知道该怎么做。

我需要 shapefile 来完成我个人项目的关键部分。

必须从 gainsville_df2$Address 向量中删除所有标点符号。 call_geolocator 函数没有或如果有,则不规则地处理由标点符号组成的字符串,并且经常会在带有 # 或 { } 等标点符号的地址上抛出 HTTP 500 错误。因此,更好的做法是使用 as.character(stringr::str_replace_all(gainsville_df2$Address, "[[:punct:]]", " ")) 函数删除所有标点符号。别担心,即使没有标点符号,地理定位器功能仍会提供正确的人口普查代码。它只查找街道名称、号码、街区、城市和州。