Map of active weather alerts for Texas and Louisiana

tx_la_weather_alerts.R

remotes::install_github("ianmcook/weatherAlerts")
remotes::install_github("ianmcook/weatherAlertAreas")

library(weatherAlerts)
library(leaflet)

alerts <- getAlerts(c("TX", "LA")) # takes about 45 seconds

severity <- alerts@data$severity
colorMap <- c(Minor = "green",
              Moderate = "yellow",
              Severe = "red",
              Extreme = "magenta",
              Unknown = "white")
severityColors <- unname(colorMap[severity])

leaflet() %>%
  addTiles() %>%
  addPolygons(data = alerts, color = "black", fillColor = severityColors, weight = 1)