library("rwunderground") library("lubridate") library("readr")
dir_write <- file.path("..", "inst", "extdata")
date_start <- as.Date(ymd("2014-01-01")) date_end <- as.Date(ymd("2014-01-31")) fmt <- stamp_date("20140325")
wx_all <- history_range( location = set_location(territory = "Iowa", city = "Ames"), date_start = fmt(date_start), date_end = fmt(date_end), use_metric = TRUE, key = Sys.getenv("WU_KEY") )
write_csv( wx_all, path = file.path(dir_write, "wx_ames.csv") )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.