WikipediaR：如何使用contribs（）自动执行功能？

Question

我希望从1905年的Wikipedia文章列表中收集有关贡献者的信息，包括每页的贡献者数量。

目前，我可以为一页贡献者编写一个有效的脚本。

library(WikipediaR)
contribsWiki <- contribs(domain = "fr", page = 5916592)
contribsWiki2 <- contribsWiki[["contribs"]]
nrow(contribsWiki2)

如何使所有其他Wikipedia页面的流程自动化？

我尝试了tidyverse的apply（），但似乎我总是碰壁。

Answer 1

这应该做的是您要做的：

out <- data.frame()

for (i in 1:nrow(list_of_articles)){
id <- list_of_articles[i]
contribsWiki <- contribs(domain = "fr", page = id)
contribsWiki2 <- contribsWiki[["contribs"]]
no_of_contribs <- nrow(contribsWiki2)
out <- rbind(out,data.frame(id,no_of_contribs))
}