| 1234567891011121314151617181920212223242526272829 |
- #!/usr/bin/env Rscript
- library(tidyverse)
- data <- read_csv2("../app/data/dados_cat.csv", na = c("NA", ""),
- col_types = cols(
- st_acidente_feriado = col_character(),
- ds_agente_causador = col_character(),
- ano_cat = col_integer(),
- ds_cnae_classe_cat = col_character(),
- dt_acidente = col_date(format = "%d/%m/%Y"),
- st_dia_semana_acidente = col_character(),
- ds_emitente_cat = col_character(),
- hora_acidente = col_time(format = "%H%M"),
- idade_cat = col_integer(),
- cd_indica_obito = col_character(),
- nm_municipio = col_character(),
- nome_uf = col_character(),
- ds_natureza_lesao = col_character(),
- ds_cbo = col_character(),
- ds_parte_corpo_atingida = col_character(),
- cd_tipo_sexo_empregado_cat = col_character(),
- ds_tipo_acidente = col_character(),
- ds_tipo_local_acidente = col_character()
- ))
- filtered <- data %>% drop_na(-st_acidente_feriado)
- write_delim(filtered, "../app/data/filtrado.csv", delim = ";")
|
