transform df to list for rCharts

transform.R

library(RColorBrewer)
# max of 12 cats in colorbrewer, gotta add 6 more
colors <- brewer.pal(12, "Paired")
colors <- c(colors, "#050505", "#FAF20F", "#FA28EC", "#24E3CD", "#DAFAD4", "#6B6C6E")
df2 <- df
routes <- unique(df2$route)
df2$color <- colors[match(df2$route, routes)]
df2$popup <- paste0("<p>Pick up time:  ", df$pu.time, 
                    "<br>Drop off time:  ", df$do.time, 
                    "<br>", df$stop,
                    "<br>Route Number:  ", str_extract(df2$route, "[0-9]+"), "</p>")
tmp.data <- apply(df2, 1, as.list)