Вернуть все уникальные места, соответствующие поисковому запросу, из облачного API Google / googleway - PullRequest
Новая
       22

Вернуть все уникальные места, соответствующие поисковому запросу, из облачного API Google / googleway

0 голосов
/ 09 апреля 2019

Мне нужно получить все данные карт 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)
...