Add export of "raw" data used for quality plots

Author: mrustl

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)

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