Merge pull request #13 from inbo/11-new-dataset-boswachterijen

11 new dataset boswachterijen

.github/ISSUE_TEMPLATE/nieuwe-dataset.md

@@ -11,10 +11,14 @@ assignees:
 
 ## checklist:
 - [ ] plaats de ruwe data in `./data_raw/`
-- [ ] schrijf (of kopieer) script, in `./src/` om de ruwe data om te zetten in een `.rda` of `.rds` bestand
+- [ ] schrijf (of kopieer) script, in `./preprocessing/` om de ruwe data om te zetten in een `.rda` of `.rds` bestand
 - [ ] creëer het data bestand en schrijf het weg met `saveRDS()` of `save()`<sup>1</sup>
-- [ ] voorzie een auteur met `#' @author`
-- [ ] voorzie een beschrijving met `#' @description`
+- [ ] creëer een documentatie script in `./R/` dmv `usethis::use_r("datasetname")`
+- [ ] voorzie het R script van een titel met `#'` op de eerste regel.
+- [ ] voorzie een beshcrijving van het data formaat met `#' @format`
+- [ ] voorzie een beschrijving van de inhoud met `#' \describe{\item{kolomnaam}{kolom beschrijving}}`
+- [ ] voorzie een bron van de data met `#' @source`
+- [ ] voorzie een link naar de dateset "datasetnaam"
 - [ ] voer `roxygen2::roxygenise()` uit in de console
 - [ ] voer `devtools::check()` uit in de console
 - [ ] los eventuele errors, warnings en notes<sup>2</sup> op

DESCRIPTION

@@ -7,6 +7,7 @@ Authors@R:
 Description: This package contains functions & data that are widely used within the wildlife management & invasive species research group (FIS) of the research institute forest and nature (INBO).
 License: MIT + file LICENSE
 Encoding: UTF-8
+LazyData: true
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.1
 Imports: 

R/boswachterijen.R

@@ -0,0 +1,15 @@
+#' Boswachterijen
+#'
+#' Spatiale en andere informatie (o.a. telefoonummers) van de boswachterijen van
+#' ANB.
+#'
+#' @format ## `boswachterijen`
+#' En sf data frame with 98 rijen and 11 kolommen per jaar:
+#' \describe{
+#'   \item{Regio}{Beheerregio}
+#'   \item{Naam}{Naam van de boswachter}
+#'   \item{telefoon}{Telefoon nr van de boswachter}
+#'   ...
+#' }
+#' @source <https://www.who.int/teams/global-tuberculosis-programme/data>
+"boswachterijen"

preprocessing/update_boswachterijen.Rmd

@@ -0,0 +1,63 @@
+---
+title: "update_boswachterijen"
+author: "Sander Devisscher"
+date: "2024-04-30"
+output: html_document
+---
+
+Script om boswachterijen.rda up te daten
+boswachterijen.rda bevat de boswachterijen van ANB voor een specifiek jaar.
+
+```{r libraries}
+library(sf)
+```
+
+```{r get filelist}
+rawdata_path <- "./data_raw/boswachterijen/"
+
+filelist <- dir(rawdata_path,
+                pattern = ".geojson",
+                full.names = TRUE)
+
+jaren <- ""
+
+for(f in filelist){
+  temp_file <- st_read(f)
+  
+  filename_redux <- gsub(pattern = rawdata_path,
+                         replacement = "",
+                         f)
+  
+  jaar <- gsub(pattern = ".geojson",
+               replacement = "",
+               filename_redux) %>% 
+    snakecase::to_snake_case()
+  
+  assign(jaar, temp_file)
+  
+  if(jaren == ""){
+    jaren <- jaar
+  }else{
+    jaren <- c(jaren, jaar)
+  }
+}
+
+boswachterijen <- list()
+
+for(j in 1:length(jaren)){
+  temp_list <- list(x = get(jaren[j]))
+  names(temp_list)[1] <- jaren[j]
+  
+  if(length(boswachterijen)==0){
+    boswachterijen <- c(temp_list)
+  }else{
+    boswachterijen <- c(boswachterijen, temp_list)
+  }
+  
+}
+
+save(boswachterijen, 
+     file = "./data/boswachterijen.rda", 
+     compress = "xz")
+```
+