eval in workshop table

SchmidtPaul · Feb 2, 2024 · 5804a4c · 5804a4c
1 parent 01c7a43
commit 5804a4c
Show file tree

Hide file tree

Showing 14 changed files with 242 additions and 112 deletions.
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/src/eval/eval_2211_Bonn_DS1.pdf b/docs/src/eval/eval_2211_Bonn_DS1.pdf
diff --git a/docs/src/eval/eval_2305_BMEL_DS1eng.pdf b/docs/src/eval/eval_2305_BMEL_DS1eng.pdf
diff --git a/docs/src/eval/eval_2305_BMEL_DS1ger.pdf b/docs/src/eval/eval_2305_BMEL_DS1ger.pdf
diff --git a/docs/src/eval/eval_2305_Bonn_DS1.pdf b/docs/src/eval/eval_2305_Bonn_DS1.pdf
diff --git a/docs/src/eval/eval_2306_BMEL_DS2eng.pdf b/docs/src/eval/eval_2306_BMEL_DS2eng.pdf
diff --git a/docs/src/eval/eval_2306_BMEL_DS2ger.pdf b/docs/src/eval/eval_2306_BMEL_DS2ger.pdf
diff --git a/docs/src/eval/eval_2307_Bonn_DS1.pdf b/docs/src/eval/eval_2307_Bonn_DS1.pdf
diff --git a/docs/src/eval/eval_2307_Flensburg_DS1.pdf b/docs/src/eval/eval_2307_Flensburg_DS1.pdf
diff --git a/docs/src/eval/eval_2312_BMEL_DS2eng.pdf b/docs/src/eval/eval_2312_BMEL_DS2eng.pdf
diff --git a/docs/src/eval/eval_2312_BMEL_DS2ger.pdf b/docs/src/eval/eval_2312_BMEL_DS2ger.pdf
diff --git a/docs/src/eval/eval_2312_Bonn_DS1.pdf b/docs/src/eval/eval_2312_Bonn_DS1.pdf
diff --git a/docs/src/get workshop table.R b/docs/src/get workshop table.R
@@ -13,10 +13,26 @@ workshops <- raw %>%
     Lang = Language,
     Plat = Platform,
     Location = Label_Location,
-    Duration = as.integer(h)
+    Duration = as.integer(h),
+    ID = ID
   ) 
 
 
+# Evaluations -------------------------------------------------------------
+IDs_with_eval <- list.files(here::here("src", "eval"), ".pdf$") %>% 
+  str_remove(".pdf$") %>% 
+  str_remove("eval_")
+
+workshops <- workshops %>% 
+  mutate(
+    Eval = case_when(
+      ID %in% IDs_with_eval ~ str_c('<a href="https://github.com/SchmidtPaul/Schmidtpaul.github.io/blob/main/src/eval/eval_', ID,'.pdf" target="_blank">view</a>'),
+      .default = ""
+    )
+  ) %>% 
+  select(-ID)
+
+
 # Flags -------------------------------------------------------------------
 flag_urls <- c(Ger = "https://github.com/SchmidtPaul/Schmidtpaul.github.io/blob/main/img/flag_ger.png?raw=true",
                Eng = "https://github.com/SchmidtPaul/Schmidtpaul.github.io/blob/main/img/flag_usa.png?raw=true")
@@ -65,14 +81,14 @@ workshops <- workshops %>%
     bootstrap_options = c("hover", "condensed")
   ) %>%
   column_spec(1, width = "4em") %>%
-  column_spec(2, width = "23em") %>% 
+  column_spec(2, width = "26em") %>% 
   column_spec(3, width = "2em",
               image = spec_image(imgs_flag, 50, 50)) %>%
   column_spec(4, width = "2em",
               image = spec_image(imgs_platform, 50, 50)) %>% 
-  column_spec(5, width = "20em") %>%
-  column_spec(6, width = "4em")
-
+  column_spec(5, width = "17em") %>%
+  column_spec(6, width = "4em") %>% 
+  column_spec(7, width = "2em")
 
 # gt instead of kable -----------------------------------------------------
 

diff --git a/src/get workshop table.R b/src/get workshop table.R
@@ -26,7 +26,7 @@ IDs_with_eval <- list.files(here::here("src", "eval"), ".pdf$") %>%
 workshops <- workshops %>% 
   mutate(
     Eval = case_when(
-      ID %in% IDs_with_eval ~ str_c('<a href="https://github.com/SchmidtPaul/Schmidtpaul.github.io/blob/main/src/eval/', ID,'.pdf" target="_blank">view</a>'),
+      ID %in% IDs_with_eval ~ str_c('<a href="https://github.com/SchmidtPaul/Schmidtpaul.github.io/blob/main/src/eval/eval_', ID,'.pdf" target="_blank">view</a>'),
       .default = ""
     )
   ) %>% 
@@ -81,17 +81,15 @@ workshops <- workshops %>%
     bootstrap_options = c("hover", "condensed")
   ) %>%
   column_spec(1, width = "4em") %>%
-  column_spec(2, width = "23em") %>% 
+  column_spec(2, width = "26em") %>% 
   column_spec(3, width = "2em",
               image = spec_image(imgs_flag, 50, 50)) %>%
   column_spec(4, width = "2em",
               image = spec_image(imgs_platform, 50, 50)) %>% 
-  column_spec(5, width = "20em") %>%
+  column_spec(5, width = "17em") %>%
   column_spec(6, width = "4em") %>% 
   column_spec(7, width = "2em")
 
-
-workshops
 # gt instead of kable -----------------------------------------------------
 
 # # gt ----------------------------------------------------------------------