data-raw/load.R

In jayhesselberth/cupersonnel: Personnel data for the University of Colorado System

library(tidyverse)
library(pdftools)

page_lines <- function(page) {
  page %>%
    str_split('\n') %>%
    unlist() %>%
    str_subset('^[:alpha:]')
}

line_fields <- function(line) {
  fields <- strsplit(line, "\\s{2,}")[[1]]
 
  funding <- fields[8] %>%
    str_replace("\\$", "") %>%
    str_replace(",", "")
                
  tibble(campus     = str_trim(fields[1]),
         roster.id  = str_trim(fields[2]),
         dept.group = str_trim(fields[3]),
         dept       = str_trim(fields[4]),
         job.family = str_trim(fields[5]),
         job.title  = str_trim(fields[6]),
         percent    = str_trim(fields[7]),
         funding    = str_trim(funding))
}
  
txt <- pdf_text('https://www.cu.edu/doc/fy18personnelcurosterallcampusespdf')

pages <- txt %>% map(page_lines) %>% unlist()

cu_personnel <- pages %>%
  map_df(line_fields) %>%
  na.omit() %>%
  mutate(
    percent = as.numeric(percent),
    funding = as.numeric(funding)
  )
 
devtools::use_data(cu_personnel, compress = 'xz', overwrite = TRUE)