CEAB Document stats

ceab document counts.R

ceab_docs <- list.files('~/owncloud/feas/ceab/ceab reports/2016', pattern = ".pdf", full.names = TRUE, recursive = TRUE)

library(pdftools)

test <- tibble(dept = stri_extract_first_regex(ceab_docs, "CIVL|CHEE|CMPE|ENPH|ENCH|ELEC|GEOE|MECH|MTHE|MINE"), doc = basename(ceab_docs), path = ceab_docs) %>%
  mutate(pages = map_dbl(path, ~pdf_info(.x)$pages)) %>%
  bind_rows(., summarize(., dept = "Total",
                      doc = "Overall",
                      path = NA_character_,
    pages = sum(pages))) %>%
  mutate()
  select(-path) %>%
  knitr::kable()