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