code to create final case discussion grades

[coldcallbot-discord.git] / assessment_and_tracking / track_enrolled.R

diff --git a/assessment_and_tracking/track_enrolled.R b/assessment_and_tracking/track_enrolled.R
index 563384d98a739fac2e6d9d8e2f2071f952f03d56..47e50c270d096347396779919e80cc1615676d7a 100644 (file)
--- a/assessment_and_tracking/track_enrolled.R
+++ b/assessment_and_tracking/track_enrolled.R
@@ -1,5 +1,5 @@
-myuw <- read.csv("myuw-COM_482_A_autumn_2020_students.csv")
-gs <- read.delim("student_information.tsv")
+myuw <- read.csv("../data/2022_winter_COM_481_A_students.csv")
+gs <- read.delim("../data/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 dropped the class (should be empty)
 gs[!gs$Your.UW.student.number %in% myuw$StudentNo,]


@@ -10,14 +10,14 @@ 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
 
 ## 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"]]]
+## 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..
 
 ## and never attended class..

-gs[["Your.username.on.the.class.Discord.server"]][!gs[["Your.username.on.the.class.Discord.server"]] %in% present]
+## gs[["Your.username.on.the.class.Discord.server"]][!gs[["Your.username.on.the.class.Discord.server"]] %in% present]