Fix _results.yml variables

danielvartan · Dec 12, 2024 · 1c6a438 · 1c6a438
1 parent 2735610
commit 1c6a438
Show file tree

Hide file tree

Showing 14 changed files with 87 additions and 2,384 deletions.
diff --git a/R/_pre-render-begin.R b/R/_pre-render-begin.R
@@ -101,7 +101,7 @@ for (i in var_files){
 
 env_vars |> yaml::write_yaml(env_vars_file_path)
 
-# Create result variables -----
+# Create `_results.yml` variables -----
 
 source(here::here("R", "_pre-render-vars.R"))
 

diff --git a/R/_pre-render-vars.R b/R/_pre-render-vars.R
@@ -12,9 +12,15 @@ raw_data <- targets::tar_read(
   store = here::here("_targets")
 )
 
+weighted_data <- targets::tar_read(
+  "weighted_data",
+  store = here::here("_targets")
+)
+
 # Chapter 6 -----
 
-analysis_data_per_nrow_2017_10_15 <- weighted_data |>
+analysis_sample_per_nrow_2017_10_15 <-
+  weighted_data |>
   dplyr::filter(lubridate::date(timestamp) == as.Date("2017-10-15")) |>
   nrow() |>
   magrittr::divide_by(weighted_data |> nrow()) |>
@@ -45,15 +51,14 @@ analysis_data_per_nrow_2017_10_15 <- weighted_data |>
 write_in_results_yml(
   list(
     pr_raw_data_nrow = raw_data |> nrow(),
-    pr_analysis_sample_per_nrow_2017_10_15 = analysis_data_per_nrow_2017_10_15
+    pr_analysis_sample_per_nrow_2017_10_15 = analysis_sample_per_nrow_2017_10_15
   )
 )
 
 rm(
   raw_data,
-  anonymized_data,
   weighted_data,
-  pr_analysis_data_per_nrow_2017_10_15
+  analysis_data_per_nrow_2017_10_15
 )
 
 results_vars <- yaml::read_yaml(here::here("_results.yml"))
diff --git a/_quarto-html.yml b/_quarto-html.yml
@@ -31,17 +31,17 @@ book:
         - qmd/chapter-5.qmd
         - qmd/chapter-6.qmd
     - qmd/references.qmd
-  # appendices:
-  #   - qmd/supplementary-material-1.qmd
-  #   - qmd/supplementary-material-2.qmd
-  #   - qmd/supplementary-material-3.qmd
-  #   - qmd/supplementary-material-4.qmd
-  #   - qmd/supplementary-material-5.qmd
-  #   - qmd/supplementary-material-6.qmd
-  #   - qmd/supplementary-material-7.qmd
-  #   - qmd/supplementary-material-8.qmd
-  #   - qmd/supplementary-material-9.qmd
-  #   - qmd/supplementary-material-10.qmd
+  appendices:
+    - qmd/supplementary-material-1.qmd
+    - qmd/supplementary-material-2.qmd
+    - qmd/supplementary-material-3.qmd
+    - qmd/supplementary-material-4.qmd
+    - qmd/supplementary-material-5.qmd
+    - qmd/supplementary-material-6.qmd
+    - qmd/supplementary-material-7.qmd
+    - qmd/supplementary-material-8.qmd
+    - qmd/supplementary-material-9.qmd
+    - qmd/supplementary-material-10.qmd
   comments:
     hypothesis:
       theme: clean
@@ -73,7 +73,4 @@ format:
     repo-actions: true
     link-external-icon: false
     link-external-newwindow: false
-    theme:
-      - cosmo
-      - scss/web.scss
-      - brand
+    theme: [cosmo, brand, scss/web.scss]