0

我编写了一个函数，该函数将从 Google Maps API 中提取地理空间数据，并使用 googleway 函数“google_places”将 1) 名称 2) 坐标存储在数据框中。

Google_places 使用“下一页令牌”进行一次完整搜索的总共 3 次 API 调用。

当从函数中拉出时，此代码运行良好并返回一个 60 行数据帧。

但是，当我使用适当的参数运行此函数时，它会返回一个只有 40 个结果的数据框。

我已经在我的代码中明确地运行了所有三个必要的调用，而不仅仅是两个。

我不确定为什么这段代码可以在函数之外工作，但不能在函数内部工作。

有谁知道这里发生了什么？

同样，这是使用 googleway google_places 功能。https://rdrr.io/cran/googleway/man/google_places.html

谢谢！这是代码：

一世。首先设置搜索中使用的条件

search_string <- "Urgent care center"
key <- key #my API key
radius <- 50000
location <- L1 


#L1 is a numeric vector of coordinates [1]   39 -105


search <- google_places(search_string, key, location, radius)

ii. 通过从一个搜索调用创建数据框来初始化搜索的函数（总共有三个搜索调用）。

thin_df <- function(search){
  a <- search$results$name
  b <- search$results$geometry$location$lat
  c <- search$results$geometry$location$lng
  thin_df <- data.frame(a, b, c)
  return(thin_df)}

iii. 在这个函数中，一个'central df'结合了三个'thin df'调用结果，使用之前定义的参数和thin_df函数创建了一个对第一个坐标对的完整搜索。

full_search <- function(search_string, 
       key, location, radius){

call_1 <- google_places(search_string, 
                        key, 
                        location, 
                        radius)
thin1 <- thin_df(call_1)

call_2 <- google_places(search_string = search_string, 
                      page_token = call_1$next_page_token, 
                      key = key, 
                      location = location, 
                      radius = radius)
thin2 <- thin_df(call_2)
full_df <- rbind(thin1, thin2)

call_3 <- google_places(search_string, 
                      page_token = call_2$next_page_token,
                      key, 
                      location, 
                      radius)
thin3 <- thin_df(call_3)
central_df <- rbind(full_df, thin3)
return(central_df)
}
  
central_df <- full_search(("Urgent care center", key, L1, 50000)
4

1 回答 1

1

我怀疑您的问题是您违反了每秒可以发出的请求数。

在我的例子中

  • 我使用while循环来控制多个调用
  • 我添加了一个Sys.sleep(2)调用来暂停该功能 2 秒
  • 我access_results用来获取结果的具体组成部分（这只是一个方便的功能）
  • 我检查结果的状态，res$status如果是，则仅尝试获取内容"OK"

这只是我整理的一些内容，旨在为您提供一些关于如何使其正常工作和处理一些常见错误的想法。随意更改它以适应您的编程风格/要求。

search_string <- "Urgent care center"
key <- secret::get_secret("GOOGLE")
radius <- 50000
location <- c(39, -105)

format_res <- function(res) {

  setNames(
    cbind(
      googleway::access_result(res, "coordinates")
      , googleway::access_result(res, "place_name")
    )
    , c("lat", "long", "name")
  )
}

do_search <- function(search_string, key, location, radius, page_token = NULL) {
  
  google_places(
    search_string = search_string
    , location = location
    , key = key
    , radius = radius
    , page_token = page_token
  )
}

full_search <- function(search_string, key, location, radius) {
  
  counter <- 0
  
  page_token <- NULL ## can start on NULL because it means we're doing the first query
  is_another_page <- TRUE 
  
   
  while( is_another_page ) {
    
    res <- do_search(search_string, key, location, radius, page_token)
    
    if( res$status == "OK" ) { ## check a valid result was returned
    
      if( counter == 0 ) {
        df <- format_res( res )
      } else {
        df <- rbind(df, format_res( res ) )
      }
      
      counter <- counter + 1
    }
    
    page_token <- res[["next_page_token"]]
    is_another_page <- !is.null( page_token )
    Sys.sleep(2)  ## Sleep the function before the next call because there's a time limit
  }
  return(df)
}

df <- full_search(search_string, key, location, radius)

str( df )
# 'data.frame': 60 obs. of  3 variables:
#   $ lat : num  38.9 38.8 38.9 38.9 38.9 ...
# $ long: num  -105 -105 -105 -105 -105 ...
# $ name: chr  "UCHealth Urgent Care - Garden of the Gods" "UCHealth Urgent Care - Circle Square" "Penrose Community Urgent Care" "Emergicare Austin Bluffs" ...
于 2022-02-20T07:28:58.967 回答