d8e662b5c3
this commit was editted to not include student details - new manual version of the coldcallbot - minor tweaks to make things less discord specific - changes for new URLs, filenames, and such
24 lines
856 B
R
24 lines
856 B
R
myuw <- read.csv("myuw-COMMLD_570_A_spring_2021_students.csv")
|
|
gs <- read.delim("student_information.tsv")
|
|
|
|
## these are students who dropped the class (should be empty)
|
|
gs[!gs$Your.UW.student.number %in% myuw$StudentNo,]
|
|
|
|
## these are students who are in the class but didn't reply to the form
|
|
myuw[!myuw$StudentNo %in% gs$Your.UW.student.number,]
|
|
|
|
## read all the folks who have been called and see who is missing from
|
|
## the google sheet
|
|
|
|
## call.list <- unlist(lapply(list.files(".", pattern="^attendance-.*tsv$"), function (x) {
|
|
## d <- read.delim(x)
|
|
## strsplit(d[[2]], ",")
|
|
## })
|
|
## )
|
|
## present <- unique(call.list)
|
|
## present[!present %in% gs[["Your.username.on.the.class.Discord.server"]]]
|
|
|
|
## and never attended class..
|
|
## gs[["Your.username.on.the.class.Discord.server"]][!gs[["Your.username.on.the.class.Discord.server"]] %in% present]
|
|
|