class_data.R

library(tidyverse)

x = c("Student\tEmail\tTotalAbsent", "Afzali, Behdad \tbehdad.afzali@nih.gov \t0.00%", NA, "Bell, Alexander \talexander.bell@nih.gov \t0.00%", NA, "Ben-Omran, Munder \tmunder.ben-omran@nih.gov \t0.00%", NA, "Bettedi, Lucia \tlucia.bettedi@nih.gov \t0.00%", NA, "Brown, Alan \tasbjj2@gmail.com \t0.00%", NA, "Chen, Wenqian \tkellychen52071@gmail.com \t0.00%", NA, "Chisolm, Danielle \tdanielle.chisolm@nih.gov \t0.00%", NA, "Chowdhury, Ashis \tchowdhuryak@yahoo.com \t0.00%", NA, "Clubb, Lauren \tlauren.clubb@nih.gov \t0.00%", NA, "Drew, Jessi \tjessi.drew@nih.gov \t0.00%", NA, "Duncombe, Caroline \tcaroline.duncombe@nih.gov \t0.00%", NA, "Duren, Michelle \tbelle.duren@gmail.com \t0.00%", NA, "Duyck, Marianne \tmarianne.duyck@gmail.com \t0.00%", NA, "Eghbali, Areian \tareian.eghbali@nih.gov \t0.00%", NA, "El-hendawy, Ahmad \tahmad.elhendawy13@gmail.com \t0.00%", NA, "Fletcher, Colin \tfletcherc2@mail.nih.gov \t0.00%", NA, "Futrega, Katarzyna \tkatarzyna.futrega@nih.gov \t1.00%", NA, "Gaikwad, Snehal \tsnehal.gaikwad@nih.gov \t0.00%", NA, "Giordano, Nicholas \tnicholas.a.giordano@gmail.com \t0.00%", NA, "Graham, Alice \talice.graham@nih.gov \t0.00%", NA, "Gupta, Neha \tguptan8@mail.nih.gov \t0.00%", NA, "Guruswamy, Mahesh \tguruswamy.mahesh.ctr@usuhs.edu \t0.00%", NA, "he, yafeng \they9@mail.nih.gov \t0.00%", NA, "Jaeger, Catherine \tcatherine.jaeger@nih.gov \t0.00%", NA, "Kieltyka, Jacqueline \tjacqueline.kieltyka@gmail.com \t0.00%", NA, "Lee, Alex \tleealex@hawaii.edu \t0.00%", NA, "Lehmann, Michael \tmichael.lehmann@nih.gov \t0.00%", NA, "Liu, Christine \tliucm@nih.gov \t0.00%", NA, "Miao, Lingling \tlingling.miao@nih.gov \t0.00%", NA, "Morrison, Tasha \ttasha.morrison@nih.gov \t0.00%", NA, "Nie, Zuqin \tniezu@mail.nih.gov \t0.00%", NA, "Noeker, Jacob \tjacob.noeker@nih.gov \t0.00%", NA, "PAPAL, Samantha \tsamantha.papal@nih.gov \t0.00%", NA, "Philips, Rachael \trachael.philips@nih.gov \t0.00%", NA, "Ramirez-Valdez, Ramiro \tramiroandr31@gmail.com \t0.00%", NA, "Ringel, Julia \tjulia.ringel@nih.gov \t0.00%", NA, "Roth, Jacob \tjacob.roth@nih.gov \t0.00%", NA, "SHILO, ASAF \tasaf.shilo@nih.gov \t0.00%", NA, "Stamos, Daniel \tdanny.stamos@nih.gov \t0.00%", NA, "Tello, Lawrence \tlytello@gmail.com \t0.00%", NA, "Thakur, Anil \tanil.thakur@nih.gov \t0.00%", NA, "Vijjamarri, Anil Kumar \tanilkumar.vijjamarri@nih.gov \t0.00%")

bl <- str_split(x[!is.na(x)], '\\t')
class_data <- Reduce(rbind, bl) %>% as_tibble() %>%
    set_names(.[1,]) %>% slice(-1) %>%
    mutate_all(str_trim) %>%
    select(-3)