assessment_and_tracking/track_enrolled.R

   1 myuw <- read.csv("../data/2022_winter_COM_481_A_students.csv")
   2 gs <- read.delim("../data/student_information.tsv")
   3
   4 ## these are students who dropped the class (should be empty)
   5 gs[!gs$Your.UW.student.number %in% myuw$StudentNo,]
   6
   7 ## these are students who are in the class but didn't reply to the form
   8 myuw[!myuw$StudentNo %in% gs$Your.UW.student.number,]
   9
  10 ## read all the folks who have been called and see who is missing from
  11 ## the google sheet
  12
  13 ## call.list <- unlist(lapply(list.files(".", pattern="^attendance-.*tsv$"), function (x) {
  14 ##    d <- read.delim(x)
  15 ##    strsplit(d[[2]], ",")
  16 ## })
  17 ## )
  18 ## present <- unique(call.list)
  19 ## present[!present %in% gs[["Your.username.on.the.class.Discord.server"]]]
  20
  21 ## and never attended class..
  22 ## gs[["Your.username.on.the.class.Discord.server"]][!gs[["Your.username.on.the.class.Discord.server"]] %in% present]
  23