knitr::opts_chunk$set(echo = TRUE)
library(jsonlite) library(JSOmetaN) library(dplyr)
data1 <- fromJSON("https://api.github.com/users/hadley/repos") data1 %>% fetch() data1 %>% fetch() %>% dig("owner") %>% fetch()
citibike <- fromJSON("http://citibikenyc.com/stations/json") citibike$stationBeanList %>% fetch()
races <- fromJSON("http://ergast.com/api/f1/2012/1/results.json") races$MRData$RaceTable$Races %>% fetch() %>% dig("Circuit") %>% fetch %>% dig("Location") %>% fetch()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.