Nikuthon #1

Today, I participated in a hackathon called “Niku-thon” in Japan. “Niku” means meat in Japanese. I enjoyed eating rare foods and programming. In the hackathon, I was challeged to visualize multiple Twitter timelines using rCharts.

Here's the result. I visualized the timelines of the participants in the hackathon. Before long, I will release a new package including this output.

library(firstdate)  # this is my underconstructing package
library(plyr)
participants <- getEventUsers(48504)  # Nikuthon participants
key <- "XXXXX"
secret = "XXXXX"
result <- ldply(participants$twitter_id, function(x) getTwitter(x, key, secret))
visTL(result)