data-raw/use-sgt.R

In abjur/tpur: Brazilian Unified Procedural Tables in R

# download ----------------------------------------------------------------

tipos <- c("A", "C", "M") 

path <- "data-raw/sgt"

fs::dir_create(path)

tipos |> 
  purrr::map(sgt_download, atual = FALSE)

# parse -------------------------------------------------------------------

sgt <- fs::dir_ls(path) |> 
  purrr::map_dfr(sgt_parse) |> 
  sgt_tidy()

fs::dir_ls(path) |> 
  purrr::map(fs::file_delete)

usethis::use_data(sgt, overwrite = TRUE)