x <- as.gist('f1403260eb92f5dfa7e1')
tabl(x)
# from a list
ss <- gists('minepublic')
tabl(ss[1:3])
## manipulate with dplyr
library("dplyr")
tabl(gists("minepublic")[1:10]) %>%
select(id, description, owner_login) %>%
filter(grepl("gist gist gist", description))
# commits
x <- gists()[[2]] %>% commits()
tabl(x[[1]])
## many
x <- sapply(c(gists(), gists()), commits)
tabl(x) %>%
select(id, login, change_status.total, url) %>%
filter(change_status.total > 50)
Run the code above in your browser using DataLab