ATNDに登録されているtwitterIDからプロフィールを取得する
勉強会にどんな人が来ているか知りたい場合登録されているtwitterIDからプロフィールを調べるのが手っとり早いが一件一件調べるのはめんどくさいしそこまで俺は他人に興味がない。従って一覧でそういうのがゲットできると嬉しいのでRで書いた。
getATNDprof <- function(eventid){ require(RCurl) require(rjson) resATND <- fromJSON(getURL(sprintf("http://api.atnd.org/events/users/?event_id=%s&format=json", eventid))) ids <- unlist(lapply(resATND$events[[1]]$users, function(x)x$twitter_id)) res <- NULL for(id in ids){ url <- sprintf("http://api.twitter.com/1/users/show.json?screen_name=%s", id) res0 <- data.frame(twitter_id = id, prof = fromJSON(getURL(url))$description, stringsAsFactors = FALSE) res <- rbind(res, res0) } return(res) }
勉強会の運営とか考えればgoogle scriptで書いてgoogle documentにアップしたATNDの事前アンケート結果(懇親会出欠とか)と紐づけると便利なのだがなんかエラーが出てうまくいかないのでまた後日。