In BHGC/bhgc.wx: The BHGC Weather Package

library(bhgc.wx)
library(ggplot2)
theme_set(theme_gray())
suppressPackageStartupMessages(library(cowplot))

dummy <- timezone("America/Los_Angeles")
locations <- bhgc.wx:::noaa_locations()
location <- locations[[params$site]]
stopifnot(!is.null(location))

url <- noaa_url(location$launch_gps)
wx <- read_noaa(url)

Forcast from: r as.character(wx$last_updated[1], usetz = TRUE)

gg1 <- bhgc.wx:::ggplot_noaa_wind_direction(wx, days = 2L)
gg2 <- bhgc.wx:::ggplot_noaa_surface_wind(wx, days = 2L)
res <- plot_grid(gg1, gg2, ncol = 1L, rel_heights = c(1,2), align = "v")
res

---

Report produced on: `r format(Sys.time(), "%Y-%m-%d %H:%M:%S%z")`

BHGC/bhgc.wx documentation built on April 7, 2022, 3:47 a.m.