将列表的结果更改为数据框

Question

从这个过程：

library(jsonlite)
library(httpuv)
library(httr)

i<-1
results3 <- list();
for (a in 1:2) {
    getURL = paste0("https://api.github.com/search/commits?q=sentimentcommitter-date:2000-01-01..2023-01-20&sort=committer-date&order=asc&per_page=100&page=",a)
    req <- GET(getURL)
    data <- content(req)
    results3[[i]] <- data$items
    i <- i + 1
    print(i)
}

如何将列表 results3 的结果转换为 200 行和 117 列的数据框，就像这里的df <- jsonlite::fromJSON(results_json, simplifyDataFrame = TRUE, flatten = TRUE)和length(df$items[[1]])

Answer 1

也许有点奇怪。但是首先制作一个 json 然后将其展平然后将它们绑定到 DF 会带来所需的结果。

js <- jsonlite::toJSON(results3)
df <- jsonlite::fromJSON(js, simplifyDataFrame = TRUE, flatten = TRUE)

ddf <- rbind(df[[1]], df[[2]])

class(ddf)
# [1] "data.frame"
dim(ddf)
# [1] 200 117