Facebook 回复中的问题从 post 条评论下载

Question

我正在尝试从 FACEBOOK public post 页面下载 public 评论和回复。

我的代码一直工作到 2018 年 2 月 5 日，现在它显示 "Replies".

的以下错误

Error in data.frame(from_id = json$from$id, from_name = json$from$name,  : 
  arguments imply differing number of rows: 0, 1
Called from: data.frame(from_id = json$from$id, from_name = json$from$name, 
    message = ifelse(!is.null(json$message), json$message, NA), 
    created_time = json$created_time, likes_count = json$like_count, 
    comments_count = json$comment_count, id = json$id, stringsAsFactors = F)

请参考下面我正在使用的代码。

    data_fun=function(II,JJ,page,my_oauth){
  test <- list()
  test.reply<- list()
  for (i in II:length(page$id)){
    test[[i]] <- getPost(post=page$id[i], token = my_oauth,n= 100000, comments = TRUE, likes = FALSE)
    if (nrow(test[[i]][["comments"]]) > 0) {
      write.csv(test[[i]], file = paste0(page$from_name[2],"_comments_", i, ".csv"), row.names = F)
      for (j in JJ:length(test[[i]]$comments$id)){
        test.reply[[j]] <-getCommentReplies(comment_id=test[[i]]$comments$id[j],token=my_oauth,n = 100000, replies = TRUE,likes = FALSE)
        if (nrow(test.reply[[j]][["replies"]]) > 0) {
          write.csv(test.reply[[j]], file = paste0(page$from_name[2],"_replies_",i,"_and_", j, ".csv"), row.names = F)
        }}}
}
  Sys.sleep(10)}

提前感谢您的支持。

Answer 1

我遇到了与 Facebook 在 1 月底更改 api 规则完全相同的问题。如果您使用来自 Pablo Barbera 的 github 的 'devtools' 更新您的软件包，它应该适合您。我已经（稍微）修改了我的代码，现在它可以很好地回复 comments.There 是一件令人沮丧的事情，Facebook 似乎不允许提取用户名。我已经有了一个数据池，所以我现在用它来训练和预测性别。如果您有任何问题并想联系 - 请给我发电子邮件至 'robert.chestnutt2@mail.dcu.ie'

顺便说一下 - 这对您来说可能不是问题，但我过去曾遇到过将 Rfacebook 输出写入 csv 的挑战。将输出保存为 .RData 文件可以更好地维护表格

Facebook 回复中的问题从 post 条评论下载

Issue in Facebook Replies download from post comments

rstudio

rfacebook