Ошибка в Rfacebook getPost - Аргумент имеет длину 0

Question

Всякий раз, когда я пытаюсь получить пост с большим количеством комментариев из Facebook с помощью функции getPost в Rfacebook, я получаю следующую ошибку:

Error in while (n.l < n.likes & length(content$data) > 0 & !is.null(url <- content$paging$`next`)) { : 
  Argument has length 0

Код, который я пытаюсь запустить, выглядит следующим образом:

post <- getPost(post = "Post-ID", token = token, n = 200)

Я также пытался поиграться с различными аргументами функции, но пока ничего не получалось... У кого-нибудь есть идея, что могло вызвать эту ошибку? Любая помощь очень ценится!

Вот ссылка на документацию функции getPost: https://www.rdocumentation.org/packages/Rfacebook/versions/0.6.15/topics/getPost

Answer 1

У меня есть способ, который атакует вашу проблему под немного другим углом.

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

Шаг 1: посмотрите, на какой "странице" находится сообщение, затем вы можете извлечь "сообщение", но убедитесь, что используете временные параметры, например: "Если вы хотите извлечь сообщение из страницы Nike FB, содержащей огромное количество комментариев" - который случился осенью 6 июня 2016 года "

nike_posts <- getPage ("nike", токен = fboauth, n = 100000, с = '2016/06/05', до = '2016/06/07')

Шаг 2: Затем у вас будет фрейм данных постов - скажем, на примере 7 наблюдений за это время (возможно, они публикуются несколько раз в день). Если пост, который вы ищете, это наблюдение №3, то извлеките комментарии следующим образом:

Комментарии <- getPost (nike_posts $ id [3], токен = fboauth, n = 10000, комментарии = TRUE, лайки = FALSE, n.likes = 1, n.comments = 100000)

преобразовать этот вывод в DataFrame

библиотека (plyr)

Комментарии <- ldply (Комментарии, data.frame)