R/eq_clean_data.R

In ekawabata/TheCapstoneProject: Title: Useful functions for studying and visualising data from the U.S. National Oceanographic and Atmospheric Administration (NOAA)

#'  Clean a NOAA data frame
#'
#' This function takes a raw NOAA data frame and returns a clean data frame
#'
#' @param Data A raw NOAA data frame
#'
#' @return eq_clean_data returns a filtered data frame.
#'
#' @importFrom dplyr mutate
#' @importFrom dplyr select
#' @importFrom lubridate ymd
#' @importFrom magrittr "%>%"
#' @importFrom tidyr unite
#' @importFrom tidyselect everything
#'
#' @examples
#' \dontrun{
#' read_delim(system.file("extdata", "signif.txt", package = "TheCapstoneProject"), delim = '\t') %>%
#' eq_clean_data()
#' }
#'
#' @export
eq_clean_data <- function(Data)
{
  Data %>%
    dplyr::select(tidyselect::everything()) %>%
    tidyr::unite(DATE, YEAR, MONTH, DAY) %>%
    dplyr::mutate(DATE = lubridate::ymd(DATE)) %>%
    dplyr::mutate(LATITUDE = as.numeric(LATITUDE)) %>%
    dplyr::mutate(LONGITUDE = as.numeric(LONGITUDE)) %>%
    dplyr::mutate(EQ_PRIMARY = as.numeric(EQ_PRIMARY)) %>%
    dplyr::mutate(TOTAL_DEATHS = as.numeric(TOTAL_DEATHS))
}