rearrange the repository for publication

[coldcallbot-discord.git] / assessment_and_tracking / compute_final_case_grades.R

diff --git a/data/case_grades/compute_final_case_grades.R b/assessment_and_tracking/compute_final_case_grades.R
similarity index 93%
rename from data/case_grades/compute_final_case_grades.R
rename to assessment_and_tracking/compute_final_case_grades.R
index e11b1a9e012d52820696f1094b04185a2c6ff47a..60a60f38df53d7bf798c3ceed00a92cbffb186fb 100644 (file)
--- a/data/case_grades/compute_final_case_grades.R
+++ b/assessment_and_tracking/compute_final_case_grades.R
@@ -2,14 +2,13 @@
 #################################
 
 case.sessions  <- 15
-myuw <- read.csv("../myuw-COM_482_A_autumn_2020_students.csv", stringsAsFactors=FALSE)
+myuw <- read.csv("myuw-COM_482_A_autumn_2020_students.csv", stringsAsFactors=FALSE)
 
 ## class-level variables
 question.grades <- c("GOOD"=100, "FAIR"=100-(50/3.3), "BAD"=100-(50/(3.3)*2))
 missed.question.penalty <- (50/3.3) * 0.2 ## 1/5 of a full point on the GPA scale
 
-setwd("../")
-source("track_participation.R")
+source("../assessment_and_tracking/track_participation.R")
 setwd("case_grades")
 
 rownames(d) <- d$discord.name
@@ -112,9 +111,9 @@ write.csv(d.print, file="final_participation_grades.csv")
 library(rmarkdown)
 
 for (x.discord.name in d$discord.name) {
-    render(input="student_report_template.Rmd",
+    render(input="../../assessment_and_tracking/student_report_template.Rmd",
            output_format="html_document",
-           output_file=paste("student_reports/",
+           output_file=paste("../data/case_grades/student_reports/",
                              d.print$UWNetID[d.print$discord.name == x.discord.name],
                              sep=""))
 }