X-Git-Url: https://code.communitydata.science/coldcallbot-discord.git/blobdiff_plain/743e0a39f3f56beab45e22845cd5117a5e316506:/data/case_grades/compute_final_case_grades.R..9c4f81c30ac7c23cf1dfad7af54d1f12d4ba4d58:/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 e11b1a9..60a60f3 100644
--- 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=""))
 }