From f19e606e5c4b1487593573c73536a28e160e08ef Mon Sep 17 00:00:00 2001
From: roblinlovelace <rob00x@gmail.com>
Date: Mon, 12 Jan 2026 16:23:39 +0000
Subject: [PATCH] Add Slides and Practical columns to schedule

---
 schedule.qmd | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/schedule.qmd b/schedule.qmd
index 2df421b8..ac6520c2 100644
--- a/schedule.qmd
+++ b/schedule.qmd
@@ -186,6 +186,15 @@ timetable = tt_csv |>
       session_code,
       "</a>"
     ),
+    Slides = case_when(
+      session_code %in% c("s1", "s2", "s3", "s6") ~ paste0("<a href='", session_code, "/slides.html'>Slides</a>"),
+      TRUE ~ ""
+    ),
+    Practical = case_when(
+      session_code %in% c("s1", "s2", "s3", "s4", "s5", "s6", "sem1", "sem2") ~ paste0("<a href='", session_code, "'>Practical</a>"),
+      session_code %in% c("d1", "d2", "d3") ~ paste0("<a href='", session_code, "'>Assessment</a>"),
+      TRUE ~ ""
+    ),
     Description = description,
     Time = format(as.POSIXct(time), "%Y-%m-%d %H:%M"),
     Duration = duration,