我需要获取指定区域内每个杂货店/市场/便利店的所有谷歌地图数据。
使用该googleway
软件包,我可以访问 API 并获得多达 60 个结果(一次 20 个)。但是,如果有超过 60 个地点与我的查询匹配怎么办?换句话说,我怎么能确定我没有遗漏任何东西?
不幸的是,如果没有 API 密钥,您将无法表示它,对此感到抱歉。
suppressPackageStartupMessages(require(tidyverse))
suppressPackageStartupMessages(require(googleway))
set_key("your key here")
#Center of Guilford County, NC:
guilford <- c(36.086046, -79.796661)
reslst <- lst()
last_token <- NULL
for(i in 1:3) {
res <- google_places(location = guilford,
radius = 30000,
place_type = "grocery_or_supermarket",
page_token = last_token)
results <- res$results
Sys.sleep(time = 3)
last_token <- res$next_page_token
reslst[[i]] <- results %>% select(id, name, place_id, price_level, rating, user_ratings_total, types) %>% as_tibble() %>% add_column(iter = i)
}
all_results <- bind_rows(reslst)