fix typo in the attendance... :P

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"]]]