R 中的 Yelp V2 API 查询循环

Question

我正在使用 R 中的 Yelp API 来拉低一些业务。根据我在文档中阅读的内容，每个 API 调用最多可以提取 20 个业务，但是如果使用 offset= 参数，您基本上可以提取更多记录。

我要做的是创建一个简单的循环来创建多个 API 调用，其中 offset= 参数的值递增。

例如——第一个 API 调用如下所示：

yelpURL <- paste0("http://api.yelp.com/v2/search/?limit=20&offset=20&sort=0&term=food&location=Chicago")

下一次调用的偏移量为 20，然后是 40、60、80，依此类推。我不知道该怎么写。我想减少我相信的最大企业数量 1,000，并将它们添加到单个数据框中。下面是我的完整代码：

# yelp credentials
consumerKey = "xxxxxxx"
consumerSecret = "xxxxxxx"
token = "xxxxxxx"
tokenSecret = "xxxxxxx"

require(httr)
myApp <- oauth_app("YELP", key=consumerKey, secret=consumerSecret)
mySignature <- sign_oauth1.0(myApp, token=token, token_secret=tokenSecret)


yelpURL <- paste0("http://api.yelp.com/v2/search/?limit=20&offset=20&sort=0&term=food&location=Chicago")
locationData <- GET(yelpURL, mySignature)

require(jsonlite)
locationDataContent = content(locationData)
locationList=jsonlite::fromJSON(toJSON(locationDataContent))
results <- data.frame(locationList)

Answer 1

“查询循环”的一般方法是将这些 url 读入列表，将每个 json 输入转换为数据框，最后将所有列出的数据框合并为组合数据框：

locationDataList.raw <- lapply(sprintf("http://api.yelp.com/v2/search/?limit=20&offset=%d&sort=0&term=food&location=Chicago", 
                                       seq(0, 60, 20)), 
                               GET, mySignature)
locationDataList <- lapply(locationDataList.raw, function(locationData) {
  locationDataContent = content(locationData)
  locationList=jsonlite::fromJSON(toJSON(locationDataContent))
  return(data.frame(locationList))
})
result <- do.call(rbind, locationDataList)

但是，要将它们“添加到单个数据框”中，您可能必须在合并之前展平/整理数据 (rbind)。例如。选择感兴趣的列。但这将是另一个故事。