if (FALSE) {
## get slugs
slugs <- suggested_slugs()
## use slugs to get suggested users
suggested_users(slugs$slug[1])
## alternatively, get all users from all slugs in one function
sugs <- all_suggested_users()
## print data
sugs
## for complete users data, lookup user IDs
sugs_usr <- lookup_users(sugs$user_id)
## view users data
sugs_usr
}
Run the code above in your browser using DataLab