## Not run: ------------------------------------
# require(magrittr)
# ## Instagram ego network example
# myAppID <- "123456789098765"
# myAppSecret <- "abc123abc123abc123abc123abc123ab"
# myUsernames <- c("senjohnmccain","obama")
#
# Authenticate("instagram",
# appID = myAappId,
# appSecret = myAppSecret) %>% Collect(ego = TRUE,
# username = myUsernames) %>% Create
#
# ## YouTube actor network example
# my_apiKeyYoutube <- "314159265358979qwerty"
# videoIDs <- c("W2GZFeYGU3s","mL27TAJGlWc")
#
# Authenticate("youtube",
# apiKey = my_apiKeyYoutube) %>% Collect(videoIDs = videoIDs) %>% Create('actor')
## ---------------------------------------------
Run the code above in your browser using DataLab