]> code.communitydata.science - coldcallbot-discord.git/blob - assessment_and_tracking/track_enrolled.R
updated assessment code for new class
[coldcallbot-discord.git] / assessment_and_tracking / track_enrolled.R
1 myuw <- read.csv("data/2024_autumn_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 roster.merged <- merge(myuw, gs, by.x="StudentNo", by.y="Your.UW.student.number", all.x=TRUE, all.y=FALSE)
11
12 roster.merged[,c("StudentNo", "Email", "FirstName", "LastName", "Your.username.on.the.class.Discord.server",  "checked.off.on.discord")][!roster.merged$StudentNo %in% gs$Your.UW.student.number,]
13 ## these are students who are in the class but didn't reply to the form
14
15
16 ## read all the folks who have been called and see who is missing from
17 ## the google sheet
18
19 ## call.list <- unlist(lapply(list.files(".", pattern="^attendance-.*tsv$"), function (x) {
20 ##    d <- read.delim(x)
21 ##    strsplit(d[[2]], ",")
22 ## })
23 ## )
24 ## present <- unique(call.list)
25 ## present[!present %in% gs[["Your.username.on.the.class.Discord.server"]]]
26
27 ## and never attended class..
28 ## gs[["Your.username.on.the.class.Discord.server"]][!gs[["Your.username.on.the.class.Discord.server"]] %in% present]
29

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