## Not run: ------------------------------------
# ## Use your own values for myAppID and myAppSecret
# appID <- "xxxx"
# appSecret <- "yyyy"
#
# ## Collect data and create bimodal network
#
# g_bimodal_facebook_star_wars <- Authenticate("Facebook",
# appID = appID, appSecret = appSecret) %>%
# SaveCredential("FBCredential.RDS") %>%
# Collect(pageName="StarWars", rangeFrom="2015-03-01",
# rangeTo="2015-03-02", writeToFile=FALSE) %>%
# Create("Bimodal")
#
# ## Create a dynamic network using the saved credentials
#
# g_bimodal_facebook_star_wars_dynamic <-
# LoadCredential("FBCredential.RDS") %>%
# Collect(pageName="StarWars", rangeFrom="2015-03-01",
# rangeTo="2015-03-02", writeToFile=FALSE) %>%
# Create("dynamic")
## ---------------------------------------------
Run the code above in your browser using DataLab