allegany.r

allegany_sums_all <- allegany_athletics %>% 
  group_by(county, year) %>%
  summarise(boys_total = sum(boys_participants), girls_total = sum(girls_participants)) %>%
  select(county, year, boys_total, girls_total)

allegany_sums_without_cau <- allegany_athletics %>% 
  filter(is.na(type)) %>%
  group_by(county, year) %>%
  summarise(boys_without_cs = sum(boys_participants), girls_without_cs = sum(girls_participants)) %>%
  select(county, year, boys_without_cs, girls_without_cs)

allegany_totals <- allegany_sums_all %>% left_join(allegany_sums_without_cau) %>% mutate(leaid = "2400030")