Question

我正在尝试从多个请求构建一个JSON文件，但在第二个请求中似乎出错了。我正在使用Meetup API，因为结果的总数是600+，我需要更多的调用，而不仅仅是返回200个结果的调用。

我认为它会将结果存储在文件中，尽管从这些结果创建数据框时会出错：

Error in feed_push_parser(readBin(con, raw(), n), reset = TRUE) : 
  parse error: trailing garbage
          ,"lat":52.36}}  {"results":[{"utc_offset":36000
                     (right here) ------^

将数据放入数据框的函数

json_to_df <- function(){
  df <- jsonlite::fromJSON('Meetup/meetupdata.json', flatten=TRUE)
}

我如何收集数据：

store_open_events <- function(){
  events_url = sprintf('%s/2/open_events?&key=%s&sign=true&photo-host=public&lat=x.xx&country=x&city=Amsterdam&lon=x.xx&time=-24m,&status=past&page=200', API_BASE, API_KEY)
  k = GET(events_url)
  events = content(k, "text")
  file_location = 'Meetup/meetupdata.json'
  write(events, file_location, append=TRUE)
  for(i in 0:2){
    events_url = jsonlite::fromJSON(content(k, "text"), flatten=TRUE)
    k = GET(events_url$meta$`next`)
    events = content(k, "text")
    file_location = 'Meetup/meetupdata.json'
    write(events, file_location, append=TRUE)
  }
}

我想知道这是否可行，添加这样的JSON文件，以及为什么将此数据放入数据帧时会发生错误？任何帮助表示赞赏！

R通过附加请求

0 个答案: