tweak code to work more effectively with case grades

assessment_and_tracking/compute_final_case_grades.R

@@ -142,7 +142,7 @@ library(rmarkdown)
 for (id in d$unique.name) {
     render(input="assessment_and_tracking/student_report_template.Rmd",
            output_format="html_document",
-           output_file=paste("data/case_grades/",
+           output_file=paste(current.dir, "/data/case_grades/",
                              d.print$unique.name[d.print$unique.name == id],
                              sep=""))
 }