Aula 4

library(tidyverse)

## ── Attaching packages ──────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──

## ✔ ggplot2 2.2.1     ✔ purrr   0.2.4
## ✔ tibble  1.3.4     ✔ dplyr   0.7.4
## ✔ tidyr   0.7.2     ✔ stringr 1.3.0
## ✔ readr   1.1.1     ✔ forcats 0.2.0

## ── Conflicts ─────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

dados<- read_csv(file= "DM_DOCENTE.CSV")

## Parsed with column specification:
## cols(
##   `CO_IES|NO_IES|CO_CATEGORIA_ADMINISTRATIVA|DS_CATEGORIA_ADMINISTRATIVA|CO_ORGANIZACAO_ACADEMICA|DS_ORGANIZACAO_ACADEMICA|IN_CAPITAL_IES|CO_DOCENTE_IES|CO_DOCENTE|CO_SITUACAO_DOCENTE|DS_SITUACAO_DOCENTE|CO_ESCOLARIDADE_DOCENTE|DS_ESCOLARIDADE_DOCENTE|CO_REGIME_TRABALHO|DS_REGIME_TRABALHO|IN_SEXO_DOCENTE|DS_SEXO_DOCENTE|NU_ANO_DOCENTE_NASC|NU_MES_DOCENTE_NASC|NU_DIA_DOCENTE_NASC|NU_IDADE_DOCENTE|CO_COR_RACA_DOCENTE|DS_COR_RACA_DOCENTE|CO_PAIS_DOCENTE|CO_NACIONALIDADE_DOCENTE|DS_NACIONALIDADE_DOCENTE|CO_UF_NASCIMENTO|CO_MUNICIPIO_NASCIMENTO|IN_DOCENTE_DEFICIENCIA|IN_DEF_CEGUEIRA|IN_DEF_BAIXA_VISAO|IN_DEF_SURDEZ|IN_DEF_AUDITIVA|IN_DEF_FISICA|IN_DEF_SURDOCEGUEIRA|IN_DEF_MULTIPLA|IN_DEF_INTELECTUAL|IN_ATU_EAD|IN_ATU_EXTENSAO|IN_ATU_GESTAO|IN_ATU_GRAD_PRESENCIAL|IN_ATU_POS_EAD|IN_ATU_POS_PRESENCIAL|IN_ATU_SEQUENCIAL|IN_ATU_PESQUISA|IN_BOLSA_PESQUISA|IN_SUBSTITUTO|IN_EXERCICIO_DT_REF|IN_VISITANTE|IN_VISITANTE_IFES_VINCULO` = col_character()
## )

## Warning in rbind(names(probs), probs_f): number of columns of result is not
## a multiple of vector length (arg 1)

## Warning: 21703 parsing failures.
## row # A tibble: 5 x 5 col     row   col  expected    actual             file expected   <int> <chr>     <chr>     <chr>            <chr> actual 1 70363  <NA> 1 columns 2 columns 'DM_DOCENTE.CSV' file 2 70364  <NA> 1 columns 2 columns 'DM_DOCENTE.CSV' row 3 70365  <NA> 1 columns 2 columns 'DM_DOCENTE.CSV' col 4 70366  <NA> 1 columns 2 columns 'DM_DOCENTE.CSV' expected 5 70367  <NA> 1 columns 2 columns 'DM_DOCENTE.CSV'
## ... ................. ... .................................................. ........ .................................................. ...... .................................................. .... .................................................. ... .................................................. ... .................................................. ........ ..................................................
## See problems(...) for more details.

library(readr)
base2 <- read_delim("DM_DOCENTE.CSV", "|", 
                    escape_double = FALSE, col_types = cols(CO_DOCENTE_IES = col_character()), 
                    locale = locale(encoding = "ISO-8859-1"), 
                    trim_ws = TRUE)

getwd()

## [1] "/home/maira/mf"