R/followers.R

In twitteR: R Based Twitter Client

followers <- function(user_id, n=NULL, ...) {
  ffBase('followers', user_id, n, ...)
}

friends <- function(user_id, n=NULL, ...) {
  ffBase('friends', user_id, n, ...)
}

ffBase <- function(type, user_id, n=NULL, ...) {
  if (!can_access_other_account(user_id)) {
    warning("Cannot lookup relationships for user id ", user_id, ", query may fail!")
  }
  params <- parseUsers(user_id)
  doCursorAPICall(paste(type, 'ids', sep='/'), 'ids', num=n, params=params, method='GET', ...)
}

friendships = function(screen_names=character(), user_ids=character(), ...) {
  if ((length(user_ids) + length(screen_names)) > 100) {
    stop("friendships() has a maximum of 100 total user ids and screen names")
  }
  
  user_list = buildUserList(user_ids, screen_names)
  
  friendships = twInterfaceObj$doAPICall("friendships/lookup", params=user_list, ...)
  friendship_dfs = lapply(friendships, function(x) {
    following = "following" %in% x$connections
    followed_by = "followed_by" %in% x$connections
    return(c(name=x$name, screen_name=x$screen_name, id=x$id_str, following=following, 
             followed_by=followed_by))    
  })
  
  return(as.data.frame(do.call(rbind, friendship_dfs), stringsAsFactors=FALSE))
}