se.r

library(httr)
library(plyr)
# stackexchange(ids = 16632)

stackexchange <- function(page = NULL, pagesize = NULL, fromdate = NULL, todate = NULL, order = NULL, min = NULL, max = NULL, sort = NULL, ids,
    url = "https://api.stackexchange.com/2.0/users/")
{
  query <- compact(list(page = page, pagesize = pagesize, fromdate = fromdate, 
    todate = todate, order = order, min = min, max = max, sort = sort, 
    site = "stackoverflow"))

  res <- GET(paste0(url, ids), query = query)
  json <- parsed_content(res)
  
  lapply(json$items, "[", 
    c("user_id", "display_name", "reputation", "badge_counts"))
}