students.Rmd

---
title: "Students"
site: distill::distill_website
---

```{r echo=FALSE, message=FALSE, warning=FALSE}
####################################################
# Keep this code chunk to keep homepage up-to-date #
####################################################

# List of students in users folder
students <- list.files('users', '*.Rmd', recursive = TRUE)

out <- NULL
# Goes through each student
for (student in students) {
  # Name of students
  name <- sub('.Rmd', '', student)
  
  # HTML extension of students
  html <- paste(name, '.html', sep = '')
  html <- sub(' ', '-', html)
  
  # Dynammically creates student names and corresponding links
  out <- c(out, knitr::knit_expand(text = '- [{{name}}]({{html}})'))
}

# Below pastes created student list when file is knitted
```

`r paste(knitr::knit(text = out), collapse = '\n')`