## 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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.