data-raw/caged.R

## code to prepare `caged` dataset goes here
library(dplyr)
caged <- RSQLite::dbConnect(RSQLite::SQLite(), dbname = "C:\\Users\\leand\\Desktop\\CAGED\\CAGED.sqlite")
caged <- RSQLite::dbGetQuery(caged, paste0("SELECT * FROM caged WHERE `CompetĂȘncia.Declarada` BETWEEN 201912 AND 201912")) %>% as.data.frame()
usethis::use_data(caged, overwrite = TRUE)

limpar_dados <- function(){
  
  rm(list = ls(all.names = T))
  gc()
  
}

limpar_dados()
leandro-vento/projeto documentation built on April 10, 2021, 6:43 p.m.