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)

Arguments

tramitacao_df

Dataframe com a tramitação completa

Value

Dataframe com a tramitação completa apenas com os dias úteis

Examples

eventos_extendidos <- eventos_df %>% dplyr::mutate(data = lubridate::floor_date(data_hora, unit="day"))
#> Error in eval(lhs, parent, parent): object 'eventos_df' not found
full_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 found
eventos_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