data-raw/sysdata.R

In pompylio/portransp: Download of open data from the "Portal da Transparencia"

potrdt <- readr::read_delim("data-raw/dataset_portransp.csv",
                     ";", escape_double = FALSE, col_types = readr::cols(id = readr::col_character()),
                     na = "null", trim_ws = TRUE)
potrms <-
  paste0(
    paste0("(", potrdt$id, " or "),
    paste0(potrdt$idname,""),
    paste0(", ", potrdt$formatdate,")"),
    collapse = " "
  )
potrurl <- "http://www.portaltransparencia.gov.br/download-de-dados/"
usethis::use_data(potrdt,potrms,potrurl,internal = TRUE,overwrite = TRUE)