Concepts use Nature insted of TCA

IPBES-Data · May 13, 2024 · 493e83a · 493e83a
1 parent 8fd5a28
commit 493e83a
Show file tree

Hide file tree

Showing 14 changed files with 927 additions and 888 deletions.
diff --git a/buildNo b/buildNo
@@ -1 +1 @@
-696
+697
diff --git a/ch1_evidence_causes/IPBES_Ch1_evidence_causes.html b/ch1_evidence_causes/IPBES_Ch1_evidence_causes.html
diff --git a/ch1_evidence_causes/IPBES_Ch1_evidence_causes.qmd b/ch1_evidence_causes/IPBES_Ch1_evidence_causes.qmd
@@ -16,9 +16,6 @@ author:
 abstract: > 
   A short description what this is about.
   This is not a tracditional abstract, but rather something else ...
-# keywords:
-#   - aaaaa
-#   - bbbbb
 license: "CC BY"
 copyright: 
   holder: No idea
@@ -29,7 +26,6 @@ citation:
   doi: XXXXXX
 doi: XXXXXX
 version: 0.0.1
-
 format:
     html:
         toc: true
@@ -162,7 +158,6 @@ if (file.exists(params$fn_corpus_6)) {
         timestamp = Sys.time()
     )
 }
-# source(file.path("R", "ch1_evidence_causes", "functions.R"))
 ```
 
 ## Working Title
@@ -262,7 +257,21 @@ The [concepts_1](input/concepts_1.txt){target=_blank} search returns a subset of
 #|
 
 count$concepts_1 <- openalexR::oa_fetch(
-    title_and_abstract.search = compact(concepts_1_st),
+    title_and_abstract.search = compact(paste0("(", nature_st, ") AND (", concepts_1_st, ")")),
+    count_only = TRUE,
+    output = "list",
+    verbose = TRUE
+)$count
+```
+
+
+```{r}
+#| label: get_concepts_2_count
+#| eval: !expr "calc_count"
+#|
+
+count$concepts_2 <- openalexR::oa_fetch(
+    title_and_abstract.search = compact(paste0("(", nature_st, ") AND (", concepts_2_st, ")")),
     count_only = TRUE,
     output = "list",
     verbose = TRUE
@@ -277,7 +286,7 @@ Assessing the broader biodiversity concepts by searching for [concepts_1 corpus]
 #|
 
 count$concepts_1_2 <- openalexR::oa_fetch(
-    title_and_abstract.search = compact(paste0("(", concepts_1_st, ") AND (", concepts_2_st, ")")),
+    title_and_abstract.search = compact(paste0("(", nature_st, ") AND (", concepts_1_st, ") AND (", concepts_2_st, ")")),
     count_only = TRUE,
     output = "list",
     verbose = TRUE
@@ -1035,6 +1044,12 @@ if (nf < 3) {
     )
     puml <- gsub(
         pattern = "%$%2.2%$%",
+        replacement = paste0("**n = ", count$concepts_2 |> format(big.mark = ","), "**\\n---\\nconcepts_2"),
+        x = puml,
+        fixed = TRUE
+    )
+    puml <- gsub(
+        pattern = "%$%2.3%$%",
         replacement = paste0("**n = ", count$concepts_1_2 |> format(big.mark = ","), "**\\n---\\nconcepts_1_2"),
         x = puml,
         fixed = TRUE

diff --git a/ch1_evidence_causes/buildNo b/ch1_evidence_causes/buildNo
@@ -1 +1 @@
-399
+403
diff --git a/ch1_evidence_causes/data/count.rds b/ch1_evidence_causes/data/count.rds
diff --git a/ch1_evidence_causes/data/samples_4.2_narrowed_tca.xlsx b/ch1_evidence_causes/data/samples_4.2_narrowed_tca.xlsx
diff --git a/ch1_evidence_causes/data/samples_5.1_narrowed_criteria1.xlsx b/ch1_evidence_causes/data/samples_5.1_narrowed_criteria1.xlsx
diff --git a/ch1_evidence_causes/data/samples_5.2_narrowed_criteria2.xlsx b/ch1_evidence_causes/data/samples_5.2_narrowed_criteria2.xlsx
diff --git a/ch1_evidence_causes/data/samples_5.3_narrowed_criteria3.xlsx b/ch1_evidence_causes/data/samples_5.3_narrowed_criteria3.xlsx
diff --git a/ch1_evidence_causes/data/samples_5.4_narrowed_criteria4.xlsx b/ch1_evidence_causes/data/samples_5.4_narrowed_criteria4.xlsx
diff --git a/ch1_evidence_causes/figures/Ch1_evidence_causes.pdf b/ch1_evidence_causes/figures/Ch1_evidence_causes.pdf
diff --git a/ch1_evidence_causes/figures/Ch1_evidence_causes.png b/ch1_evidence_causes/figures/Ch1_evidence_causes.png
diff --git a/ch1_evidence_causes/figures/Ch1_evidence_causes.svg b/ch1_evidence_causes/figures/Ch1_evidence_causes.svg
diff --git a/ch1_evidence_causes/input/Ch1_evidence_causes.plantuml b/ch1_evidence_causes/input/Ch1_evidence_causes.plantuml
@@ -34,13 +34,18 @@ ch1_ethical --> ch1_ethical_count
 
 ' part 2
 action "Search Term [[https://ipbes-data.github.io/IPBES_TCA_Corpus/input/ch1_evidence_causes/concepts_1.txt CONCEPTS 1]]" as ch1_concepts_1
-openalex --> ch1_concepts_1
+ch1_nature --> ch1_concepts_1
 storage "Number of Works\n--2.1--\n%$%2.1%$%" as ch1_concepts_1_count #Khaki
 ch1_concepts_1 --> ch1_concepts_1_count
 
+action "Search Term [[https://ipbes-data.github.io/IPBES_TCA_Corpus/input/ch1_evidence_causes/concepts_2.txt CONCEPTS 2]]" as ch1_concepts_2
+ch1_nature --> ch1_concepts_2 #pink;line.dashed
+storage "Number of Works\n--2.2--\n%$%2.2%$%" as ch1_concepts_2_count #Khaki
+ch1_concepts_2 --> ch1_concepts_2_count #pink;line.dashed
+
 action "Search Term [[https://ipbes-data.github.io/IPBES_TCA_Corpus/input/ch1_evidence_causes/concepts_2.txt CONCEPTS 2]]" as ch1_concepts_2
 ch1_concepts_1 --> ch1_concepts_2
-storage "Number of Works\n--2.2--\n%$%2.2%$%" as ch1_concepts_1_concepts_2_count #Khaki
+storage "Number of Works\n--2.3--\n%$%2.3%$%" as ch1_concepts_1_concepts_2_count #Khaki
 ch1_concepts_2 --> ch1_concepts_1_concepts_2_count