diff --git a/inst/en_gb.dic b/inst/en_gb.dic index 92c9627..ec8dfe0 100644 --- 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 index f71e2f4..07e5e5c 100644 --- 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 index d2b7b9c..cfda003 100644 --- 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 index 25e4185..401f7ba 100644 --- 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()