0

我需要获取指定区域内每个杂货店/市场/便利店的所有谷歌地图数据。

使用该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)
4

0 回答 0