fixes #138 (getUsers now works w/recent APIs)

Rfacebook/ChangeLog

@@ -80,3 +80,5 @@
 2017-06-01 - version 0.6.16
     - documentation updates
     - searchGroups now returns 25+ results
+2017-07-11 - version 0.6.17
+    - getUsers now works with recent versions of API

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.16
-Date: 2017-06-01
+Version: 0.6.17
+Date: 2017-07-11
 Author: Pablo Barbera <[email protected]>, Michael Piccirilli
     <[email protected]>, Andrew Geisler, Wouter van Atteveldt
 Maintainer: Pablo Barbera <[email protected]>

Rfacebook/R/getUsers.R

@@ -37,15 +37,15 @@
 #' }
 #'
 
-getUsers <- function(users, token, private_info=FALSE)
+getUsers <- function(users, token, private_info=FALSE, api="v2.9")
 {
 
 	tkversion <- getTokenVersion(token)
 	api.max <- ifelse(tkversion=='v2', 50, 500)
 
 	if (length(users)==1 && users=='me'){
 		query <- paste0('https://graph.facebook.com/',
-			ifelse(tkversion=='v2', 'v2.0/', ''), 'me?')
+			ifelse(tkversion=='v2', api, ''), '/me?')
 		content <- callAPI(query, token)
 		df <- userDataToDF(list(content), private_info=private_info)
 		return(df)
@@ -57,27 +57,28 @@ getUsers <- function(users, token, private_info=FALSE)
 	users.query <- paste(users[1:first.n], collapse=",")
 	## first query: checking what users are actual users vs pages
 	query <- paste0('https://graph.facebook.com/',
-		ifelse(tkversion=='v2', 'v2.0/', ''), '?ids=', users.query)
+		ifelse(tkversion=='v2', api, ''), '?ids=', users.query, "&metadata=1")
 	## making query
 	content <- callAPI(query, token)
 	if (length(content$error_code)>0){
 		stop(content$error_msg, ". Querying too many users?")
 	}	
-	actual.users <- which(unlist(lapply(content, function(x) is.null(x$category))))
-	pages <- which(unlist(lapply(content, function(x) !is.null(x$category))))	
+	types <- unlist(lapply(content, function(x) x$metadata$type))
+	actual.users <- names(types)[types=="user"]
+	pages <- names(types)[types=="page"]
 	## getting data for users	
 	if (length(actual.users)>0){
 		if (private_info==TRUE){
 		query <- paste('https://graph.facebook.com/',
-			ifelse(tkversion=='v2', 'v2.0/', ''), '?ids=', 
-			paste(names(actual.users), collapse=","), 
+			ifelse(tkversion=='v2', api, ''), '?ids=', 
+			paste(actual.users, collapse=","), 
 			"&fields=id,name,first_name,middle_name,last_name,gender,locale,birthday,",
 			"location,hometown,relationship_status,picture.type(large)", sep="")
 		}
 		if (private_info==FALSE){
 		query <- paste('https://graph.facebook.com/',
-			ifelse(tkversion=='v2', 'v2.0/', ''), '?ids=', 
-			paste(names(actual.users), collapse=","),
+			ifelse(tkversion=='v2', api, ''), '?ids=', 
+			paste(actual.users, collapse=","),
 			"&fields=id,name,first_name,middle_name,last_name,gender,locale,",
 			"picture.type(large)", sep="")
 		}		
@@ -91,9 +92,9 @@ getUsers <- function(users, token, private_info=FALSE)
 	if (length(pages)>0){
 		## getting data for pages
 		query <- paste('https://graph.facebook.com/',
-			ifelse(tkversion=='v2', 'v2.0/', ''), '?ids=', 
-			paste(names(pages), collapse=","), 
-			"&fields=id,name,category,likes,picture.type(large)", sep="")
+			ifelse(tkversion=='v2', api, ''), '?ids=', 
+			paste(pages, collapse=","), 
+			"&fields=id,name,category,fan_count,picture.type(large)", sep="")
 		## making query
 		content <- callAPI(query, token)
 		df.pages <- userDataToDF(content, private_info=private_info)	
@@ -114,7 +115,7 @@ getUsers <- function(users, token, private_info=FALSE)
 			users.query <- paste(users[first.n:last.n], collapse=",")
 			## first query: checking what users are actual users vs pages
 			query <- paste0('https://graph.facebook.com/',
-				ifelse(tkversion=='v2', 'v2.0/', ''), '?ids=', users.query)
+				ifelse(tkversion=='v2', api, ''), '?ids=', users.query)
 			## making query
 			content <- callAPI(query, token)
 			if (length(content$error_code)>0){
@@ -126,15 +127,15 @@ getUsers <- function(users, token, private_info=FALSE)
 			if (length(actual.users)>0){
 				if (private_info==TRUE){
 				query <- paste('https://graph.facebook.com/', 
-					ifelse(tkversion=='v2', 'v2.0/', ''), '?ids=', 
-					paste(names(actual.users), collapse=","), 
+					ifelse(tkversion=='v2', api, ''), '?ids=', 
+					paste(actual.users, collapse=","), 
 					"&fields=id,name,first_name,middle_name,last_name,gender,locale,birthday,",
 					"location,hometown,relationship_status,picture.type(large)", sep="")
 				}
 				if (private_info==FALSE){
 				query <- paste('https://graph.facebook.com/', 
-					ifelse(tkversion=='v2', 'v2.0/', ''), '?ids=', 
-					paste(names(actual.users), collapse=","),
+					ifelse(tkversion=='v2', api, ''), '?ids=', 
+					paste(actual.users, collapse=","),
 					"&fields=id,name,first_name,middle_name,last_name,gender,locale,",
 					"picture.type(large)", sep="")
 				}		
@@ -148,8 +149,8 @@ getUsers <- function(users, token, private_info=FALSE)
 			if (length(pages)>0){
 				## getting data for pages
 				query <- paste('https://graph.facebook.com/', 
-					ifelse(tkversion=='v2', 'v2.0/', ''), '?ids=', 
-					paste(names(pages), collapse=","), 
+					ifelse(tkversion=='v2', api, ''), '?ids=', 
+					paste(pages, collapse=","), 
 					"&fields=id,name,category,likes,picture.type(large)", sep="")
 				## making query
 				content <- callAPI(query, token)

Rfacebook/R/utils.R

@@ -189,7 +189,7 @@ userDataToDF <- function(user_data, private_info){
 		gender = unlistWithNA(user_data, 'gender'),
 		locale = unlistWithNA(user_data, 'locale'),
 		#category = unlistWithNA(user_data, 'category'),
-		likes = unlistWithNA(user_data, 'likes'),
+		likes = unlistWithNA(user_data, 'fan_count'),
 		picture = unlistWithNA(user_data, c('picture', 'data', 'url')),
 		stringsAsFactors=F)
 	if (private_info==TRUE){