# NOT RUN {
# }
# 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