1

我以为我已经使用jsonlite&正确解析了数据tidyjson。但是，我注意到只有第一页的数据正在被解析。请建议我如何正确解析所有页面。总页数超过 1300 - 如果我查看json输出，所以我认为数据可用但未正确解析。

注意：我使用过tidyjson，但也愿意使用jsonlite或任何其他库。

library(dplyr)
library(tidyjson)
library(jsonlite)

 req <- httr::GET("http://svcs.ebay.com/services/search/FindingService/v1?OPERATION-NAME=findItemsByKeywords&SERVICE-VERSION=1.0.0&SECURITY-APPNAME=xxxxxx&GLOBAL-ID=EBAY-US&RESPONSE-DATA-FORMAT=JSON&callback=_cb_findItemsByKeywords&REST-PAYLOAD&keywords=harry%20potter&paginationInput.entriesPerPage=100")

txt <- content(req, "text")

json <- sub("/**/_cb_findItemsByKeywords(", "", txt, fixed = TRUE)

json <- sub(")$", "", json)

data1 <- json %>% as.tbl_json %>% 

  enter_object("findItemsByKeywordsResponse") %>% gather_array %>%       enter_object("searchResult") %>% gather_array %>%  
  enter_object("item") %>% gather_array %>%
  spread_values(
    ITEMID = jstring("itemId"),
    TITLE = jstring("title")
  ) %>%
  select(ITEMID, TITLE) # select only what is needed

############################################################ 

*Note: "paginationOutput":[{"pageNumber":["1"],"entriesPerPage":["100"],"totalPages":["1393"],"totalEntries":["139269"]}]

* &_ipg=100&_pgn=1"
4

1 回答 1

2

不需要tidyjson。您将需要编写另一个函数/一组调用来获取总页数（超过 1,400）才能使用以下内容，但这应该相当简单。尝试更多地划分您的操作，并httr在可以参数化的情况下使用全部功能：

library(dplyr)
library(jsonlite)
library(httr)
library(purrr)

get_pg <- function(i) {

  cat(".") # shows progress

  req <- httr::GET("http://svcs.ebay.com/services/search/FindingService/v1",
                   query=list(`OPERATION-NAME`="findItemsByKeywords",
                              `SERVICE-VERSION`="1.0.0",
                              `SECURITY-APPNAME`="xxxxxxxxxxxxxxxxxxx",
                              `GLOBAL-ID`="EBAY-US",
                              `RESPONSE-DATA-FORMAT`="JSON",
                              `REST-PAYLOAD`="",
                              `keywords`="harry potter",
                              `paginationInput.pageNumber`=i,
                              `paginationInput.entriesPerPage`=100))

  dat <- fromJSON(content(req, as="text", encoding="UTF-8"))

  map_df(dat$findItemsByKeywordsResponse$searchResult[[1]]$item, function(x) {

    data_frame(ITEMID=flatten_chr(x$itemId),
               TITLE=flatten_chr(x$title))

  })

}

# "10" will need to be the max page number. I wasn't about to 
# make 1,400 requests to ebay. I'd probably break them up into 
# sets of 30 or 50 and save off temporary data frames as rdata files
# just so you don't get stuck in a situation where R crashes and you
# have to get all the data again.

srch_dat <- map_df(1:10, get_pg)

srch_dat

## Source: local data frame [1,000 x 2]
## 
##          ITEMID                                                                            TITLE
##           (chr)                                                                            (chr)
## 1  371533364795                 Harry Potter: Complete 8-Film Collection (DVD, 2011, 8-Disc Set)
## 2  331128976689                   HOT New Harry Potter 14.5" Magical Wand Replica Cosplay In Box
## 3  131721213216                 Harry Potter: Complete 8-Film Collection (DVD, 2011, 8-Disc Set)
## 4  171430021529   New Harry Potter Hermione Granger Rotating Time Turner Necklace Gold Hourglass
## 5  261597812013            Harry Potter Time Turner+GOLD Deathly Hallows Charm Pendant necklace 
## 6  111883750466                 Harry Potter: Complete 8-Film Collection (DVD, 2011, 8-Disc Set)
## 7  251947403227                   HOT New Harry Potter 14.5" Magical Wand Replica Cosplay In Box
## 8  351113839731 Marauder's Map Hogwarts Wizarding World Harry Potter Warner Bros LIMITED **NEW**
## 9  171912724869 Harry Potter Time Turner Necklace Hermione Granger Rotating Spins Gold Hourglass
## 10 182024752232  Harry Potter : Complete 8-Film Collection (DVD, 2011, 8-Disc Set) Free Shipping
## ..          ...                                                                              ...
于 2016-02-15T20:01:41.750 回答