fixes #168

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

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 <[email protected]>, Michael Piccirilli
     <[email protected]>, Andrew Geisler, Wouter van Atteveldt, Yan Turgeon
 Maintainer: Pablo Barbera <[email protected]>

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}}

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,