r_rfacebook.r

install.packages("devtools")
library(devtools)

install_github("Rfacebook", "pablobarbera", subdir="Rfacebook")


require("Rfacebook")





######Using the App Authentication:

fb_oauth <- fbOAuth(app_id="123456789", app_secret="1A2B3C4D",extended_permissions = TRUE)


#now we have our fb_oauth connection
 #we will just save them to be able to use them later
 save(fb_oauth, file="fb_oauth")
 
 #so if you want to connect to Facebook again you just have to call
 load("fb_oauth")

 me <- getUsers("me",token=fb_oauth)
 
 my_likes <- getLikes(user="me", token=fb_oauth)
 
 
 ######Using the Token Authentication:

token <- 'YOUR AUTHENTICATION TOKEN'
me <- getUsers("me", token, private_info=TRUE)

getUsers(c("barackobama", "donaldtrump"), token)


getFriends(token, simplify = FALSE)

my_friends <- getFriends(token=fb_oauth, simplify=TRUE)

head(my_friends, n=10)

getUser()

my_friends_info <- getUsers(my_friends$id, token=fb_oauth, private_info=TRUE)
 
 #create a table with the relationship statuses
 
table(my_friends_info$relationship_status)