Соскреб Комментарий отвечает с Rfacebook

Question

Я использую пакет Rfacebook, чтобы очистить список общедоступных страниц, которые представляют интерес для моего исследовательского вопроса. Аутентификация работает должным образом, и я могу получить фреймы данных всех публичных постов, реакции на посты и комментарии к этим постам.

Тем не менее, я сталкиваюсь с проблемой, когда пытаюсь извлечь ответы на комментарии в общедоступных постах. Это код, который я использую:

BSBKB <-getPage("bersenbrueckerkreisblatt", token = my_OAuth, feed = TRUE, reactions = TRUE,verbose = TRUE, n = 1000)
#Getting comments for Post No.4
Comments <- getPost(BSBKB$id[4],token = my_OAuth, reactions = TRUE, n =180,likes=TRUE)
#Getting replies to comment No.4 under Post No.4
replies <- getCommentReplies(Comments$comments$id[4], token = my_OAuth, n = 500, replies = FALSE, likes= TRUE)

Этот код выдает следующую ошибку:

Error in data.frame(from_id = json$from$id, from_name = json$from$name,  : arguments imply differing number of rows: 0, 1

Как ни странно, та же ошибка возникает, когда я пытаюсь запустить пример кода из ?getCommentReplies() страница:

## Not run: 
## See examples for fbOAuth to know how token was created.
## Getting information about Facebook's Facebook Page
   load("fb_oauth")
   fb_page <- getPage(page="facebook", token=my_OAuth)
## Getting information and likes/comments about most recent post
   post <- getPost(post=fb_page$id[1], n=2000, token=my_OAuth)
## Downloading list of replies to first comment
   replies <- getCommentReplies(comment_id=post$comments$id[1], token=my_OAuth) 
## End(Not run)

В результате чего:

Error in data.frame(from_id = json$from$id, from_name = json$from$name,  : 
  arguments imply differing number of rows: 0, 1

Это систематическая ошибка в пакете, недавнее изменение в API или я где-то допустил ошибку? Любые предложения о том, как обойти это и извлечь комментарии к комментариям (и реакции на них в идеале), были бы хорошими!

Answer 1

Исходный код функции getCommentReplies опубликован на Github: https://github.com/yanturgeon/R_Script/blob/master/getCommentReplies_dev.R

Перезагрузите этот код в своей среде, но прежде чем сделать это, закомментируйте строку:

out[["reply"]] <- replyDataToDF(content)

Эффект будет по-прежнему в списке, а не в кадре данных.