key <- Sys.getenv('COSM_API_KEY')
if (key == "") key <- readline('Cosm API key: ')
feed <- readline('Cosm feed ID: ')
datapoints <- feed_history(feed, key, start=ISOdate(2012, 06, 01), duration="3hours", interval=60)
plot(datapoints)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.