Create Storm Alert Email

Composes an HTML email with storm event details for all affected stations.

Usage

create_storm_alert_email(
  storm_events,
  station_info = get_station_info(),
  met_warnings = NULL
)

Arguments

storm_events

Tibble from detect_storm_events().

station_info

Data frame from get_station_info() (default).

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_met_eireann_warnings(), fetch_open_meteo_forecast(), knots_to_beaufort(), send_storm_alert()

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)
} # }