**Student Name:** `r paste(d.print[d.print$unique.name == id, c("LastName", "FirstName")])` (`r id`)

**Participation grade:** `r d.print$part.4point[d.print$unique.name == id]`

**Questions asked:** `r d.print[d$unique.name == id, "num.calls"]`

**Days Absent:** `r d.print[d.print$unique.name == id, "absences"]` / `r length(unique(as.Date(unique(call.list$timestamp))))`

**Missing in class days:** `r d.print[d$unique.name == id, "missing.in.class.days"]` (base grade lowered by 0.2 per day)

**List of questions:**

```{r echo=FALSE}
call.list[call.list$unique.name == id,]
```