filter_caged: Filtrar os dados do CAGED de acordo com o projeto e data de...
In Rumenick/CAGED: Importar os dados do CAGED

Description Usage Arguments Value Author(s) Examples

View source: R/summary_caged.R

Acessa o banco de dados do caged e aplica filtros nos dados de acordo com os parâmetros CAGEG (par_caged) estabelecidos pela SIMG para um determinado projeto.

1	filter_caged(conn, par.caged = list())

`conn`	Objeto DBIConnection produzido por 'DBI::dbConnect()'.
`par.caged`	Configurações usadas no projeto específico que implicam em filtros nos dados do caged.

um tbl_sql com os dados de acordo com os parâmetros selecionados de um dado projeto. Aplicar função dplyr::collect(object) para carregar os dados na memória.

Rumenick Pereira da Silva

 

# Ex.: SICRO seção f (Alterar)
par_caged <- list(admitidos = c("1", "2"),
                   cor = c("1", "2", "4", "6", "8", "9"),
                 qtd_horas_contrat = 44,
                 ind_trab_parcial = c("1", "0"),
                  ind_trab_intermitente = c("1", "0"),
                 cod_uf = c("35", "33", "32", "31", "41",
                             "43", "42", "13", "14", "16", "15", "17", "11", "12", "21", "22",
                             "23", "24", "26", "25", "28", "27", "29", "51", "50", "52", "53"),
                  porte_empresa = c("5", "6", "7", "8", "9"),
                  escolaridade = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11"),
                   sexo = c("1", "2"))
# Consultando CBO's do respectivo projeto (proj) na tabela DeProjParaCBO:
# par.caged$cod_cbo <-  
# conn %>% 
# dplyr::tbl(dplyr::sql(query_DeProjParaCBO(list(projeto = proj, data_ref = data.ref)))) %>% 
# dplyr::select(cod_cbo) %>% 
# dplyr::collect() %>% 
# unlist() %>% 
# unique() %>% 
# na.omit()

# con <- DBI::dbConnect(RSQLite::SQLite(), "/home/rumenick/Documentos/data/MDO.sqlite")
# SICRO_sec_f <- filter_caged(data.ref = "10/2019", n.ref = 12, par.caged = par_caged, conn = con)
# dplyr::collect(SICRO_sec_f) # Carregar dados na memória.