Rfacebookの複数の投稿のコメントを取得する

Question

私はgetPostを使用して投稿のコメントを検索していますが、すべての投稿に対してそうしていますか？

提供された例である：

...ポストの固有IDである

getPost(post=page$id[...], token, n = 500, comments = TRUE) 

。

投稿のIDごとに反復することなく、すべての投稿のコメントを取得する方法はありますか？

Answer 1

：

pag_loop$idは（GETPAGEによって取得）投稿のIDのベクトルである

x <- map(pag_loop$id, getPost, token = fb_oauth, n = 5000) 

を、そしてあなたは、このような何かを行う必要がありますこの場合のトークンは（一時的な）ユーザーアクセストークンです。その後、

そして：

df_info_total <- do.call(rbind, x) #large matrix de 3*number_of_posts elementos 
df_info_total <- bind_rows(df_info_total) #to get the total dataframe 

Answer 2

投稿のコメントを取得するためのRfacebookパッケージに直接の機能はありません。すべてのコメントを取得するには、すべてのポストIDを繰り返し、コメントをバインドする必要があります。あなたがpurrrからマップ（）関数を試みることができる

i<-1 
    df<-data.frame(from_id=numeric(),message=character(),....,id=numeric(),stringsAsFactors = FALSE) 
    while(i<=nrow(posts)){ 
     comments<-getPost(post=posts$id[i],token=fb_oauth,n=500)[['comments']] 
     df<-rbind(df,comments) 
     i<-i+1 
    }