Skip to content

Instantly share code, notes, and snippets.

@ianmcook
Created August 26, 2020 15:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save ianmcook/388c780af9a8a11bbff3f2bc013b68a5 to your computer and use it in GitHub Desktop.
Save ianmcook/388c780af9a8a11bbff3f2bc013b68a5 to your computer and use it in GitHub Desktop.
Map of active weather alerts for Texas and Louisiana
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)
@ianmcook
Copy link
Author

ianmcook commented Aug 26, 2020

2020-08-26 10:15 CDT as Hurricane Laura approaches:
Screen Shot 2020-08-26 at 11 11 17 AM

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment