rm(list=ls())
########################
# API Scraping
# @jorandradefig
########################
# instalar paquete
install.packages("jsonlite")
# cargar el paquete
library(jsonlite)
# descargar de github
hadley_orgs <- fromJSON("https://api.github.com/users/hadley/orgs")
hadley_repos <- fromJSON("https://api.github.com/users/hadley/repos")
gg_commits <- fromJSON("https://api.github.com/repos/hadley/ggplot2/commits")
gg_issues <- fromJSON("https://api.github.com/repos/hadley/ggplot2/issues")
paste(format(gg_issues$user$login), ":", gg_issues$title)
# descargar de citibike
citibike <- fromJSON("http://citibikenyc.com/stations/json")
stations <- citibike$stationBeanList
colnames(stations)
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎