## Not run: ------------------------------------
# myAppID <- "123456789098765"
# myAppSecret <- "abc123abc123abc123abc123abc123ab"
# instagram_oauth_token <- AuthenticateWithInstagramAPI(appID=myAppID,
# appSecret=myAppSecret, useCachedToken=TRUE)
# myUsernames <- c("senjohnmccain","obama")
# instagramEgodata <- CollectEgoInstgram(username=myUsernames,
# verbose=TRUE,degreeEgoNet=1,
# waitForRateLimit=TRUE,getFollows=FALSE)
# CreateEgoNetoworkFromData(instagramEgodata)
# ## the same as Create(instagramEgodata) or Create(instagramEgodata, "ego")
## ---------------------------------------------
Run the code above in your browser using DataLab