R/prepare_ChicagoGunCrimes.R

In ctesta01/ChicagoGunCrimes: Chicago Gun Crimes Data

#' Prepare Chicago Gun Crimes Dataset
#'
#' Prepare the ChicagoGunCrimes dataset by reading it into R and
#' configuring this package to house it.
#'
#' @importFrom readr read_csv
#' @importFrom usethis use_data
.prepare_ChicagoGunCrimes <- function() {

  ChicagoGunCrimes <- readr::read_csv(
    system.file("original_data/Gun_Crimes_Heat_Map.csv",
                package='ChicagoGunCrimes'))

  usethis::use_data(ChicagoGunCrimes, overwrite = TRUE)

  return(invisible(TRUE))
}