added combined pdf

jhelvy · Jun 15, 2023 · 12b1e67 · 12b1e67
1 parent 4dac5a8
commit 12b1e67
Show file tree

Hide file tree

Showing 3 changed files with 55 additions and 0 deletions.
diff --git a/index.qmd b/index.qmd
@@ -17,6 +17,48 @@ John Paul Helveston<br>June 15, 2023<br>George Washington University
 
 :::
 
+<hr>
+
+<center>
+
+### Downloads
+
+</center>
+
+::: {.grid}
+
+::: {.g-col-3}
+
+:::
+
+::: {.g-col-3}
+
+::: {.class-buttons}
+
+<a href="parts/2023-qux-conf-conjoint.pdf" class="btn-notes"><i class="fas fa-file-pdf"></i> All slides</a>
+
+:::
+
+:::
+
+::: {.g-col-3}
+
+::: {.class-buttons}
+
+<a href="/software.html" class="btn-notes"><i class="fa fa-download"></i> Software</a>
+
+:::
+
+:::
+
+::: {.g-col-3}
+
+:::
+
+:::
+
+<hr>
+
 ::: {.grid}
 
 ::: {.g-col-6}

diff --git a/parts/2023-qux-conf-conjoint.pdf b/parts/2023-qux-conf-conjoint.pdf
diff --git a/render.R b/render.R
@@ -21,3 +21,16 @@
 
 # Render site
 quarto::quarto_render()
+
+# Merge slide pdfs into single file
+
+pdfs <- c(
+    file.path("parts", "introduction", "introduction.pdf"),
+    file.path("parts", "designing-surveys", "designing-surveys.pdf"),
+    file.path("parts", "estimating-models", "estimating-models.pdf"),
+    file.path("parts", "fielding-surveys", "fielding-surveys.pdf")
+)
+pdftools::pdf_combine(
+    input = pdfs,
+    output = file.path('parts', '2023-qux-conf-conjoint.pdf')
+)