Updates to weather to remove missing values / adjust tz

DESCRIPTION

@@ -27,7 +27,8 @@ Imports:
     curl,
     usethis,
     roxygen2,
-    progress
+    progress,
+    tidyr
 URL: https://github.com/simonpcouch/anyflights, https://simonpcouch.github.io/anyflights/
 BugReports: https://github.com/simonpcouch/anyflights/issues
 RoxygenNote: 7.2.3

R/utils.R

@@ -438,9 +438,16 @@ get_weather_for_station <- function(station, year, dir,
                   month = as.integer(lubridate::month(time)),
                   day = lubridate::mday(time),
                   hour = lubridate::hour(time),
-                  time_hour = ISOdatetime(year, month, day, hour, 0, 0)) %>%
+                  # ensure output isn't shifted for current timezone of user
+                  time_hour = ISOdatetime(year, month, day, hour, 0, 0, 
+                                          tz = "GMT")) %>%
     # filter to only relevant rows - necessary for discontinuous month ranges
     dplyr::filter(month %in% !!month) %>%
+    # fill in missing values with the only value given in a particular hour
+    dplyr::group_by(time_hour) %>%
+    tidyr::fill(temp, dewp, humid, precip, pressure,     # Fill NAs
+                .direction = "downup") %>%  
+    dplyr::ungroup() %>% # Ungroup to return to original data structure
     # remove duplicates / incompletes
     dplyr::group_by(origin, month, day, hour) %>%
     dplyr::filter(dplyr::row_number() == 1) %>%