Проблема в Facebook Ответы скачать из поста комментариев

Question

Я пытаюсь загрузить публичные комментарии и ответы из публичной публикации FACEBOOK по странице.

мой код работает до 5 февраля 18, теперь он показывает ошибку ниже для "Ответов".

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 изменил правила API в конце января. Если вы обновите свой пакет с помощью 'devtools' из github Пабло Барбера, он должен работать для вас. Я изменил свой код (немного), и теперь он отлично работает для ответов на комментарии. Однако есть одна неприятная вещь: Facebook, похоже, не позволяет извлекать имя пользователя. У меня уже есть пул данных, поэтому я использую его для обучения и прогнозирования пола. Если у вас есть какие-либо вопросы и вы хотите с ними связаться - напишите мне по адресу "[e-mail]"

Между прочим - это может не быть проблемой для вас, но в прошлом у меня были проблемы с записью вывода Rfacebook в CSV. Сохранение вывода в виде файла.RData намного лучше поддерживает форму