X-Git-Url: https://code.communitydata.science/coldcallbot-discord.git/blobdiff_plain/743e0a39f3f56beab45e22845cd5117a5e316506:/data/track_enrolled.R..9c4f81c30ac7c23cf1dfad7af54d1f12d4ba4d58:/assessment_and_tracking/static/gitweb.js

diff --git a/data/track_enrolled.R b/data/track_enrolled.R
deleted file mode 100644
index 563384d..0000000
--- a/data/track_enrolled.R
+++ /dev/null
@@ -1,23 +0,0 @@
-myuw <- read.csv("myuw-COM_482_A_autumn_2020_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]
-