Merge pull request #3 from KWB-R/dev

Add export of "raw" data used for quality plots
KWB-R · Jun 1, 2022 · 87eb0c4 · 87eb0c4
2 parents f7bb895 + c9edbc2
commit 87eb0c4
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -31,6 +31,7 @@ Suggests:
     covr (>= 3.2.1),
     ggplot2 (>= 3.1.0),
     knitr (>= 1.21),
+    readr(>= 1.4.0), 
     rmarkdown (>= 1.11),
     sessioninfo (>= 1.1.1),
     tibble (>= 2.0.1)

diff --git a/vignettes/data-availability_fri.Rmd b/vignettes/data-availability_fri.Rmd
@@ -82,6 +82,11 @@ foerdermengen_fri_gal <- kwb.geosalz::get_foerdermengen_gal_fri(path = paths$foe
 
 para_info <- kwb.geosalz::get_parameters_meta(paths$parameters)
 
+labordaten_ww %>%
+    dplyr::filter(prufgegenstand == "Rohwasser",
+                  werk == "FRI") %>% 
+    readr::write_csv(file.path(paths$figures_dir, "Zeitreihen_FRI_Guete.csv"))
+
 ```
 
 ## 4 Visualisation