In ijlyttle/shinychord: Reusable shiny modules

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")
)

ijlyttle/shinychord documentation built on May 18, 2019, 3:41 a.m.