]> code.communitydata.science - coldcallbot-discord.git/blob - data/track_enrolled.R
code to track enrolled students and who is missing
[coldcallbot-discord.git] / data / track_enrolled.R
1 myuw <- read.csv("myuw-COM_482_A_autumn_2020_students.csv")
2 gs <- read.delim("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="^attendence-.*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

Community Data Science Collective || Want to submit a patch?