dev/run_dev.R

In leandro-vento/projeto: PKG_TITLE

  # Set options here
  options(golem.app.prod = FALSE) # TRUE = production mode, FALSE = development mode
  
  # Detach all loaded packages and clean your environment
  golem::detach_all_attached()
  # rm(list=ls(all.names = TRUE))
  
  # Document and reload your package
  golem::document_and_reload()
  
  # Run the application
  run_app(caminho = "C:\\Users\\leand\\OneDrive - FGV\\BD\\")
  
  setwd("C:\\sistema_gen_mdo")
  # setwd("C:\\Users\\leand\\Desktop\\Sistema genérico MDO\\Nova pasta\\projeto-master\\projeto-master")
  
  # limpar_dados <- function(){
  # rm(list = ls(all.names = TRUE))
  # gc()
  # }
  # 
  # remotes::install_github("leandro-vento/projeto", auth_token = "669b02242f4518f28e19a0d15d2b7b7732d84381")
  # remotes::install_github("leandro-vento/projeto", upgrade = "never")
  # Dados::run_app()
  # remotes::install_github("Rumenick/CAGED", auth_token = "669b02242f4518f28e19a0d15d2b7b7732d84381")
  # caged <- CAGED::config_RSQLite_CAGEG()
  # CAGED::un7z()
  
  referenciasCaged <- Dados::Referencias$Caged
  referenciasCaged <- c(referenciasCaged, 202001, 202002, 202003, 202004, 202005)
  Referencias <- list(Caged = referenciasCaged,
                      Rais = Dados::Referencias$Rais)
  
  
  View(Dados::Referencias$Caged)
  
  
  caminho <- "C:\\Users\\leand\\OneDrive - FGV\\BD"
  canal <- RSQLite::dbConnect(SQLite(), dbname = paste0(caminho, "\\", "CAGED.sqlite"))
dbListTables(canal)  

dados <- readRDS(file = "C:\\sistema_gen_mdo\\caged_filtrado_leand - Copia")
dados_ <- readRDS(file = "C:\\sistema_gen_mdo\\caged_filtrado2_leand - Copia")
dados_comparativo <- dplyr::anti_join(dados[, 1:24], dados_[, 1:24])
indice_coluna <- 16
dados_comparativo <- dplyr::anti_join(dados[, indice_coluna], dados_[, indice_coluna])
Dados::Layout$LayoutCaged$Raça.Cor
caged_202001 <- RSQLite::dbGetQuery(canal, "SELECT * FROM caged_202005")
caged_202001$Sexo <- ifelse(caged_202001$Sexo == 3, 2, caged_202001$Sexo)
dbWriteTable(canal, name = "caged_202005", value = caged_202001, overwrite = TRUE)
dbDisconnect(canal)

install.packages("remotes")
remotes::install_github("leandro-vento/projeto", upgrade = "never")
Dados::run_app()