## 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