X-Git-Url: https://code.communitydata.science/coldcallbot-discord.git/blobdiff_plain/5d5bea65d48ecd9c4e4e8c2d15c3ece72d96a7c6..abf74b822cfc0b19a6db85d3e634587683a73e1f:/data/track_enrolled.R

diff --git a/data/track_enrolled.R b/data/track_enrolled.R
index 1923dbf..563384d 100644
--- a/data/track_enrolled.R
+++ b/data/track_enrolled.R
@@ -10,11 +10,11 @@ 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="^attendence-.*tsv$"), function (x) {
+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"]]]