fixes https://github.com/hrbrmstr/rradar/issues/1

4 years ago · f87e5c2eff
1 changed files with 1 additions and 0 deletions
--- a/R/animate.R
+++ b/R/animate.R
@ -18,6 +18,7 @@ animate_radar <- function(station = "GYX") {
  ir <- possibly(image_read, NULL)

  st_dir <- stations[stations$station == station,][["dir"]]
+  st_dir <- unique(st_dir)

  frames_dir_url <- sprintf("https://radar.weather.gov/ridge/RadarImg/%s/%s/", st_dir, station)