From: Benjamin Mako Hill Date: Tue, 4 May 2021 19:32:14 +0000 (-0700) Subject: small changes to get track participation working X-Git-Url: https://code.communitydata.science/coldcallbot-discord.git/commitdiff_plain/95a99775721432eca7480aff7249449c5e0b35f3?hp=-c small changes to get track participation working --- 95a99775721432eca7480aff7249449c5e0b35f3 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