# NOT RUN {
# }
# 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