# NOT RUN {
# }
# NOT RUN {
## Use your own values for myAppID and myAppSecret
myAppID <- "123456789098765"
myAppSecret <- "abc123abc123abc123abc123abc123ab"
# Authenticate with the Instagram API using `AuthenticateWithInstagramAPI`
instagram_oauth_token <- AuthenticateWithInstagramAPI(appID=app_id, appSecret=app_secret,
useCachedToken=TRUE)
myUsernames <- c("senjohnmccain","obama")
g_ego_network <- CreateEgoNetwork(username=myUsernames,verbose=TRUE,degreeEgoNet=1,
writeToFile=FALSE,waitForRateLimit=TRUE,getFollows=FALSE)
# Description of actor network
g_ego_network
# }
Run the code above in your browser using DataLab