data-raw/weather.R

In italocegatta/forestr: Miscellaneous functions to forest modeling

library(dplyr)
library(lubridate)
library(inmetdown)

stations_id <- c("A725", "A708", "A714", "A716", "A726", "A711", "A740", "A713", "A842", "A821", "A763")
stations <- inmetdown::aws_station() %>%
  filter(id %in% stations_id)


weather <- inmetdown::aws_import(
  stations_id,
  "01/07/2017",
  "10/07/2017"
  ) %>%
  left_join(stations, by = "id") %>%
  select(id, city:alt, date, hour, t_min, rh_min, prec) %>%
  arrange(id, date, hour)

devtools::use_data(weather, overwrite = TRUE)