presentations.qmd

---
title: "Presentations"
---

# Presentations

Examples of external presentations, sorted by date:

```{r, echo=FALSE, results='asis'}

# Define the folder path where presentations are stored
presentations_dir <- "presentations/"

# List all files in the presentations folder
presentations <- list.files(path = presentations_dir, pattern = "*.html", full.names = FALSE)

# Sort presentations by date (assuming filenames start with a date in YYYY-MM-DD format)
presentations <- sort(presentations, decreasing = TRUE)

# Generate links to each presentation using HTML
cat("<ul>\n")
for (file in presentations) {
  # Extract the presentation date and title from the filename
  date <- substr(file, 1, 10)
  title <- gsub("_", " ", substr(file, 12, nchar(file) - 5)) # Removes the date and ".html"
  
  # Create an HTML link for each presentation
  cat(paste0("<li><a href='", presentations_dir, file, "'>", date, ": ", title, "</a></li>\n"))
}
cat("</ul>\n")
```