Create website instead

.github/workflows/deploy-quarto.yml

@@ -49,13 +49,13 @@ jobs:
 
     - name: Render Quarto files to HTML
       run: |
-        quarto render day1_walkthrough_answers.qmd
-        quarto render day1_exercise_answers.qmd
-        quarto render day2_walkthrough_answers.qmd
-        quarto render day2_exercise_answers.qmd
-        quarto render day3_walkthrough_answers.qmd
-        quarto render day3_exercise_answers.qmd
-        quarto render day4_walkthrough_answers.qmd  
+        quarto render answers/day1_walkthrough_answers.qmd
+        quarto render answers/day1_exercise_answers.qmd
+        quarto render answers/day2_walkthrough_answers.qmd
+        quarto render answers/day2_exercise_answers.qmd
+        quarto render answers/day3_walkthrough_answers.qmd
+        quarto render answers/day3_exercise_answers.qmd
+        quarto render answers/day4_walkthrough_answers.qmd  
 #        quarto render day4_exercise_answers.qmd
 
     # Deploy HTML to GitHub Pages if on main or master branch

.gitignore

@@ -60,3 +60,9 @@ day1_walkthrough_answers_files/
 *.html
 slides/*.txt
 /.quarto/
+
+# Remove the particular day files
+walkthroughs/day1_walkthrough_2024-10-15.qmd
+walkthroughs/day2_walkthrough_2024-10-17.qmd
+walkthroughs/day3_walkthrough_2024-10-22.qmd
+walkthroughs/day4_walkthrough_2024-10-24.qmd

_quarto.yml

@@ -1,2 +1,34 @@
 project:
-  output-dir: docs/
+  output-dir: docs/
+  type: website
+  render:
+    - index.qmd
+    - slides.qmd
+    - answers.qmd
+    - answers/
+
+format:
+    html:
+      theme: cosmo  # Choose a Bootstrap theme or customize as needed
+      toc: true
+
+website:
+  navbar:
+    title: "ModernDive v2 Seminar with Dr. Chester Ismay"
+    left:
+      - text: "Home"
+        href: index.qmd
+      - text: "Code Walkthrough and Exercise Answers"
+        href: answers.qmd        
+      - text: "Slides"
+        href: slides.qmd
+
+  sidebar:
+    style: "floating"
+    items:
+      - text: "Home"
+        href: index.qmd
+      - text: "Code Walkthrough and Exercise Answers"
+        href: answers.qmd         
+      - text: "Slides"
+        href: slides.qmd

answers.qmd

@@ -0,0 +1,13 @@
+---
+title: "Answers"
+---
+
+Here are the answer keys for each day:
+
+- [Day 1 (Sessions 1-3) Walkthrough Answers](answers/day1_walkthrough_answers.qmd)
+- [Day 1 (Sessions 1-3) Exercise Answers](answers/day1_exercise_answers.qmd)
+- [Day 2 (Sessions 4-6) Walkthrough Answers](answers/day2_walkthrough_answers.qmd)
+- [Day 2 (Sessions 4-6) Exercise Answers](answers/day2_exercise_answers.qmd)
+- [Day 3 (Sessions 7-9) Walkthrough Answers](answers/day3_walkthrough_answers.qmd)
+- [Day 3 (Sessions 7-9) Exercise Answers](answers/day3_exercise_answers.qmd)
+- [Day 4 (Sessions 10-12) Walkthrough Answers](answers/day4_walkthrough_answers.qmd)

day1_exercise_answers.qmd → answers/day1_exercise_answers.qmd

@@ -70,7 +70,7 @@ library(knitr)
 ```{r}
 # Load the data_dev_survey dataset 
 # (if you don't have it still loaded from the end of class)
-data_dev_survey <- read_csv("data_dev_survey.csv")
+data_dev_survey <- read_csv("../data_dev_survey.csv")
 ```
 ```{r}
 #| eval: false

day1_walkthrough_answers.qmd → answers/day1_walkthrough_answers.qmd

@@ -1089,8 +1089,10 @@ Let’s break down how this works with the following code to load a dataset call
 ```{r}
 library(readr)
 
-# Load data from data_dev_survey.csv in the same file path as this .qmd file
-data_dev_survey <- read_csv("data_dev_survey.csv")
+# Load data from data_dev_survey.csv
+# Remove the ../ if placing the CSV file in the same folder
+# as your .qmd file
+data_dev_survey <- read_csv("../data_dev_survey.csv")
 ```
 
 - **`library(readr)`**: This line loads the `readr` package, giving us access to the **`read_csv()`** function, which is designed to efficiently load CSV files into R.

day2_exercise_answers.qmd → answers/day2_exercise_answers.qmd

@@ -36,7 +36,7 @@ library(readr)
 ```{r}
 # Load in the data_dev_survey CSV file as a data frame again
 # selecting the columns of interest keeping only complete rows of information
-data_dev_survey <- read_csv("data_dev_survey.csv") |> 
+data_dev_survey <- read_csv("../data_dev_survey.csv") |> 
   select(response_id, converted_comp_yearly, work_exp, 
          years_code, ai_trust) |> 
   # This code sets the levels of the ai_trust column to be more intuitive