Tratamento de arquivo sobre MCMV baixado do ministério das cidades

trata_arquivo_mcmv.r

#Lê o arquivo baixado do portal do MCidades
arquivo<- read_file("view_dados_abertos_fgts_agrupado_202411051721.csv")

#Remove as aspas duplas
arquivo_trabalho <- str_remove_all(arquivo,'"')

#Gera um novo arquivo csv
write_lines(arquivo_trabalho, "moradias_convertido.csv")

#GEra o dataframe
library(readr)
moradias_convertido <- read_delim("moradias_convertido.csv", 
    delim = "|", escape_double = FALSE, col_types = cols(data_referencia = col_date(format = "%d/%m/%Y")), 
    locale = locale(decimal_mark = ",", grouping_mark = "."), 
    trim_ws = TRUE)