# NOT RUN {
# }
# NOT RUN {
require(magrittr)
## Facebook example
# Specify your API keys
appID <- "xxxx"
appSecret <- "xxxx"
# Authenticate and Collect some data (and save data to disk using `writeToFile=TRUE`)
myFacebookData <- Authenticate("Facebook", appID = appID, appSecret = appSecret) %>%
Collect(pageName="StarWars", rangeFrom="2015-03-01",
rangeTo="2015-03-02", writeToFile=TRUE)
# Import the data (that was saved to disk in the previous step)
myStarWarsData <- importData("2015-03-01_to_2015-03-02_StarWars_FacebookData.csv","facebook")
# Create a network using the imported dataframe object
myNetwork <- myStarWarsData %>% Create("Bimodal")
# }
Run the code above in your browser using DataLab