data-raw/DomicilioRenda.R

In philsf/censo2010brasil: Dados do Censo Demográfico 2010 do Brasil

library(tidyverse)

## localização dos dados brutos
if(!exists("censo_dir")) censo_dir <- file.path(paste0(Sys.getenv("HOME"), "/Downloads/Censo2010/"))

if(!exists("cores")) cores <- 1

DomicilioRenda <- abrir_base(base = "DomicilioRenda", censo_dir = censo_dir, cores = cores) %>%
  select(Cod_setor, starts_with("V"))

# Injetar data.frame em tabela do DB
dbWriteTable(censodb, "DomicilioRenda", DomicilioRenda, overwrite = TRUE)

# template de doc (Rd)
cat(paste0(sinew::makeOxygen(DomicilioRenda, add_fields = "source"), "\n"), file = "R/DomicilioRenda.R")

# Salvar apenas a estrutura do data.frame
DomicilioRenda <- DomicilioRenda %>% head(0)
usethis::use_data(DomicilioRenda, overwrite = TRUE)