R/utils.R
filtra_dias_nao_uteis_congresso.Rd
Remove do dataframe completo da tramitação as linhas cuja data representam dias não-úteis do Congresso, incluindo fins de semana e dias de recesso parlamentar.
filtra_dias_nao_uteis_congresso(tramitacao_df)
tramitacao_df | Dataframe com a tramitação completa |
---|
Dataframe com a tramitação completa apenas com os dias úteis
eventos_extendidos <- eventos_df %>% dplyr::mutate(data = lubridate::floor_date(data_hora, unit="day"))#> Error in eval(lhs, parent, parent): object 'eventos_df' not foundfull_dates <- tibble::tibble(data = seq(min(eventos_extendidos$data), max(eventos_extendidos$data), by = "1 day"))#> Error in seq(min(eventos_extendidos$data), max(eventos_extendidos$data), by = "1 day"): object 'eventos_extendidos' not foundeventos_extendidos <- eventos_extendidos %>% merge(full_dates,by="data", all.x = TRUE) %>% filtra_dias_nao_uteis_congresso(.)#> Error in eval(lhs, parent, parent): object 'eventos_extendidos' not found