parse_secretaria_dates.R

# É preciso instalar o pacote lubridate
library(lubridate)

parse_dates <- function(dt, column, formats) {
  dt[, column] <- parse_date_time(x = dt[, column], orders=formats)
  return(dt)
}

dataset <- read.csv("secretaria/data/dengue-2015.csv")

for (coluna in c("DT_NOTIFIC", "DT_NASC", "DT_ALRM", "DT_INVEST", "DT_OBITO")) {
  dataset <- parse_dates(dataset, coluna, c("%Y%m%d", "%d/%m/%Y"))
}

write.csv(dataset, file="secretaria/data/dengue-2015-data.csv")