Extraction Concepts only when not done

IPBES-Data · Dec 4, 2023 · 593bf24 · 593bf24
1 parent 3bbdd9d
commit 593bf24
Show file tree

Hide file tree

Showing 14 changed files with 155 additions and 108 deletions.
diff --git a/IPBES_TCA_Ch3_snowball_DMP.html b/IPBES_TCA_Ch3_snowball_DMP.html
diff --git a/IPBES_TCA_Ch3_snowball_DMP.qmd b/IPBES_TCA_Ch3_snowball_DMP.qmd
@@ -302,6 +302,7 @@ if (!file.exists(fn)){
         arrange(desc(count))
 
     writexl::write_xlsx(x, file.path(".", "data", "concepts_l0.xlsx"))
+    saveRDS(x, fn)
 } else {
     x <- readRDS(fn)
 }
@@ -335,6 +336,7 @@ if (!file.exists(fn)){
         arrange(desc(count))
         
     writexl::write_xlsx(x, file.path(".", "data", "concepts_l1.xlsx"))
+    saveRDS(x, fn)
 } else {
     x <- readRDS(fn)
 }
@@ -368,6 +370,7 @@ if (!file.exists(fn)){
         arrange(desc(count))
         
     writexl::write_xlsx(x, file.path(".", "data", "concepts_l2.xlsx"))
+    saveRDS(x, fn)
 } else {
     x <- readRDS(fn)
 }
@@ -402,6 +405,7 @@ if (!file.exists(fn)){
         arrange(desc(count))
         
     writexl::write_xlsx(x, file.path(".", "data", "concepts_l3.xlsx"))
+    saveRDS(x, fn)
 } else {
     x <- readRDS(fn)
 }
@@ -436,6 +440,7 @@ if (!file.exists(fn)){
         arrange(desc(count))
         
     writexl::write_xlsx(x, file.path(".", "data", "concepts_l4.xlsx"))
+    saveRDS(x, fn)
 } else {
     x <- readRDS(fn)
 }
@@ -470,6 +475,7 @@ if (!file.exists(fn)){
         arrange(desc(count))
         
     writexl::write_xlsx(x, file.path(".", "data", "concepts_l5.xlsx"))
+    saveRDS(x, fn)
 } else {
     x <- readRDS(fn)
 }

diff --git a/data/concepts_l0.rds b/data/concepts_l0.rds
diff --git a/data/concepts_l0.xlsx b/data/concepts_l0.xlsx
diff --git a/data/concepts_l1.rds b/data/concepts_l1.rds
diff --git a/data/concepts_l1.xlsx b/data/concepts_l1.xlsx
diff --git a/data/concepts_l2.rds b/data/concepts_l2.rds
diff --git a/data/concepts_l2.xlsx b/data/concepts_l2.xlsx
diff --git a/data/concepts_l3.rds b/data/concepts_l3.rds
diff --git a/data/concepts_l3.xlsx b/data/concepts_l3.xlsx
diff --git a/data/concepts_l4.rds b/data/concepts_l4.rds
diff --git a/data/concepts_l4.xlsx b/data/concepts_l4.xlsx
diff --git a/data/concepts_l5.rds b/data/concepts_l5.rds
diff --git a/data/concepts_l5.xlsx b/data/concepts_l5.xlsx