Мне нужно получить все данные карт Google в каждом продуктовом магазине / магазине / магазине в указанной области.
Используя пакет 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)