if (auth_has_default()) {
users <- lookup_users(c("twitter", "rladiesglobal", "_R_Foundation"))
ids(users)
followers <- get_followers("_R_Foundation")
head(ids(followers))
friends <- get_friends("_R_Foundation")
head(ids(friends))
}
Run the code above in your browser using DataLab