From 95a99775721432eca7480aff7249449c5e0b35f3 Mon Sep 17 00:00:00 2001
From: Benjamin Mako Hill <mako@atdot.cc>
Date: Tue, 4 May 2021 12:32:14 -0700
Subject: [PATCH] small changes to get track participation working
---
assessment_and_tracking/track_participation.R | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/assessment_and_tracking/track_participation.R b/assessment_and_tracking/track_participation.R
index 9a51084..a3a94eb 100644
--- a/assessment_and_tracking/track_participation.R
+++ b/assessment_and_tracking/track_participation.R
@@ -1,13 +1,18 @@
+setwd("~/online_communities/coldcallbot/data/")
+
library(ggplot2)
library(data.table)
gs <- read.delim("student_information.tsv")
-d <- gs[,c(2,5)]
-colnames(d) <- c("student.num", "discord.name")
+d <- gs[,c(2,4)]
+colnames(d) <- c("student.num", "teams.name")
+
+call.list <- do.call("rbind", lapply(list.files(".", pattern="^call_list-.*tsv$"), function (x) {read.delim(x, stringsAsFactors=FALSE)[,1:4]}))
-call.list <- do.call("rbind", lapply(list.files(".", pattern="^call_list-.*tsv$"), function (x) {read.delim(x)[,1:4]}))
colnames(call.list) <- gsub("_", ".", colnames(call.list))
+table(call.list$unique_name)
+
call.list$day <- as.Date(call.list$timestamp)
## drop calls where the person wasn't present
--
2.39.5