collective/coldcallbot
18
0
Fork 0
Code Activity

reworking the script to work with COMMLD570A (editted)

Browse Source 
this commit was editted to not include student details

- new manual version of the coldcallbot
- minor tweaks to make things less discord specific
- changes for new URLs, filenames, and such
This commit is contained in:
Benjamin Mako Hill
2021-04-06 16:28:00 -07:00
parent 0d3bd05ff2
commit d8e662b5c3
4 changed files with 49 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
assessment_and_tracking/track_enrolled.R
View File

@@ -1,4 +1,4 @@
myuw <- read.csv("myuw-COM_482_A_autumn_2020_students.csv")
myuw <- read.csv("myuw-COMMLD_570_A_spring_2021_students.csv")
gs <- read.delim("student_information.tsv")
## these are students who dropped the class (should be empty)
@@ -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
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..
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]