tryingstats

tryingstats / facebook_mining.r

Created June 11, 2013 08:58 — forked from simecek/facebook_mining.r

	# go to 'https://developers.facebook.com/tools/explorer' to get your access token
	access_token <- "***************** INPUT YOUR ACCESS TOKEN ****************************"

	require(RCurl)
	require(rjson)

	# Facebook json function copied from original (Romain Francois) post
	facebook <- function( path = "me", access_token, options){
	if( !missing(options) ){
	options <- sprintf( "?%s", paste( names(options), "=", unlist(options), collapse = "&", sep = "" ) )