#' Tidy ext_tracks data
#'
#' @param ext_tracks ext_tracks data frame object
#'
#' @return A tidied version of ext_tracks as recommended by the authors of the
#' Coursera course
#'
#' @importFrom magrittr %>% %<>%
tidy_ext_tracks <- function(ext_tracks) {
ext_tracks %<>%
dplyr::select(-distance_to_land,
-eye_diameter,
-final,
-max_wind,
-rad_max_wind,
-storm_type,
-dplyr::contains("pressure"))
ext_tracks %<>%
tidyr::unite(date, year, month, day, sep = "-") %>%
tidyr::unite(date, date, hour, sep = " ") %>%
dplyr::mutate(date = paste0(date, ":00:00")) %>%
dplyr::mutate(date = lubridate::ymd_hms(date))
ext_tracks %<>%
dplyr::mutate(storm_name = stringr::str_to_title(storm_name)) %>%
dplyr::mutate(storm_name = paste0(storm_name, "-",
lubridate::year(`date`))) %>%
dplyr::select(-storm_id) %>%
dplyr::rename(storm_id = storm_name)
# Generate columns `wind_speed`, `ne`, `nw`, `se`, `sw`
ext_tracks %<>%
tidyr::gather(key = "wind_speed_direction",
value = "radius",
dplyr::starts_with("radius_"),
na.rm = TRUE) %>%
dplyr::mutate(wind_speed_direction =
stringr::str_replace(wind_speed_direction,
"radius_", "")) %>%
tidyr::separate(wind_speed_direction,
into = c("wind_speed", "direction"), sep = "_") %>%
dplyr::mutate(radius = as.numeric(radius)) %>%
dplyr::mutate(wind_speed = as.numeric(wind_speed)) %>%
tidyr::spread(direction, radius)
# Correct longitude data
ext_tracks %<>%
dplyr::mutate(longitude = -longitude)
ext_tracks
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.