# NOT RUN {
# }
# NOT RUN {
## This example shows how to collect Facebook page data and create a bimodal network
# Use your own values for myAppID and myAppSecret
myAppID <- "123456789098765"
myAppSecret <- "abc123abc123abc123abc123abc123ab"
# Authenticate with the Facebook API using `AuthenticateWithFacebookAPI`
fb_oauth <- AuthenticateWithFacebookAPI(appID=myAppID, appSecret=myAppSecret,
extended_permissions=FALSE, useCachedToken=TRUE)
# Run the `CollectTemporalDataFacebook` function and
# store the results in variable `myTemporalFacebookData`
myTemporalFacebookData <- CollectTemporalDataFacebook(pageName="StarWars",
rangeFrom="2015-05-14",rangeTo="2015-06-04",verbose=FALSE,writeToFile=FALSE)
# Create a dynamic 'bimodal' Facebook network using `CreateDynamicNetwork`
g_bimodal_dynamic_facebook <- CreateDynamicNetwork(myTemporalFacebookData)
# View descriptive information about the bimodal network
g_bimodal_facebook
# }
Run the code above in your browser using DataLab