# NOT RUN {
# }
# NOT RUN {
require(magrittr)
myAppID <- "123456789098765"
myAppSecret <- "abc123abc123abc123abc123abc123ab"
myUsernames <- c("senjohnmccain","obama")
Authenticate("instagram",
appID = myAppId,
appSecret = myAppSecret) %>% SaveCredential("instagramCred.RDS") %>% Collect(ego = TRUE,
username = myUsernames) %>% Create
## Load the previously saved credential information
LoadCredential("instagramCred.RDS") %>% Collect(tag="obama",
distance=5000, n=100) %>% Create("bimodal")
# }
Run the code above in your browser using DataLab