From: Benjamin Mako Hill Date: Sun, 29 Sep 2024 03:10:18 +0000 (-0700) Subject: updated code to better figure out whose not registered X-Git-Url: https://code.communitydata.science/coldcallbot-discord.git/commitdiff_plain/360a7e8ee059d7060c373abb453e29dba8cfc015?ds=inline;hp=56fb61e8b00a0cde7cde1138c3f49b89b302e773 updated code to better figure out whose not registered --- diff --git a/assessment_and_tracking/track_enrolled.R b/assessment_and_tracking/track_enrolled.R index 47e50c2..06e4aba 100644 --- a/assessment_and_tracking/track_enrolled.R +++ b/assessment_and_tracking/track_enrolled.R @@ -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,] @@ -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,] +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