R/fct_helpers.R

In Catho-ThiagoMiranda/CAGED: CAGED

con <- function(database) {
  # criando conexão com a base de dados
  lapply(dbListConnections(dbDriver(drv = "MySQL")), dbDisconnect)
  cn <- dbConnect(MySQL(), host = "warehouse.vs", user = "dev_tmiranda", password = "dzIQG25hV0", dbname = database)
  if (Sys.getlocale("LC_COLLATE") != "Portuguese_Brazil.1252") { dbSendQuery(cn, "SET CHARSET 'utf8';") }
  return(cn)
}
#
# descritivas <- data.frame(stats=c("Contagem","Média Salarial","Média de Idade"),
#                          sql=c(" count(caged_id) Contagem "," AVG(caged.salario) Media_Salarial "," AVG(caged.idade) Media_Idade "))
# usethis::use_data(descritivas)

#saldomovimentacao <- data.frame(saldomovimentacao_id=c(-1,1),saldomovimentacao=c("desligado","admitido"))
#usethis::use_data(saldomovimentacao)
opt1 <- pickerOptions(actionsBox=T,size=10,dropdownAlignRight="auto",width="auto")
opt2 <- pickerOptions(actionsBox=T,size=10,liveSearch = T,dropdownAlignRight="auto",width="auto")
competencia_id <- dbGetQuery(con("temporario"),"SELECT DISTINCT(caged.competencia_id) FROM temporario.caged") %>%
  as_vector() %>% unname()

try_left_join <- function(x,y) {
  tryCatch({
    left_join(x,y)
  },error=function(e) {
    return(x)
  })
}





#load("data/saldomovimentacao_id.rda");uf_id <- sort(uf_id);usethis::use_data(uf_id,overwrite = T)


# load("data/categoria_id.rda");categoria_id <- sort(categoria_id);usethis::use_data(categoria_id,overwrite = T)
# load("data/cbo2002ocupacao_id.rda");cbo2002ocupacao_id <- sort(cbo2002ocupacao_id);usethis::use_data(cbo2002ocupacao_id,overwrite = T)
# load("data/competencia_id.rda");competencia_id <- sort(competencia_id);usethis::use_data(competencia_id,overwrite = T)
# load("data/fonte_id.rda");fonte_id <- sort(fonte_id);usethis::use_data(fonte_id,overwrite = T)
# load("data/graudeinstrucao_id.rda");graudeinstrucao_id <- sort(graudeinstrucao_id);usethis::use_data(graudeinstrucao_id,overwrite = T)
# load("data/indicadoraprendiz_id.rda");indicadoraprendiz_id <- sort(indicadoraprendiz_id);usethis::use_data(indicadoraprendiz_id,overwrite = T)
# load("data/indtrabintermitente_id.rda");indtrabintermitente_id <- sort(indtrabintermitente_id);usethis::use_data(indtrabintermitente_id,overwrite = T)
# load("data/indtrabparcial_id.rda");indtrabparcial_id <- sort(indtrabparcial_id);usethis::use_data(indtrabparcial_id,overwrite = T)
# load("data/municipio_id.rda");municipio_id <- sort(municipio_id);usethis::use_data(municipio_id,overwrite = T)
# load("data/racacor_id.rda");racacor_id <- sort(racacor_id);usethis::use_data(racacor_id,overwrite = T)
# load("data/regiao_id.rda");regiao_id <- sort(regiao_id);usethis::use_data(regiao_id,overwrite = T)
# load("data/secao_id.rda");secao_id <- sort(secao_id);usethis::use_data(secao_id,overwrite = T)
# load("data/sexo_id.rda");sexo_id <- sort(sexo_id);usethis::use_data(sexo_id,overwrite = T)
# load("data/subclasse_id.rda");subclasse_id <- sort(subclasse_id);usethis::use_data(subclasse_id,overwrite = T)
# load("data/tamestabjan_id.rda");tamestabjan_id <- sort(tamestabjan_id);usethis::use_data(tamestabjan_id,overwrite = T)
# load("data/tipodedeficiencia_id.rda");tipodedeficiencia_id <- sort(tipodedeficiencia_id);usethis::use_data(tipodedeficiencia_id,overwrite = T)
# load("data/tipoempregador_id.rda");tipoempregador_id <- sort(tipoempregador_id);usethis::use_data(tipoempregador_id,overwrite = T)
# load("data/tipoestabelecimento_id.rda");tipoestabelecimento_id <- sort(tipoestabelecimento_id);usethis::use_data(tipoestabelecimento_id,overwrite = T)
# load("data/tipomovimentacao_id.rda");tipomovimentacao_id <- sort(tipomovimentacao_id);usethis::use_data(tipomovimentacao_id,overwrite = T)
# load("data/uf_id.rda");uf_id <- sort(uf_id);usethis::use_data(uf_id,overwrite = T)


# ds <- (seq(as_date("2000-01-01"),as_date("2050-12-01"),by = "month"))
# competencia_id <- as.numeric(paste0(year(ds),str_pad(month(ds),width = 2,side = "left",pad = 0)))
# competencia <- paste0(year(ds),"/",str_to_title(month(ds,label = T,abbr = F)))
# competencia <- data.frame(competencia_id,competencia)
# usethis::use_data(competencia,overwrite = T)


# base_vars <- base_vars %>%
#   filter(!vars_id %in% c("idade_id","horascontratuais_id","salario_id"))
# usethis::use_data(base_vars,overwrite = T)


# load("data/municipio.rda")
# municipio %>%
#   filter(municipio=="{ñ class}")
# municipio <- municipio %>%
#   mutate(municipio=ifelse(municipio=="{ñ class}","Não identificado",municipio))
# usethis::use_data(municipio,overwrite = T)


mtcars %>%
  rename(a=mpg)

try_rename <- function(x) {
  tryCatch({
    x %>%
      rename(CBO2002ocupacao=cbo2002ocupacao_id)
  },error=function(e) {
    return(x)
  })
}