R/parse_dat.R

In mykoCheng/ANewGeom: Creating A New Geom

#' @title Parsing storm data
#' @description Parses all the fixed width front storm data in the Atlantic basin from 1988–2015
#' @return A tibble of raw storm data
#' @importFrom readr read_fwf fwf_widths
parse_dat <-  function() {
  ext_tracks_widths <- c(7, 10, 2, 2, 3, 5, 5, 6, 4, 5, 4, 4, 5, 3, 4, 3, 3, 3,
                         4, 3, 3, 3, 4, 3, 3, 3, 2, 6, 1)
  ext_tracks_colnames <- c("storm_id", "storm_name", "month", "day",
                           "hour", "year", "latitude", "longitude",
                           "max_wind", "min_pressure", "rad_max_wind",
                           "eye_diameter", "pressure_1", "pressure_2",
                           paste("radius_34", c("ne", "se", "sw", "nw"), sep = "_"),
                           paste("radius_50", c("ne", "se", "sw", "nw"), sep = "_"),
                           paste("radius_64", c("ne", "se", "sw", "nw"), sep = "_"),
                           "storm_type", "distance_to_land", "final")

  ext_tracks <<- readr::read_fwf(system.file("extdata", "ebtrk_atlc_1988_2015.txt", package = "ANewGeom"),
                         readr::fwf_widths(ext_tracks_widths, ext_tracks_colnames),
                         na = "-99")
}