r - 修正方法: 応答のエラー$result$geographies$`2010 Census Blocks`[[1]] : 添え字が緯度/経度データの範囲外です

Question

更新：私のデータセットでは、座標セットの1つは（49.277298、-123.067902）であり、範囲外であるだけでなく、分析に大混乱をもたらす唯一のものでもあります。この追加が役立つことを願っています!

緯度と経度のみをリストするデータセットの国勢調査コードの検索に取り組んでいますが、応答でエラーが発生し続けます $result$geographies$ 2010 Census Blocks[[1]] : subscript out of bounds

for ループを使用する場合:

ids <- c()
for(i in 1:nrow(census)){
if(is.na(census$locationlatitude[i])){
id <- NA
} else {
id <- call_geolocator_latlon(census$locationlatitude[i], census$locationlongitude[i])
}
ids <- c(ids, (id))
}

そして、適用も使用します。

census <- read.csv("census_tract.csv")
census <- census[,c(1:3)]
census$rowid <- 1:nrow(census)
censusNA <- na.omit(census)
censusNA$census_tract <- apply(censusNA, 1, function(row) 
call_geolocator_latlon(row['LocationLatitude'], row['LocationLongitude']))
censusNA <- censusNA[,c(3,4)]
census_tract <- merge(census, censusNA, by = "rowid", all.x = TRUE)

両方とも response$result$geographies$ 2010 Census Blocks[[1]] でエラーを返します: 範囲外の添字