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