Computation failed in `stat_flow()`:
df_data_Aluv <- data %>%
filter(PostDate >= "2019-08-01" & PostDate <= "2019-10-30") %>%
select(date = PostDate, Employee, Job, Hours) %>%
group_by(Job, month = as.character(floor_date(date, "month")), Employee) %>%
summarize(freq = n_distinct(Employee), Hours = sum(Hours)) %>%
mutate(empmon = paste(Employee, " -- ", month)) %>%
group_by(empmon) %>%
filter(Hours == max(Hours)) %>%
distinct(empmon, .keep_all = TRUE)