diff --git a/Rfacebook/R/getCommentReplies.R b/Rfacebook/R/getCommentReplies.R index b930140..25c4256 100644 --- a/Rfacebook/R/getCommentReplies.R +++ b/Rfacebook/R/getCommentReplies.R @@ -55,7 +55,7 @@ getCommentReplies <- function(comment_id, token, n=500, replies=TRUE, likes=FALS n.replies=n){ url <- paste0("https://graph.facebook.com/", comment_id, - "?fields=from,message,created_time,like_count,comment_count") #return initial comments + "?fields=from,message,created_time") #return initial comments if (replies==TRUE){ url <- paste0(url, ",comments.summary(true).", diff --git a/Rfacebook/R/utils.R b/Rfacebook/R/utils.R index 62ad8b6..b7ca4c2 100644 --- a/Rfacebook/R/utils.R +++ b/Rfacebook/R/utils.R @@ -242,8 +242,6 @@ replyDataToDF <- function(json){ 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) return(df)