data-raw/use_of_force_raw.R

In tor-gu/njoaguof: NJ OAG Use of Force data package

use_of_force_raw <-
  system.file("extdata",
              "NJOAGUOF_Data_100120_to_103124.dta",
              package = "njoaguof") %>%
  haven::read_dta() %>%
  haven::zap_formats() %>%
  dplyr::mutate(dplyr::across(
    where(rlang::is_character), stringr::str_trim))

usethis::use_data(use_of_force_raw, overwrite = TRUE)