Capítulo 3 Ferramentas tidy

library(tidyverse)

# Base de dados -----------------------------------------------------------
cjsg <- readr::read_rds("data-raw/camaras/d_cjsg.rds")

glimpse(cjsg)

#> Observations: 11,731
#> Variables: 14
#> $ arq            <chr> "data-raw/camaras/cjsg/page100.html", "data-raw/c…
#> $ pagina         <chr> "1981", "1982", "1983", "1984", "1985", "1986", "…
#> $ id_decisao     <chr> "11094999", "11093733", "11093677", "11093270", "…
#> $ id_processo    <chr> "0057003-20.2017.8.26.0000", "0052762-03.2017.8.2…
#> $ classe_assunto <chr> "Classe/Assunto:\n\t\t\t\t\t\t\t\t\t\t\t Habeas C…
#> $ comarca        <chr> "Cosmópolis", "São Paulo", "Ribeirão Preto", "Ara…
#> $ vara           <chr> "3ª Câmara de Direito Criminal", "3ª Câmara de Di…
#> $ dt_decisao     <chr> "19/12/2017", "19/12/2017", "19/12/2017", "14/12/…
#> $ dt_publication <chr> "19/12/2017", "19/12/2017", "19/12/2017", "19/12/…
#> $ dt_registro    <chr> "19/12/2017", "19/12/2017", "19/12/2017", "19/12/…
#> $ relator        <chr> "Luiz Antonio Cardoso", "Luiz Antonio Cardoso", "…
#> $ ementa         <chr> NA, NA, NA, "Execução Penal –  Comutação de Penas…
#> $ txt_ementa     <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
#> $ result         <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…