3.5 mutate

# exemplo 1
library(lubridate)

cjsg %>% 
  mutate(dt_decisao = dmy(dt_decisao)) %>% 
  filter(day(dt_decisao) == 01)

#> # A tibble: 3 x 14
#>   arq   pagina id_decisao id_processo classe_assunto comarca vara 
#>   <chr> <chr>  <chr>      <chr>       <chr>          <chr>   <chr>
#> 1 data… 397    11106202   0016611-58… "Classe/Assun… Bauru   7ª C…
#> 2 data… 489    11104932   0016611-58… "Classe/Assun… Bauru   7ª C…
#> 3 data… 759    11097186   9000333-69… "Classe/Assun… Itapet… 3ª C…
#> # … with 7 more variables: dt_decisao <date>, dt_publication <chr>,
#> #   dt_registro <chr>, relator <chr>, ementa <chr>, txt_ementa <chr>,
#> #   result <chr>