]> code.communitydata.science - coldcallbot-discord.git/commitdiff
updated code to better figure out whose not registered
authorBenjamin Mako Hill <mako@atdot.cc>
Sun, 29 Sep 2024 03:10:18 +0000 (20:10 -0700)
committerBenjamin Mako Hill <mako@atdot.cc>
Sun, 29 Sep 2024 03:11:54 +0000 (20:11 -0700)
assessment_and_tracking/track_enrolled.R

index 47e50c270d096347396779919e80cc1615676d7a..06e4aba6cd2bb739dbf239209124193a4b5e66f6 100644 (file)
@@ -1,5 +1,5 @@
-myuw <- read.csv("../data/2022_winter_COM_481_A_students.csv")
-gs <- read.delim("../data/student_information.tsv")
+myuw <- read.csv("data/2024_autumn_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,]
@@ -7,6 +7,12 @@ 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,]
 
 ## these are students who are in the class but didn't reply to the form
 myuw[!myuw$StudentNo %in% gs$Your.UW.student.number,]
 
+roster.merged <- merge(myuw, gs, by.x="StudentNo", by.y="Your.UW.student.number", all.x=TRUE, all.y=FALSE)
+
+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,]
+## these are students who are in the class but didn't reply to the form
+
+
 ## 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
 

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