solve checklist issues

inbo · Oct 9, 2024 · dbcfc5a · dbcfc5a
1 parent 7f82140
commit dbcfc5a
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 9 deletions.
diff --git a/inst/en_gb.dic b/inst/en_gb.dic
@@ -3,18 +3,26 @@ AFW
 BEP
 BUI
 Fase
+Faxonius
 GEV
 IAS
 IRR
 Janne
+Muntiacus
+Muntjac
 PrIUS
+Procambarus
 REL
 SPO
+Subsubsection
 VER
+clarkii
 gemeentengrenzen
 gewest
 gis
 inbo
+reevesi
 unionlist
+virilis
 vlaanderen
 vrgb
diff --git a/source/report/formal/species_overview/generate_section_skeleton.R b/source/report/formal/species_overview/generate_section_skeleton.R
@@ -14,7 +14,10 @@ names <- get(
 # make (temporary) selection
 names_tmp <- names |>
   dplyr::filter(
-    grepl("Muntiacus reevesi|Faxonius virilis|Procambarus clarkii", scientificName)
+    grepl(
+      "Muntiacus reevesi|Faxonius virilis|Procambarus clarkii",
+      scientificName
+      )
   )
 #
 # create section rmds
@@ -45,7 +48,6 @@ for (i in seq_along(names_tmp[[1]])) {
   #
   # change first headline
   rmd_tmp <- readLines(con = file_i)
-  rmd_tmp [1] <- paste("#", name_full_i)
+  rmd_tmp[1] <- paste("#", name_full_i)
   writeLines(text = rmd_tmp, con = file_i)
 }
-
diff --git a/source/report/formal/species_overview/master.Rmd b/source/report/formal/species_overview/master.Rmd
@@ -26,8 +26,12 @@ knitr::opts_chunk$set(echo = TRUE)
 ```{r child-documents, echo = FALSE, results = 'asis'}
 sections_list <- list.files(path = "sections", full.names = TRUE)
 children_list <- vector(mode = "list", length = length(sections_list))
-for (i in 1:3) {
-      children_list[[i]] <- knitr::knit_child(sections_list[[i]], quiet = TRUE, envir = environment())
+for (i in seq_along(sections_list)) {
+      children_list[[i]] <- knitr::knit_child(
+        sections_list[[i]],
+        quiet = TRUE,
+        envir = environment()
+        )
     }
-cat(unlist(children_list), sep = '\n')
+cat(unlist(children_list), sep = "\n")
 ```
diff --git a/source/report/formal/species_overview/trackdown_upload.R b/source/report/formal/species_overview/trackdown_upload.R
@@ -7,7 +7,7 @@ if (FALSE) googledrive::drive_auth() # make sure to tick all boxes
 if (FALSE) googledrive::drive_user() # check user
 #
 #
-# ---upload to g-drive----------------------------------------------------------------------
+# ---upload to g-drive------------------------------------------------------
 #
 # upload section rmd files (files already uploaded are skipped)
 files_list <- list.files(
@@ -44,14 +44,14 @@ try(
 )
 #
 #
-# ---download from g-drive ----------------------------------------------------------------------
+# ---download from g-drive -------------------------------------------------
 #
 if (FALSE) {
   trackdown::download_file()
 }
 #
 #
-# ---update on g-drive----------------------------------------------------------------------
+# ---update on g-drive------------------------------------------------------
 #
 if (FALSE) {
   trackdown::update_file()