Create Storm Alert Email

Composes an HTML email showing forecasts for ALL stations, with storm stations highlighted. Stations sorted by max Beaufort descending.

Usage

create_storm_alert_email(
  storm_events,
  station_info = get_station_info(),
  all_forecasts = NULL,
  threshold_knots = 41,
  met_warnings = NULL,
  forecast_rogue_summary = NULL
)

Arguments

storm_events

Tibble from detect_storm_events() (above-threshold events).

station_info

Data frame from get_station_info() (default).

all_forecasts

Full forecast tibble from fetch_all_forecasts() for all stations (used to show context for calm stations). If NULL, only storm stations shown.

threshold_knots

Numeric threshold used for triggering (default 41).

met_warnings

Character vector from fetch_met_eireann_warnings(), or NULL.

Value

A blastula email object.

See also

Other storm-alert: beaufort_to_description(), detect_storm_events(), fetch_all_forecasts(), fetch_all_marine_forecasts(), fetch_met_eireann_warnings(), fetch_open_meteo_forecast(), fetch_open_meteo_marine(), knots_to_beaufort(), p_hmax_exceedance(), send_storm_alert(), summarise_forecast_rogue_risk()

Examples

if (FALSE) { # \dontrun{
events <- tibble::tibble(
  station_id = "M2", time = Sys.time(),
  wind_speed_kn = 40, wind_gust_kn = 55,
  beaufort = 8L, description = "Gale", is_gust_driven = FALSE
)
create_storm_alert_email(events)
} # }