#==================================================================================================================================================== 

# AULA 01
# MATERIA: ECONOMETRIA II
# PROFESSOR: DANIEL DOMINGUES DOS SANTOS
# MONITOR: DIEGO MENEZES
# R - VERSAO UTILIZADA: 3.4.0 (2017-04-21)

# SCRIPT: input microdados da PME
# ETAPA: cleaner

#====================================================================================================================================================

# lista os caminhos dos arquivos da pme e do input
fp <- list.files(path = 'Data/Input/Raw/',pattern = "[0-9][\\.txtTXT]", full.names = T)
dicPath <- 'Data/Input/Raw/INPUT.txt'

# le arquivo e escreve como .csv
# cada .csv leva em torno de 7 a 10 minutos para ser salvo 
for(p in fp) {
  tmp <- read.SAScii(p,dicPath)
  
  fname <- regmatches(x = p,gregexpr(pattern = "[0-9]+",text = p))
  
  write.csv(x = tmp, paste0('Data/Input/',unlist(fname),".csv"), row.names = F)
}


# END OF SCRIPT -------------------------------------------------------------------------------------------------------------------------------------