]> code.communitydata.science - coldcallbot-discord.git/commitdiff
small changes to get track participation working
authorBenjamin Mako Hill <mako@atdot.cc>
Tue, 4 May 2021 19:32:14 +0000 (12:32 -0700)
committerBenjamin Mako Hill <mako@atdot.cc>
Wed, 5 Jan 2022 02:43:41 +0000 (11:43 +0900)
assessment_and_tracking/track_participation.R

index 9a51084d2f5effd1cb2d30dbf02f4efe5fae60cd..a3a94eb7662c2e58a66df44e6e726ce87a3055da 100644 (file)
@@ -1,13 +1,18 @@
+setwd("~/online_communities/coldcallbot/data/")
+
 library(ggplot2)
 library(data.table)
 
 gs <- read.delim("student_information.tsv")
 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))
 
 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
 call.list$day <- as.Date(call.list$timestamp)
 
 ## drop calls where the person wasn't present

Community Data Science Collective || Want to submit a patch?