Refactored using week folders

Author: robjhyndman

Makefile

@@ -1,7 +1,7 @@
 SLIDES := $(wildcard slides/*.qmd)
 SLIDE_PDFS := $(SLIDES:.qmd=.pdf)
 
-default: slides preview
+default: preview
 
 all: slides build
 

_quarto.yml

@@ -3,6 +3,7 @@ project:
   render:
   - "*.qmd"
   - "*.md"
+  - "!slides_*.pdf"
   - "!/slides"
   - "!/handouts"
 
@@ -18,7 +19,11 @@ website:
       - text: Schedule
         icon: calendar2-fill
         menu:
-          - week1.qmd
+          - week1/index.qmd
+          - week2/index.qmd
+          - week3/index.qmd
+          - week4/index.qmd
+          - week5/index.qmd
       - text: Discussion
         icon: chat-fill
         href: https://learning.monash.edu/mod/forum/view.php?id=1343867
@@ -46,6 +51,6 @@ format:
 
 execute:
   echo: false
-  warning: false
   message: false
+  warning: false
   cache: false

slides/beamercolorthememonashwhite.sty renamed to beamercolorthememonashwhite.sty

@@ -90,7 +90,7 @@ assignments <- read_csv(here::here("assignments.csv")) |>
 schedule <- schedule |>
   left_join(assignments, by = "Date")
 
-show_assignments <- function() {
+show_assignments <- function(week) {
   ass <- schedule |>
     filter(
       Week >= week,
@@ -101,18 +101,14 @@ show_assignments <- function() {
   if(NROW(ass) > 0) {
     cat("\n\n## Assignments\n\n")
     for(i in seq(NROW(ass))) {
-      cat("* [", ass$Assignment[i], "](", ass$File[i], ") is due on ",
+      cat("* [", ass$Assignment[i], "](../", ass$File[i], ") is due on ",
           format(ass$Due[i], "%A %d %B.\n"), sep="")
     }
   }
 }
 
 show_slides <- function(week) {
-  file <- paste0(
-      "https://raw.githubusercontent.com/numbats/af/main/slides/week",
-      week,
-      ".pdf"
-  )
+  file <- paste0("https://af.numbat.space/week", week, "slides_week", week, ".pdf")
   embed <- paste0(
       "<iframe src='https://docs.google.com/gview?url=",
       file,

slides/beamerthememonash.sty renamed to beamerthememonash.sty

@@ -1,3 +1,8 @@
+\makeatletter
+\def\input@path{{..}}
+\makeatother
+\usepackage{beamerthememonash}
+
 % Packages
 \usepackage{bm,booktabs,tabularx,animate,soul}
 \DeclareUnicodeCharacter{03BC}{$\mu$}
@@ -7,6 +12,9 @@
 \usepackage{longtable,caption,setspace}
 \captionsetup{font={small,stretch=0.80}}
 
+% Title
+\title{ETC3550/ETC5550 Applied forecasting}
+
 % Figures
 \graphicspath{{figs/}}
 
@@ -18,7 +26,6 @@
   \renewenvironment{Shaded}{\fontsize{10}{10}\sf\vspace*{0.14cm}\begin{snugshade}}{\end{snugshade}}
 \fi
 
-
 % Colors
 \definecolor{MonashBlue}{RGB}{30,95,139}
 \definecolor{burntorange}{rgb}{0.8, 0.33, 0.0}

course_info.R

@@ -11,7 +11,7 @@ title: "ETC3550/5550 Applied forecasting"
 #| cache: false
 library(tidyverse)
 options(knitr.kable.NA = '')
-source("course_info.R")
+source(here::here("course_info.R"))
 week <- as.integer(1 + ((Sys.Date() - as_date(start_semester))/7))
 ```
 
@@ -55,7 +55,7 @@ schedule |>
     Chapter = if_else(is.na(Week), Chapter, glue::glue("[{Chapter}]({Chapter_URL})")),
     Assessments = if_else(is.na(Assignment), Assignment, glue::glue("[{Assignment}]({File})"))
   ) |>
-  select(-Show) |> 
+  select(-Show) |>
   knitr::kable(format = "markdown")
 ```