fix typo in the attendance... :P

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

diff --git a/data/track_enrolled.R b/data/track_enrolled.R
index 1923dbf702aebb7dd94d5c1718d359d80f697412..563384d98a739fac2e6d9d8e2f2071f952f03d56 100644 (file)
--- 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"]]]