don't count missing questions as asked

data/track_participation.R

@@ -9,6 +9,10 @@ colnames(call.list) <- gsub("_", ".", colnames(call.list))
 
 call.list$day <- as.Date(call.list$timestamp)
 
+## drop calls where the person wasn't present
+call.list[!call.list$answered,]
+call.list <- call.list[call.list$answered,]
+
 call.counts <- data.frame(table(call.list$discord.name))
 colnames(call.counts) <- c("discord.name", "num.calls")