collective/coldcallbot
17
0
Fork 0
Code

small changes to get track participation working

Browse Source
This commit is contained in:
Benjamin Mako Hill 2021-05-04 12:32:14 -07:00
parent f590bf88bc
commit 95a9977572
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
assessment_and_tracking/track_participation.R
View File

@ -1,13 +1,18 @@
setwd("~/online_communities/coldcallbot/data/")
library(ggplot2) library(ggplot2)
library(data.table) library(data.table)
gs <- read.delim("student_information.tsv") gs <- read.delim("student_information.tsv")
d <- gs[,c(2,5)] d <- gs[,c(2,4)]
colnames(d) <- c("student.num", "discord.name") 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)) colnames(call.list) <- gsub("_", ".", colnames(call.list))
table(call.list$unique_name)
call.list$day <- as.Date(call.list$timestamp) call.list$day <- as.Date(call.list$timestamp)
## drop calls where the person wasn't present ## drop calls where the person wasn't present