Detect Storm Events from Forecast Data

Filters forecast data for wind speeds at or above the storm threshold. Threshold is resolved in order: threshold_knots parameter, then STORM_ALERT_THRESHOLD_KNOTS env var, then default of 34 knots (Beaufort 8).

Usage

detect_storm_events(forecasts, threshold_knots = NULL, use_gusts = TRUE)

Arguments

forecasts

Tibble from fetch_all_forecasts() or fetch_open_meteo_forecast().

threshold_knots

Numeric threshold in knots (default NULL, uses env var or 34).

use_gusts

Logical; if TRUE (default), also flag rows where gusts exceed threshold.

Value

Tibble with columns: station_id, time, wind_speed_kn, wind_gust_kn, beaufort, description, is_gust_driven. Empty tibble if no storms detected.

See also

Other storm-alert: beaufort_to_description(), create_storm_alert_email(), fetch_all_forecasts(), fetch_met_eireann_warnings(), fetch_open_meteo_forecast(), knots_to_beaufort(), send_storm_alert()

Examples

forecasts <- tibble::tibble(
  station_id = "M2",
  time = Sys.time() + 3600 * 1:3,
  wind_speed_kn = c(20, 38, 50),
  wind_gust_kn = c(25, 45, 60)
)
detect_storm_events(forecasts)
#> # A tibble: 2 × 7
#>   station_id time                wind_speed_kn wind_gust_kn beaufort description
#>   <chr>      <dttm>                      <dbl>        <dbl>    <int> <chr>      
#> 1 M2         2026-03-15 20:24:43            38           45        8 Gale       
#> 2 M2         2026-03-15 21:24:43            50           60       10 Storm      
#> # ℹ 1 more variable: is_gust_driven <lgl>