如何使数据框不在列表中？

Question

我正在使用来自维基百科页面的信息来创建数据框。确切地说是1905年的维基百科页面。我在数据框portalAcadie_titles下使用下面的函数以及页面标题列表。

以下是我要从中提取信息的一些标题：

“ 10e Conventional national acadienne”，“ 11e Conventional nationalacadienne”，“ 12e national acadienne公约”，“ 13e national acadienne公约”，“ 14e国民阿卡迪亚公约”，“ 15e国民阿卡迪尼公约”，“ 16e national acadienne公约”，“ 1755（groupe）”，“ 1re national national acadienne公约”，“第2e国国民大会”，“第33e大结局”“ 3e Convention Nationale acadienne”，“ 4e Conventional nationalacadienne”，“ 5e Conventional nationale acadienne”，“ 6e Conventional nationalacadienne”，“ 7e Conventional Nationale Acadienne”，“ 8e Conventional Nationale Acadienne”，“ 9e Convention nationale acadienne”，“AbbéLanteigne”，“ Abel Leblanc”，“阿伯丁（Nouvelle-Écosse），” Aboiteau“，” Abrams-Village“

请参见下面的代码：

library(WikipediR)
pageInfo_fun <- function(portalAcadie_titles){
  page_info(language = "fr", 
            project = "wikipedia", 
            page = portalAcadie_titles,
            properties = c("url"),
            clean_response = T, Sys.sleep(0.0001))}

pageInfo_data <- apply(portalAcadie_titles,1, pageInfo_fun)

我正在尝试将其添加到数据框，每个观察结果都是一个页面，其属性为变量。但是它为我提供了每个页面的特征列表，位于所有页面的列表中。

简单

pageInfo_df <- data.frame(pageInfo_data)

让我并排观察到所有特征的每一页。我有24 773个变量的1个观察值。

我的问题是：如何将每个页面作为特征并将特征作为变量？

Answer 1

pageInfo_fun当前返回一个嵌套列表，如果将函数转换为返回一个数据框，则可以对每个页面使用lapply，然后将它们rbind一起形成一个数据框。

pageInfo_fun <- function(portalAcadie_titles){
  as.data.frame(page_info(language = "fr", 
         project = "wikipedia", 
         page = portalAcadie_titles,
         properties = c("url"),
         clean_response = T, Sys.sleep(0.0001)))
}

x <- c("10e Convention nationale acadienne", "11e Convention nationale acadienne")
do.call(rbind, lapply(x, pageInfo_fun))