fixes #168

pablobarbera · Feb 8, 2018 · 45b39c6 · 45b39c6
1 parent 173257e
commit 45b39c6
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 4 deletions.
diff --git a/Rfacebook/ChangeLog b/Rfacebook/ChangeLog
@@ -83,3 +83,5 @@
 2017-07-11 - version 0.6.17
     - getUsers now works with recent versions of API
     - getMembers function added (thanks Yan Turgeon)
+2018-02-08 - version 0.6.18
+    - getCommentReplies() returns NA for from field when API does not return it
diff --git a/Rfacebook/DESCRIPTION b/Rfacebook/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: Rfacebook
 Title: Access to Facebook API via R
 Description: Provides an interface to the Facebook API.
-Version: 0.6.17
-Date: 2017-07-11
+Version: 0.6.18
+Date: 2018-02-08
 Author: Pablo Barbera <pbarbera@usc.edu>, Michael Piccirilli
     <mrp2181@columbia.edu>, Andrew Geisler, Wouter van Atteveldt, Yan Turgeon
 Maintainer: Pablo Barbera <pbarbera@usc.edu>

diff --git a/Rfacebook/R/getCommentReplies.R b/Rfacebook/R/getCommentReplies.R
@@ -16,6 +16,10 @@
 #' to the comment (author, message, creation time, id). Finally, \code{likes} is 
 #' data frame that contains names and Facebook IDs of all the users that liked the comment.
 #'
+#' Note that user information (from_id and from_name) are only returned if the token used
+#' to authenticate is a Page access token. For more information, see: 
+#' \url{https://developers.facebook.com/docs/graph-api/reference/v2.10/comment}
+#'
 #' @author
 #' Yan Turgeon
 #' @seealso \code{\link{getPage}}, \code{\link{getPost}}

diff --git a/Rfacebook/R/utils.R b/Rfacebook/R/utils.R
@@ -255,8 +255,8 @@ tagsDataToDF <- function(tags){
 
 replyDataToDF <- function(json){
   df <- data.frame(
-    from_id = json$from$id,
-    from_name = json$from$name,
+    from_id = ifelse(!is.null(json$from$id), json$from$id, NA),
+    from_name = ifelse(!is.null(json$from$name), json$from$name, NA),
     message = ifelse(!is.null(json$message),json$message, NA),
     created_time = json$created_time,
     likes_count = json$like_count,

diff --git a/Rfacebook/man/getCommentReplies.Rd b/Rfacebook/man/getCommentReplies.Rd