assessment_and_tracking/student_report_template.Rmd

   1 **Student Name:** `r paste(d.print[d.print$unique.name == id, c("LastName", "FirstName")])` (`r id`)
   2
   3 **Participation grade:** `r d.print$part.4point[d.print$unique.name == id]`
   4
   5 **Questions asked:** `r d.print[d$unique.name == id, "num.calls"]`
   6
   7 **Days Absent:** `r d.print[d.print$unique.name == id, "absences"]` / `r length(unique(as.Date(unique(call.list$timestamp))))`
   8
   9 **Missing in class days:** `r d.print[d$unique.name == id, "missing.in.class.days"]` (base grade lowered by 0.2 per day)
  10
  11 **List of questions:**
  12
  13 ```{r echo=FALSE}
  14 call.list[call.list$unique.name == id,]
  15 ```
  16
  17
  18
  19
  20
  21
  22