1

我正在通过googleway'google_places函数查找给定位置的所有星巴克门店。

library(googleway)
res <- google_places(search_string = 'starbucks in Sao Paulo SP',
                       key = my_key)
# get second page of results
token <- res$next_page_token
res_next1   <- google_places(search_string = 'starbucks in Sao Paulo SP',
                         page_token    = token,
                         key = my_key)

这很好用，但是，当我尝试获取接下来的 20 个结果（结果的第 3 页）时，我收到以下错误

token2<- res_next1$next_page_token
res_next2 <- google_places(search_string = 'starbucks in Sao Paulo SP',
                     page_token    = token2,
                     key = my_key)
Error: lexical error: invalid char in json text.
                                   https://maps.googleapis.com/map
                 (right here) ------^

使用新的 github 版本的包解决了这个问题。

随后的问题是当尝试访问所有页面时会导致循环

lool = list()
# problem happens when searches[i] = 'starbucks in Sao Paulo, Sao Paulo'
for(i in 1:length(searches)){

  j = 1 # page counter
  res <- google_places(search_string = searches[i],
                       key = key)

  if(is.null(res$results$name)) {cat(i, 'null\n'); next}

  lool[[paste0(i, '-', j)]] <- data.frame(title   = res$results$name,
                                          address = res$results$formatted_address)
  token = res$next_page_token

  while(!is.null(token)){
    j = j + 1
    res_n <- google_places(search_string = searches[i],
                           page_token    = token,
                           key = key)

    lool[[paste0(i, '-', j)]] <- data.frame(title   = res_n$results$name,
                                            address = res_n$results$formatted_address)
    token <- res_n$next_page_token

  }
  aa = res$status
  cat(i, j, aa, '\n')
}

使用此代码，第三页导致

$`html_attributions`
list()

$`results`
list()

$`status`
[1] "INVALID_REQUEST"

如果我像这样运行代码

token <- res$next_page_token

  if(!is.null(token)){
    j     <- j + 1
    res_2 <- google_places(search_string = searches[i],
                           page_token    = token,
                           key = joao_key)

    lool[[paste0(i, '-', j)]] <- data.frame(title   = res_2$results$name,
                                            address = res_2$results$formatted_address)
    token2 <- res_2$next_page_token
    #print(j)
  }
  if(!is.null(token2)){
    j = j + 1
    res_3 <- google_places(search_string = searches[i],
                           page_token    = token,
                           key = joao_key)

    lool[[paste0(i, '-', j)]] <- data.frame(title   = res_3$results$name,
                                            address = res_3$results$formatted_address)
    token3 <- res_3$next_page_token
    #print(j)
  }
  if(!is.null(token3)){
    j = j + 1
    res_4 <- google_places(search_string = searches[i],
                           page_token    = token,
                           key = joao_key)

    lool[[paste0(i, '-', j)]] <- data.frame(title   = res_4$results$name,
                                            address = res_4$results$formatted_address)
    token4 <- res_4$next_page_token
    #print(j)
  }

一切正常。我在这里想念什么？

4

0 回答 0