X-Git-Url: https://code.communitydata.science/coldcallbot-discord.git/blobdiff_plain/4676d0b0c334c78d8333f387a61d2f015bbc083e..3955a6bfcc0bd424fcf069f05d866c75315ee16c:/data/track_participation.R

diff --git a/data/track_participation.R b/data/track_participation.R
index f616d21..8bce2e5 100644
--- a/data/track_participation.R
+++ b/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")