From b7c0b4b34b7920d80b14e6c20f8ffdba69b7e62f Mon Sep 17 00:00:00 2001
From: GitHub Actions <actions@github.com>
Date: Fri, 6 Oct 2023 07:11:25 +0000
Subject: [PATCH] Built site for kwb.geosalz: 0.6.0@4a7bc76

---
 articles/data-availability_fri.html           |    4 +-
 articles/emshoff91.html                       |    4 +-
 articles/hydrochemistry.html                  |    4 +-
 articles/measurement-chains.html              |  118 +-
 .../datatables-binding-0.30/datatables.js     | 1517 +++++++++++++++++
 articles/wasserportal.html                    |   42 +-
 .../datatables-binding-0.30/datatables.js     | 1517 +++++++++++++++++
 articles/workflow.html                        |    4 +-
 gwl_data.csv                                  |   28 +
 gwl_data_stats.csv                            |   34 +-
 map_gwl.html                                  |    6 +-
 map_gwq.html                                  |    6 +-
 map_swl.html                                  |    6 +-
 pkgdown.yml                                   |    2 +-
 search.json                                   |    2 +-
 swl_data.csv                                  |    5 +
 swl_data_stats.csv                            |   10 +-
 17 files changed, 3188 insertions(+), 121 deletions(-)
 create mode 100644 articles/measurement-chains_files/datatables-binding-0.30/datatables.js
 create mode 100644 articles/wasserportal_files/datatables-binding-0.30/datatables.js

diff --git a/articles/data-availability_fri.html b/articles/data-availability_fri.html
index ef1e4eff..6bb43ec0 100644
--- a/articles/data-availability_fri.html
+++ b/articles/data-availability_fri.html
@@ -80,7 +80,7 @@
                         <h4 data-toc-skip class="author">Michael
 Rustler</h4>
             
-            <h4 data-toc-skip class="date">2023-10-05</h4>
+            <h4 data-toc-skip class="date">2023-10-06</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/KWB-R/kwb.geosalz/blob/HEAD/vignettes/data-availability_fri.Rmd" class="external-link"><code>vignettes/data-availability_fri.Rmd</code></a></small>
       <div class="d-none name"><code>data-availability_fri.Rmd</code></div>
@@ -392,7 +392,7 @@ <h3 id="plattform">Plattform<a class="anchor" aria-label="anchor" href="#plattfo
 </tr>
 <tr class="odd">
 <td align="left">date</td>
-<td align="left">2023-10-05</td>
+<td align="left">2023-10-06</td>
 </tr>
 <tr class="even">
 <td align="left">pandoc</td>
diff --git a/articles/emshoff91.html b/articles/emshoff91.html
index ec0244ec..30fbb34c 100644
--- a/articles/emshoff91.html
+++ b/articles/emshoff91.html
@@ -80,7 +80,7 @@
                         <h4 data-toc-skip class="author">Michael
 Rustler</h4>
             
-            <h4 data-toc-skip class="date">2023-10-05</h4>
+            <h4 data-toc-skip class="date">2023-10-06</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/KWB-R/kwb.geosalz/blob/HEAD/vignettes/emshoff91.Rmd" class="external-link"><code>vignettes/emshoff91.Rmd</code></a></small>
       <div class="d-none name"><code>emshoff91.Rmd</code></div>
@@ -269,7 +269,7 @@ <h3 id="plattform">Plattform<a class="anchor" aria-label="anchor" href="#plattfo
 </tr>
 <tr class="odd">
 <td align="left">date</td>
-<td align="left">2023-10-05</td>
+<td align="left">2023-10-06</td>
 </tr>
 <tr class="even">
 <td align="left">pandoc</td>
diff --git a/articles/hydrochemistry.html b/articles/hydrochemistry.html
index d0ccbeb4..a72bbf46 100644
--- a/articles/hydrochemistry.html
+++ b/articles/hydrochemistry.html
@@ -80,7 +80,7 @@
                         <h4 data-toc-skip class="author">Michael
 Rustler</h4>
             
-            <h4 data-toc-skip class="date">2023-10-05</h4>
+            <h4 data-toc-skip class="date">2023-10-06</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/KWB-R/kwb.geosalz/blob/HEAD/vignettes/hydrochemistry.Rmd" class="external-link"><code>vignettes/hydrochemistry.Rmd</code></a></small>
       <div class="d-none name"><code>hydrochemistry.Rmd</code></div>
@@ -307,7 +307,7 @@ <h3 id="plattform">Plattform<a class="anchor" aria-label="anchor" href="#plattfo
 </tr>
 <tr class="odd">
 <td align="left">date</td>
-<td align="left">2023-10-05</td>
+<td align="left">2023-10-06</td>
 </tr>
 <tr class="even">
 <td align="left">pandoc</td>
diff --git a/articles/measurement-chains.html b/articles/measurement-chains.html
index dc6e18c7..1c4f4067 100644
--- a/articles/measurement-chains.html
+++ b/articles/measurement-chains.html
@@ -74,7 +74,7 @@
 
 
 <script src="measurement-chains_files/htmlwidgets-1.6.2/htmlwidgets.js"></script><link href="measurement-chains_files/datatables-css-0.0.0/datatables-crosstalk.css" rel="stylesheet">
-<script src="measurement-chains_files/datatables-binding-0.29/datatables.js"></script><link href="measurement-chains_files/dt-core-1.13.4/css/jquery.dataTables.min.css" rel="stylesheet">
+<script src="measurement-chains_files/datatables-binding-0.30/datatables.js"></script><link href="measurement-chains_files/dt-core-1.13.4/css/jquery.dataTables.min.css" rel="stylesheet">
 <link href="measurement-chains_files/dt-core-1.13.4/css/jquery.dataTables.extra.css" rel="stylesheet">
 <script src="measurement-chains_files/dt-core-1.13.4/js/jquery.dataTables.min.js"></script><link href="measurement-chains_files/crosstalk-1.2.0/css/crosstalk.min.css" rel="stylesheet">
 <script src="measurement-chains_files/crosstalk-1.2.0/js/crosstalk.min.js"></script><div class="row">
@@ -99,8 +99,8 @@ <h2 id="background">Background<a class="anchor" aria-label="anchor" href="#backg
 within the well is given in column <code>sensor_endnummer</code>. The
 identifier of the production well that the sensor is located in is given
 in column <code>brunnen_nummer</code>.</p>
-<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-c8817966f879c16cfa7f" style="width:100%;height:auto;"></div>
-<script type="application/json" data-for="htmlwidget-c8817966f879c16cfa7f">{"x":{"filter":"none","vertical":false,"caption":"<caption>Table 1: Metadata on Measurement Chains. Each row represents a sensor.<\/caption>","data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18"],["K","K","K","K","K","K","K","K","K","K","K","K","K","K","K","K","K","K"],[9,9,9,9,9,9,10,10,10,10,10,10,13,13,13,13,13,13],[400,400,400,400,400,400,600,600,600,600,600,600,600,600,600,600,600,600],["über Filter","über Filter","über Filter","über Filter","über Filter","über Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter"],["unter Pumpe","unter Pumpe","unter Pumpe","unter Pumpe","unter Pumpe","unter Pumpe","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)"],[21,21,21,21,21,21,11,11,11,11,11,11,12,12,12,12,12,12],[27,27,27,27,27,27,18,18,18,18,18,18,20,20,20,20,20,20],[4182018,4182017,4182016,4182015,4182014,4182013,4182006,4182005,4182004,4182003,4182002,4182001,4182012,4182011,4182010,4182009,4182008,4182007],[8,7,6,5,4,3,6,5,4,3,2,1,2,1,0,9,8,7],[21.5,22.5,23.5,24.5,25.5,26.5,11.5,12.7,13.9,15.1,16.3,17.5,12.5,13.9,15.3,16.7,18.1,19.5]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>galerie<\/th>\n      <th>brunnen_nummer<\/th>\n      <th>dn<\/th>\n      <th>einbau_pumpe<\/th>\n      <th>einbau_messkette<\/th>\n      <th>filteroberkante_muGOK<\/th>\n      <th>filterunterkante_muGOK<\/th>\n      <th>sensor_id<\/th>\n      <th>sensor_endnummer<\/th>\n      <th>einbau_sensor_muGOK<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[2,3,6,7,8,9,10]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script><p>Each sensor (type: <em>WLF05</em>, <strong>TODO</strong>:
+<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-0966b21d41383ef6b8d2" style="width:100%;height:auto;"></div>
+<script type="application/json" data-for="htmlwidget-0966b21d41383ef6b8d2">{"x":{"filter":"none","vertical":false,"caption":"<caption>Table 1: Metadata on Measurement Chains. Each row represents a sensor.<\/caption>","data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18"],["K","K","K","K","K","K","K","K","K","K","K","K","K","K","K","K","K","K"],[9,9,9,9,9,9,10,10,10,10,10,10,13,13,13,13,13,13],[400,400,400,400,400,400,600,600,600,600,600,600,600,600,600,600,600,600],["über Filter","über Filter","über Filter","über Filter","über Filter","über Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter","unter Filter"],["unter Pumpe","unter Pumpe","unter Pumpe","unter Pumpe","unter Pumpe","unter Pumpe","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)","über Pumpe (am Steigrohr)"],[21,21,21,21,21,21,11,11,11,11,11,11,12,12,12,12,12,12],[27,27,27,27,27,27,18,18,18,18,18,18,20,20,20,20,20,20],[4182018,4182017,4182016,4182015,4182014,4182013,4182006,4182005,4182004,4182003,4182002,4182001,4182012,4182011,4182010,4182009,4182008,4182007],[8,7,6,5,4,3,6,5,4,3,2,1,2,1,0,9,8,7],[21.5,22.5,23.5,24.5,25.5,26.5,11.5,12.7,13.9,15.1,16.3,17.5,12.5,13.9,15.3,16.7,18.1,19.5]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>galerie<\/th>\n      <th>brunnen_nummer<\/th>\n      <th>dn<\/th>\n      <th>einbau_pumpe<\/th>\n      <th>einbau_messkette<\/th>\n      <th>filteroberkante_muGOK<\/th>\n      <th>filterunterkante_muGOK<\/th>\n      <th>sensor_id<\/th>\n      <th>sensor_endnummer<\/th>\n      <th>einbau_sensor_muGOK<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[2,3,6,7,8,9,10]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script><p>Each sensor (type: <em>WLF05</em>, <strong>TODO</strong>:
 add-link-to-factsheet-on-kwb-cloud) measures two parameters with the
 following characteristics:</p>
 <ul>
@@ -227,7 +227,7 @@ <h4 id="what-files-are-available-on-the-sftp-server">What files are available on
 <span><span class="va">mc_files</span> <span class="op">&lt;-</span> <span class="fu">kwb.geosalz</span><span class="fu">::</span><span class="fu"><a href="../reference/get_measurementchains_files.html">get_measurementchains_files</a></span><span class="op">(</span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/utils/str.html" class="external-link">str</a></span><span class="op">(</span><span class="va">mc_files</span><span class="op">)</span></span>
-<span><span class="co">#&gt; 'data.frame':    6385 obs. of  16 variables:</span></span>
+<span><span class="co">#&gt; 'data.frame':    6403 obs. of  16 variables:</span></span>
 <span><span class="co">#&gt;  $ rights          : chr  "-rw-r--r--" "-rw-r--r--" "-rw-r--r--" "-rw-r--r--" ...</span></span>
 <span><span class="co">#&gt;  $ links           : chr  "1" "1" "1" "1" ...</span></span>
 <span><span class="co">#&gt;  $ ownername       : chr  "1011" "1011" "1011" "1011" ...</span></span>
@@ -278,8 +278,8 @@ <h4 id="what-data-are-already-available-on-the-nextcloud-server">What data are a
 <span><span class="co"># no file "mc_data.zip" in the Nextcloud folder </span></span>
 <span><span class="co"># "projects/GeoSalz/Monitoring/messketten"</span></span>
 <span><span class="va">old_data</span> <span class="op">&lt;-</span> <span class="fu">kwb.geosalz</span><span class="fu">::</span><span class="fu"><a href="../reference/get_measurement_chain_data_on_cloud.html">get_measurement_chain_data_on_cloud</a></span><span class="op">(</span><span class="op">)</span></span>
-<span><span class="co">#&gt; The directory "~/../Downloads/nextcloud_15701eed3af" was created.</span></span>
-<span><span class="co">#&gt; Downloading remote.php/dav/files/hsonne/projects/GeoSalz/Monitoring/messketten/mc_data.zip ... ok. (1.02 secs)</span></span>
+<span><span class="co">#&gt; The directory "~/../Downloads/nextcloud_9143e0fca7" was created.</span></span>
+<span><span class="co">#&gt; Downloading remote.php/dav/files/hsonne/projects/GeoSalz/Monitoring/messketten/mc_data.zip ... ok. (1.45 secs)</span></span>
 <span><span class="co">#old_data &lt;- NULL</span></span></code></pre></div>
 </div>
 <div class="section level4">
@@ -324,99 +324,99 @@ <h4 id="download-the-new-files-from-the-sftp-server">Download the new files from
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
 <span><span class="co">#&gt; Creating folder C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/download/K09</span></span>
-<span><span class="co">#&gt; K09/4182013-2023-10-05-0606.csv downloaded</span></span>
+<span><span class="co">#&gt; K09/4182013-2023-10-06-0606.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K09/4182014-2023-10-05-0616.csv downloaded</span></span>
+<span><span class="co">#&gt; K09/4182014-2023-10-06-0616.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K09/4182015-2023-10-05-0625.csv downloaded</span></span>
+<span><span class="co">#&gt; K09/4182015-2023-10-06-0626.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K09/4182016-2023-10-05-0611.csv downloaded</span></span>
+<span><span class="co">#&gt; K09/4182016-2023-10-06-0611.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K09/4182017-2023-10-05-0621.csv downloaded</span></span>
+<span><span class="co">#&gt; K09/4182017-2023-10-06-0621.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K09/4182018-2023-10-05-0631.csv downloaded</span></span>
+<span><span class="co">#&gt; K09/4182018-2023-10-06-0631.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
 <span><span class="co">#&gt; Creating folder C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/download/K10</span></span>
-<span><span class="co">#&gt; K10/LF_4182001_2023-10-05-0601.csv downloaded</span></span>
+<span><span class="co">#&gt; K10/LF_4182001_2023-10-06-0601.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K10/LF_4182002_2023-10-05-0605.csv downloaded</span></span>
+<span><span class="co">#&gt; K10/LF_4182002_2023-10-06-0605.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K10/LF_4182003_2023-10-05-0610.csv downloaded</span></span>
+<span><span class="co">#&gt; K10/LF_4182003_2023-10-06-0611.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K10/LF_4182004_2023-10-05-0636.csv downloaded</span></span>
+<span><span class="co">#&gt; K10/LF_4182004_2023-10-06-0636.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K10/LF_4182005_2023-10-05-0641.csv downloaded</span></span>
+<span><span class="co">#&gt; K10/LF_4182005_2023-10-06-0641.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K10/LF_4182006_2023-10-05-0631.csv downloaded</span></span>
+<span><span class="co">#&gt; K10/LF_4182006_2023-10-06-0630.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
 <span><span class="co">#&gt; Creating folder C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/download/K13</span></span>
-<span><span class="co">#&gt; K13/4182007-2023-10-05-0605.csv downloaded</span></span>
+<span><span class="co">#&gt; K13/4182007-2023-10-06-0605.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K13/4182008-2023-10-05-0615.csv downloaded</span></span>
+<span><span class="co">#&gt; K13/4182008-2023-10-06-0615.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K13/4182009-2023-10-05-0626.csv downloaded</span></span>
+<span><span class="co">#&gt; K13/4182009-2023-10-06-0626.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K13/4182010-2023-10-05-0610.csv downloaded</span></span>
+<span><span class="co">#&gt; K13/4182010-2023-10-06-0610.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K13/4182011-2023-10-05-0620.csv downloaded</span></span>
+<span><span class="co">#&gt; K13/4182011-2023-10-06-0620.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
 <span><span class="co">#&gt; SFTP source: sftp://ftp.ackermannkg.de</span></span>
 <span><span class="co">#&gt; Save to folder: C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/download</span></span>
 <span><span class="co">#&gt; 1 file(s) to download.</span></span>
-<span><span class="co">#&gt; K13/4182012-2023-10-05-0630.csv downloaded</span></span>
+<span><span class="co">#&gt; K13/4182012-2023-10-06-0630.csv downloaded</span></span>
 <span><span class="co">#&gt; 1 file(s) downloaded.</span></span>
-<span><span class="co">#&gt; ok. (46.06 secs)</span></span>
+<span><span class="co">#&gt; ok. (1.10 mins)</span></span>
 <span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/utils/str.html" class="external-link">str</a></span><span class="op">(</span><span class="va">csv_files</span><span class="op">)</span></span>
-<span><span class="co">#&gt;  chr [1:18] "C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download/K09/4182013-2023-10-05-0606.csv" ...</span></span></code></pre></div>
+<span><span class="co">#&gt;  chr [1:18] "C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download/K09/4182013-2023-10-06-0606.csv" ...</span></span></code></pre></div>
 </div>
 </div>
 <div class="section level3">
@@ -443,7 +443,7 @@ <h3 id="data-import">Data Import<a class="anchor" aria-label="anchor" href="#dat
 <span>    <span class="fu"><a href="https://rdrr.io/r/base/cbind.html" class="external-link">rbind</a></span><span class="op">(</span><span class="va">new_data</span><span class="op">)</span> <span class="op"><a href="../reference/pipe.html">%&gt;%</a></span></span>
 <span>    <span class="fu">kwb.geosalz</span><span class="fu">::</span><span class="fu"><a href="../reference/order_measurement_chain_data.html">order_measurement_chain_data</a></span><span class="op">(</span><span class="op">)</span></span>
 <span><span class="op">}</span></span>
-<span><span class="co">#&gt; Importing 18 measurement chains files (using 1 CPU core) ... ok. (2.27 secs) </span></span>
+<span><span class="co">#&gt; Importing 18 measurement chains files (using 1 CPU core) ... ok. (3.47 secs) </span></span>
 <span><span class="co">#&gt; Filtering out 'lab' measurements before '2022-09-27 11:00:00' (installation in K10) ... ok. (0.00 secs)</span></span></code></pre></div>
 <p>The following datasets were imported into R or already available in
 R:</p>
@@ -454,8 +454,8 @@ <h3 id="data-import">Data Import<a class="anchor" aria-label="anchor" href="#dat
 <span>    <span class="va">.data</span><span class="op">$</span><span class="va">parameter</span>, </span>
 <span>    <span class="fu">dplyr</span><span class="fu">::</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/desc.html" class="external-link">desc</a></span><span class="op">(</span><span class="va">.data</span><span class="op">$</span><span class="va">sensor_id</span><span class="op">)</span></span>
 <span>  <span class="op">)</span></span></code></pre></div>
-<p>These cover the time period from 2022-09-27 11:00:00 to 2023-10-04
-23:00:00 with a total of 135000 samples.</p>
+<p>These cover the time period from 2022-09-27 11:00:00 to 2023-10-05
+23:00:00 with a total of 135144 samples.</p>
 </div>
 <div class="section level3">
 <h3 id="data-export">Data Export<a class="anchor" aria-label="anchor" href="#data-export"></a>
@@ -470,7 +470,7 @@ <h3 id="data-export">Data Export<a class="anchor" aria-label="anchor" href="#dat
 <span>  to_zip <span class="op">=</span> <span class="cn">FALSE</span>,</span>
 <span>  debug <span class="op">=</span> <span class="va">debug</span></span>
 <span><span class="op">)</span></span>
-<span><span class="co">#&gt; Exporting provided dataset 'mc_data' to 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231004-230000TZ+01.csv' ... ok. (3.15 secs)</span></span>
+<span><span class="co">#&gt; Exporting provided dataset 'mc_data' to 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231005-230000TZ+01.csv' ... ok. (2.93 secs)</span></span>
 <span></span>
 <span><span class="va">size_data_csv</span> <span class="op">&lt;-</span> <span class="fu">fs</span><span class="fu">::</span><span class="fu"><a href="https://fs.r-lib.org/reference/file_info.html" class="external-link">file_size</a></span><span class="op">(</span><span class="va">data_csv_path</span><span class="op">)</span></span>
 <span></span>
@@ -481,8 +481,8 @@ <h3 id="data-export">Data Export<a class="anchor" aria-label="anchor" href="#dat
 <span>  to_zip <span class="op">=</span> <span class="cn">TRUE</span>,</span>
 <span>  debug <span class="op">=</span> <span class="va">debug</span></span>
 <span><span class="op">)</span></span>
-<span><span class="co">#&gt; Exporting provided dataset 'mc_data' to 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231004-230000TZ+01.csv' ... ok. (3.24 secs) </span></span>
-<span><span class="co">#&gt; Exporting provided dataset 'mc_data' to 'C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data.zip' and delete intermediate 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231004-230000TZ+01.csv' ... ok. (0.22 secs)</span></span>
+<span><span class="co">#&gt; Exporting provided dataset 'mc_data' to 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231005-230000TZ+01.csv' ... ok. (3.02 secs) </span></span>
+<span><span class="co">#&gt; Exporting provided dataset 'mc_data' to 'C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data.zip' and delete intermediate 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231005-230000TZ+01.csv' ... ok. (0.19 secs)</span></span>
 <span></span>
 <span><span class="va">size_data_zip</span> <span class="op">&lt;-</span> <span class="fu">fs</span><span class="fu">::</span><span class="fu"><a href="https://fs.r-lib.org/reference/file_info.html" class="external-link">file_size</a></span><span class="op">(</span><span class="va">data_zip_path</span><span class="op">)</span></span>
 <span><span class="va">size_data_csv</span> <span class="op">/</span> <span class="va">size_data_zip</span></span>
@@ -536,22 +536,22 @@ <h3 id="data-export">Data Export<a class="anchor" aria-label="anchor" href="#dat
 <span>  <span class="fu">plot_to_pdf</span><span class="op">(</span><span class="va">mc_data</span>, <span class="st">"Temperatur"</span>, <span class="va">paths</span><span class="op">$</span><span class="va">export_dir</span><span class="op">)</span></span>
 <span><span class="op">)</span></span>
 <span><span class="co">#&gt; Writting 'Leitfaehigkeit_K10' to 'C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K10.pdf' ...</span></span>
-<span><span class="co">#&gt; ok. (1.49 secs) </span></span>
+<span><span class="co">#&gt; ok. (1.57 secs) </span></span>
 <span><span class="co">#&gt; Writting 'Leitfaehigkeit_K13' to 'C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K13.pdf' ...</span></span>
-<span><span class="co">#&gt; ok. (0.88 secs) </span></span>
+<span><span class="co">#&gt; ok. (0.89 secs) </span></span>
 <span><span class="co">#&gt; Writting 'Leitfaehigkeit_K09' to 'C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K09.pdf' ...</span></span>
-<span><span class="co">#&gt; ok. (0.87 secs) </span></span>
+<span><span class="co">#&gt; ok. (0.88 secs) </span></span>
 <span><span class="co">#&gt; Writting 'Temperatur_K10' to 'C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K10.pdf' ...</span></span>
-<span><span class="co">#&gt; ok. (1.14 secs) </span></span>
+<span><span class="co">#&gt; ok. (1.12 secs) </span></span>
 <span><span class="co">#&gt; Writting 'Temperatur_K13' to 'C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K13.pdf' ...</span></span>
-<span><span class="co">#&gt; ok. (0.80 secs) </span></span>
+<span><span class="co">#&gt; ok. (0.84 secs) </span></span>
 <span><span class="co">#&gt; Writting 'Temperatur_K09' to 'C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K09.pdf' ...</span></span>
-<span><span class="co">#&gt; ok. (0.87 secs)</span></span>
+<span><span class="co">#&gt; ok. (0.85 secs)</span></span>
 <span></span>
 <span><span class="va">data_zip_path</span></span>
 <span><span class="co">#&gt; [1] "C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data.zip"</span></span></code></pre></div>
 <p>The file size of the
-mc_data_20220927-110000TZ+01_20231004-230000TZ+01.csv file is 22 times
+mc_data_20220927-110000TZ+01_20231005-230000TZ+01.csv file is 22 times
 larger compared to compressing it into mc_data.zip.</p>
 </div>
 <div class="section level3">
@@ -590,53 +590,53 @@ <h3 id="data-upload">Data Upload<a class="anchor" aria-label="anchor" href="#dat
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_stats.csv ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_stats.csv</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.42 secs) </span></span>
-<span><span class="co">#&gt; ok. (2.14 secs) </span></span>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (2.14 secs) </span></span>
+<span><span class="co">#&gt; ok. (3.17 secs) </span></span>
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K10.pdf ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K10.pdf</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (2.07 secs) </span></span>
-<span><span class="co">#&gt; ok. (2.46 secs) </span></span>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (2.77 secs) </span></span>
+<span><span class="co">#&gt; ok. (3.22 secs) </span></span>
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K13.pdf ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K13.pdf</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.42 secs) </span></span>
-<span><span class="co">#&gt; ok. (1.81 secs) </span></span>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.57 secs) </span></span>
+<span><span class="co">#&gt; ok. (2.04 secs) </span></span>
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K09.pdf ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K09.pdf</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.59 secs) </span></span>
-<span><span class="co">#&gt; ok. (1.97 secs) </span></span>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.76 secs) </span></span>
+<span><span class="co">#&gt; ok. (2.24 secs) </span></span>
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K10.pdf ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K10.pdf</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.67 secs) </span></span>
-<span><span class="co">#&gt; ok. (2.07 secs) </span></span>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.97 secs) </span></span>
+<span><span class="co">#&gt; ok. (2.42 secs) </span></span>
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K13.pdf ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K13.pdf</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.62 secs) </span></span>
-<span><span class="co">#&gt; ok. (2.02 secs) </span></span>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.74 secs) </span></span>
+<span><span class="co">#&gt; ok. (2.20 secs) </span></span>
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K09.pdf ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K09.pdf</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.55 secs) </span></span>
-<span><span class="co">#&gt; ok. (1.94 secs) </span></span>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.56 secs) </span></span>
+<span><span class="co">#&gt; ok. (2.02 secs) </span></span>
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/metadata.csv ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/metadata.csv</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.43 secs) </span></span>
-<span><span class="co">#&gt; ok. (1.81 secs) </span></span>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.50 secs) </span></span>
+<span><span class="co">#&gt; ok. (1.97 secs) </span></span>
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_files.csv ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_files.csv</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.48 secs) </span></span>
-<span><span class="co">#&gt; ok. (1.88 secs) </span></span>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.53 secs) </span></span>
+<span><span class="co">#&gt; ok. (1.99 secs) </span></span>
 <span><span class="co">#&gt; Uploading file C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data.zip ... Uploading</span></span>
 <span><span class="co">#&gt;   C:\Users\RUNNER~1\AppData\Local\Temp/R_kwb.geosalz/export/mc_data.zip</span></span>
 <span><span class="co">#&gt; to</span></span>
-<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (1.64 secs) </span></span>
-<span><span class="co">#&gt; ok. (2.03 secs)</span></span></code></pre></div>
+<span><span class="co">#&gt;   projects/GeoSalz/Monitoring/messketten ... ok. (2.11 secs) </span></span>
+<span><span class="co">#&gt; ok. (2.58 secs)</span></span></code></pre></div>
 </div>
 </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/articles/measurement-chains_files/datatables-binding-0.30/datatables.js b/articles/measurement-chains_files/datatables-binding-0.30/datatables.js
new file mode 100644
index 00000000..d968d8be
--- /dev/null
+++ b/articles/measurement-chains_files/datatables-binding-0.30/datatables.js
@@ -0,0 +1,1517 @@
+(function() {
+
+// some helper functions: using a global object DTWidget so that it can be used
+// in JS() code, e.g. datatable(options = list(foo = JS('code'))); unlike R's
+// dynamic scoping, when 'code' is eval'ed, JavaScript does not know objects
+// from the "parent frame", e.g. JS('DTWidget') will not work unless it was made
+// a global object
+var DTWidget = {};
+
+// 123456666.7890 -> 123,456,666.7890
+var markInterval = function(d, digits, interval, mark, decMark, precision) {
+  x = precision ? d.toPrecision(digits) : d.toFixed(digits);
+  if (!/^-?[\d.]+$/.test(x)) return x;
+  var xv = x.split('.');
+  if (xv.length > 2) return x;  // should have at most one decimal point
+  xv[0] = xv[0].replace(new RegExp('\\B(?=(\\d{' + interval + '})+(?!\\d))', 'g'), mark);
+  return xv.join(decMark);
+};
+
+DTWidget.formatCurrency = function(data, currency, digits, interval, mark, decMark, before, zeroPrint) {
+  var d = parseFloat(data);
+  if (isNaN(d)) return '';
+  if (zeroPrint !== null && d === 0.0) return zeroPrint;
+  var res = markInterval(d, digits, interval, mark, decMark);
+  res = before ? (/^-/.test(res) ? '-' + currency + res.replace(/^-/, '') : currency + res) :
+    res + currency;
+  return res;
+};
+
+DTWidget.formatString = function(data, prefix, suffix) {
+  var d = data;
+  if (d === null) return '';
+  return prefix + d + suffix;
+};
+
+DTWidget.formatPercentage = function(data, digits, interval, mark, decMark, zeroPrint) {
+  var d = parseFloat(data);
+  if (isNaN(d)) return '';
+  if (zeroPrint !== null && d === 0.0) return zeroPrint;
+  return markInterval(d * 100, digits, interval, mark, decMark) + '%';
+};
+
+DTWidget.formatRound = function(data, digits, interval, mark, decMark, zeroPrint) {
+  var d = parseFloat(data);
+  if (isNaN(d)) return '';
+  if (zeroPrint !== null && d === 0.0) return zeroPrint;
+  return markInterval(d, digits, interval, mark, decMark);
+};
+
+DTWidget.formatSignif = function(data, digits, interval, mark, decMark, zeroPrint) {
+  var d = parseFloat(data);
+  if (isNaN(d)) return '';
+  if (zeroPrint !== null && d === 0.0) return zeroPrint;
+  return markInterval(d, digits, interval, mark, decMark, true);
+};
+
+DTWidget.formatDate = function(data, method, params) {
+  var d = data;
+  if (d === null) return '';
+  // (new Date('2015-10-28')).toDateString() may return 2015-10-27 because the
+  // actual time created could be like 'Tue Oct 27 2015 19:00:00 GMT-0500 (CDT)',
+  // i.e. the date-only string is treated as UTC time instead of local time
+  if ((method === 'toDateString' || method === 'toLocaleDateString') && /^\d{4,}\D\d{2}\D\d{2}$/.test(d)) {
+    d = d.split(/\D/);
+    d = new Date(d[0], d[1] - 1, d[2]);
+  } else {
+    d = new Date(d);
+  }
+  return d[method].apply(d, params);
+};
+
+window.DTWidget = DTWidget;
+
+// A helper function to update the properties of existing filters
+var setFilterProps = function(td, props) {
+  // Update enabled/disabled state
+  var $input = $(td).find('input').first();
+  var searchable = $input.data('searchable');
+  $input.prop('disabled', !searchable || props.disabled);
+
+  // Based on the filter type, set its new values
+  var type = td.getAttribute('data-type');
+  if (['factor', 'logical'].includes(type)) {
+    // Reformat the new dropdown options for use with selectize
+    var new_vals = props.params.options.map(function(item) {
+      return { text: item, value: item };
+    });
+
+    // Find the selectize object
+    var dropdown = $(td).find('.selectized').eq(0)[0].selectize;
+
+    // Note the current values
+    var old_vals = dropdown.getValue();
+
+    // Remove the existing values
+    dropdown.clearOptions();
+
+    // Add the new options
+    dropdown.addOption(new_vals);
+
+    // Preserve the existing values
+    dropdown.setValue(old_vals);
+
+  } else if (['number', 'integer', 'date', 'time'].includes(type)) {
+    // Apply internal scaling to new limits. Updating scale not yet implemented.
+    var slider = $(td).find('.noUi-target').eq(0);
+    var scale = Math.pow(10, Math.max(0, +slider.data('scale') || 0));
+    var new_vals = [props.params.min * scale, props.params.max * scale];
+
+    // Note what the new limits will be just for this filter
+    var new_lims = new_vals.slice();
+
+    // Determine the current values and limits
+    var old_vals = slider.val().map(Number);
+    var old_lims = slider.noUiSlider('options').range;
+    old_lims = [old_lims.min, old_lims.max];
+
+    // Preserve the current values if filters have been applied; otherwise, apply no filtering
+    if (old_vals[0] != old_lims[0]) {
+      new_vals[0] = Math.max(old_vals[0], new_vals[0]);
+    }
+
+    if (old_vals[1] != old_lims[1]) {
+      new_vals[1] = Math.min(old_vals[1], new_vals[1]);
+    }
+
+    // Update the endpoints of the slider
+    slider.noUiSlider({
+      start: new_vals,
+      range: {'min': new_lims[0], 'max': new_lims[1]}
+    }, true);
+  }
+};
+
+var transposeArray2D = function(a) {
+  return a.length === 0 ? a : HTMLWidgets.transposeArray2D(a);
+};
+
+var crosstalkPluginsInstalled = false;
+
+function maybeInstallCrosstalkPlugins() {
+  if (crosstalkPluginsInstalled)
+    return;
+  crosstalkPluginsInstalled = true;
+
+  $.fn.dataTable.ext.afnFiltering.push(
+    function(oSettings, aData, iDataIndex) {
+      var ctfilter = oSettings.nTable.ctfilter;
+      if (ctfilter && !ctfilter[iDataIndex])
+        return false;
+
+      var ctselect = oSettings.nTable.ctselect;
+      if (ctselect && !ctselect[iDataIndex])
+        return false;
+
+      return true;
+    }
+  );
+}
+
+HTMLWidgets.widget({
+  name: "datatables",
+  type: "output",
+  renderOnNullValue: true,
+  initialize: function(el, width, height) {
+    // in order that the type=number inputs return a number
+    $.valHooks.number = {
+      get: function(el) {
+        var value = parseFloat(el.value);
+        return isNaN(value) ? "" : value;
+      }
+    };
+    $(el).html('&nbsp;');
+    return {
+      data: null,
+      ctfilterHandle: new crosstalk.FilterHandle(),
+      ctfilterSubscription: null,
+      ctselectHandle: new crosstalk.SelectionHandle(),
+      ctselectSubscription: null
+    };
+  },
+  renderValue: function(el, data, instance) {
+    if (el.offsetWidth === 0 || el.offsetHeight === 0) {
+      instance.data = data;
+      return;
+    }
+    instance.data = null;
+    var $el = $(el);
+    $el.empty();
+
+    if (data === null) {
+      $el.append('&nbsp;');
+      // clear previous Shiny inputs (if any)
+      for (var i in instance.clearInputs) instance.clearInputs[i]();
+      instance.clearInputs = {};
+      return;
+    }
+
+    var crosstalkOptions = data.crosstalkOptions;
+    if (!crosstalkOptions) crosstalkOptions = {
+      'key': null, 'group': null
+    };
+    if (crosstalkOptions.group) {
+      maybeInstallCrosstalkPlugins();
+      instance.ctfilterHandle.setGroup(crosstalkOptions.group);
+      instance.ctselectHandle.setGroup(crosstalkOptions.group);
+    }
+
+    // if we are in the viewer then we always want to fillContainer and
+    // and autoHideNavigation (unless the user has explicitly set these)
+    if (window.HTMLWidgets.viewerMode) {
+      if (!data.hasOwnProperty("fillContainer"))
+        data.fillContainer = true;
+      if (!data.hasOwnProperty("autoHideNavigation"))
+        data.autoHideNavigation = true;
+    }
+
+    // propagate fillContainer to instance (so we have it in resize)
+    instance.fillContainer = data.fillContainer;
+
+    var cells = data.data;
+
+    if (cells instanceof Array) cells = transposeArray2D(cells);
+
+    $el.append(data.container);
+    var $table = $el.find('table');
+    if (data.class) $table.addClass(data.class);
+    if (data.caption) $table.prepend(data.caption);
+
+    if (!data.selection) data.selection = {
+      mode: 'none', selected: null, target: 'row', selectable: null
+    };
+    if (HTMLWidgets.shinyMode && data.selection.mode !== 'none' &&
+        data.selection.target === 'row+column') {
+      if ($table.children('tfoot').length === 0) {
+        $table.append($('<tfoot>'));
+        $table.find('thead tr').clone().appendTo($table.find('tfoot'));
+      }
+    }
+
+    // column filters
+    var filterRow;
+    switch (data.filter) {
+      case 'top':
+        $table.children('thead').append(data.filterHTML);
+        filterRow = $table.find('thead tr:last td');
+        break;
+      case 'bottom':
+        if ($table.children('tfoot').length === 0) {
+          $table.append($('<tfoot>'));
+        }
+        $table.children('tfoot').prepend(data.filterHTML);
+        filterRow = $table.find('tfoot tr:first td');
+        break;
+    }
+
+    var options = { searchDelay: 1000 };
+    if (cells !== null) $.extend(options, {
+      data: cells
+    });
+
+    // options for fillContainer
+    var bootstrapActive = typeof($.fn.popover) != 'undefined';
+    if (instance.fillContainer) {
+
+      // force scrollX/scrollY and turn off autoWidth
+      options.scrollX = true;
+      options.scrollY = "100px"; // can be any value, we'll adjust below
+
+      // if we aren't paginating then move around the info/filter controls
+      // to save space at the bottom and rephrase the info callback
+      if (data.options.paging === false) {
+
+        // we know how to do this cleanly for bootstrap, not so much
+        // for other themes/layouts
+        if (bootstrapActive) {
+          options.dom = "<'row'<'col-sm-4'i><'col-sm-8'f>>" +
+                        "<'row'<'col-sm-12'tr>>";
+        }
+
+        options.fnInfoCallback = function(oSettings, iStart, iEnd,
+                                           iMax, iTotal, sPre) {
+          return Number(iTotal).toLocaleString() + " records";
+        };
+      }
+    }
+
+    // auto hide navigation if requested
+    // Note, this only works on client-side processing mode as on server-side,
+    // cells (data.data) is null; In addition, we require the pageLength option
+    // being provided explicitly to enable this. Despite we may be able to deduce
+    // the default value of pageLength, it may complicate things so we'd rather
+    // put this responsiblity to users and warn them on the R side.
+    if (data.autoHideNavigation === true && data.options.paging !== false) {
+      // strip all nav if length >= cells
+      if ((cells instanceof Array) && data.options.pageLength >= cells.length)
+        options.dom = bootstrapActive ? "<'row'<'col-sm-12'tr>>" : "t";
+      // alternatively lean things out for flexdashboard mobile portrait
+      else if (bootstrapActive && window.FlexDashboard && window.FlexDashboard.isMobilePhone())
+        options.dom = "<'row'<'col-sm-12'f>>" +
+                      "<'row'<'col-sm-12'tr>>"  +
+                      "<'row'<'col-sm-12'p>>";
+    }
+
+    $.extend(true, options, data.options || {});
+
+    var searchCols = options.searchCols;
+    if (searchCols) {
+      searchCols = searchCols.map(function(x) {
+        return x === null ? '' : x.search;
+      });
+      // FIXME: this means I don't respect the escapeRegex setting
+      delete options.searchCols;
+    }
+
+    // server-side processing?
+    var server = options.serverSide === true;
+
+    // use the dataSrc function to pre-process JSON data returned from R
+    var DT_rows_all = [], DT_rows_current = [];
+    if (server && HTMLWidgets.shinyMode && typeof options.ajax === 'object' &&
+        /^session\/[\da-z]+\/dataobj/.test(options.ajax.url) && !options.ajax.dataSrc) {
+      options.ajax.dataSrc = function(json) {
+        DT_rows_all = $.makeArray(json.DT_rows_all);
+        DT_rows_current = $.makeArray(json.DT_rows_current);
+        var data = json.data;
+        if (!colReorderEnabled()) return data;
+        var table = $table.DataTable(), order = table.colReorder.order(), flag = true, i, j, row;
+        for (i = 0; i < order.length; ++i) if (order[i] !== i) flag = false;
+        if (flag) return data;
+        for (i = 0; i < data.length; ++i) {
+          row = data[i].slice();
+          for (j = 0; j < order.length; ++j) data[i][j] = row[order[j]];
+        }
+        return data;
+      };
+    }
+
+    var thiz = this;
+    if (instance.fillContainer) $table.on('init.dt', function(e) {
+      thiz.fillAvailableHeight(el, $(el).innerHeight());
+    });
+    // If the page contains serveral datatables and one of which enables colReorder,
+    // the table.colReorder.order() function will exist but throws error when called.
+    // So it seems like the only way to know if colReorder is enabled or not is to
+    // check the options.
+    var colReorderEnabled = function() { return "colReorder" in options; };
+    var table = $table.DataTable(options);
+    $el.data('datatable', table);
+
+    // Unregister previous Crosstalk event subscriptions, if they exist
+    if (instance.ctfilterSubscription) {
+      instance.ctfilterHandle.off("change", instance.ctfilterSubscription);
+      instance.ctfilterSubscription = null;
+    }
+    if (instance.ctselectSubscription) {
+      instance.ctselectHandle.off("change", instance.ctselectSubscription);
+      instance.ctselectSubscription = null;
+    }
+
+    if (!crosstalkOptions.group) {
+      $table[0].ctfilter = null;
+      $table[0].ctselect = null;
+    } else {
+      var key = crosstalkOptions.key;
+      function keysToMatches(keys) {
+        if (!keys) {
+          return null;
+        } else {
+          var selectedKeys = {};
+          for (var i = 0; i < keys.length; i++) {
+            selectedKeys[keys[i]] = true;
+          }
+          var matches = {};
+          for (var j = 0; j < key.length; j++) {
+            if (selectedKeys[key[j]])
+              matches[j] = true;
+          }
+          return matches;
+        }
+      }
+
+      function applyCrosstalkFilter(e) {
+        $table[0].ctfilter = keysToMatches(e.value);
+        table.draw();
+      }
+      instance.ctfilterSubscription = instance.ctfilterHandle.on("change", applyCrosstalkFilter);
+      applyCrosstalkFilter({value: instance.ctfilterHandle.filteredKeys});
+
+      function applyCrosstalkSelection(e) {
+        if (e.sender !== instance.ctselectHandle) {
+          table
+            .rows('.' + selClass, {search: 'applied'})
+            .nodes()
+            .to$()
+            .removeClass(selClass);
+          if (selectedRows)
+            changeInput('rows_selected', selectedRows(), void 0, true);
+        }
+
+        if (e.sender !== instance.ctselectHandle && e.value && e.value.length) {
+          var matches = keysToMatches(e.value);
+
+          // persistent selection with plotly (& leaflet)
+          var ctOpts = crosstalk.var("plotlyCrosstalkOpts").get() || {};
+          if (ctOpts.persistent === true) {
+            var matches = $.extend(matches, $table[0].ctselect);
+          }
+
+          $table[0].ctselect = matches;
+          table.draw();
+        } else {
+          if ($table[0].ctselect) {
+            $table[0].ctselect = null;
+            table.draw();
+          }
+        }
+      }
+      instance.ctselectSubscription = instance.ctselectHandle.on("change", applyCrosstalkSelection);
+      // TODO: This next line doesn't seem to work when renderDataTable is used
+      applyCrosstalkSelection({value: instance.ctselectHandle.value});
+    }
+
+    var inArray = function(val, array) {
+      return $.inArray(val, $.makeArray(array)) > -1;
+    };
+
+    // search the i-th column
+    var searchColumn = function(i, value) {
+      var regex = false, ci = true;
+      if (options.search) {
+        regex = options.search.regex,
+        ci = options.search.caseInsensitive !== false;
+      }
+      return table.column(i).search(value, regex, !regex, ci);
+    };
+
+    if (data.filter !== 'none') {
+
+      filterRow.each(function(i, td) {
+
+        var $td = $(td), type = $td.data('type'), filter;
+        var $input = $td.children('div').first().children('input');
+        var disabled = $input.prop('disabled');
+        var searchable = table.settings()[0].aoColumns[i].bSearchable;
+        $input.prop('disabled', !searchable || disabled);
+        $input.data('searchable', searchable); // for updating later
+        $input.on('input blur', function() {
+          $input.next('span').toggle(Boolean($input.val()));
+        });
+        // Bootstrap sets pointer-events to none and we won't be able to click
+        // the clear button
+        $input.next('span').css('pointer-events', 'auto').hide().click(function() {
+          $(this).hide().prev('input').val('').trigger('input').focus();
+        });
+        var searchCol;  // search string for this column
+        if (searchCols && searchCols[i]) {
+          searchCol = searchCols[i];
+          $input.val(searchCol).trigger('input');
+        }
+        var $x = $td.children('div').last();
+
+        // remove the overflow: hidden attribute of the scrollHead
+        // (otherwise the scrolling table body obscures the filters)
+        // The workaround and the discussion from
+        // https://github.com/rstudio/DT/issues/554#issuecomment-518007347
+        // Otherwise the filter selection will not be anchored to the values
+        // when the columns number is many and scrollX is enabled.
+        var scrollHead = $(el).find('.dataTables_scrollHead,.dataTables_scrollFoot');
+        var cssOverflowHead = scrollHead.css('overflow');
+        var scrollBody = $(el).find('.dataTables_scrollBody');
+        var cssOverflowBody = scrollBody.css('overflow');
+        var scrollTable = $(el).find('.dataTables_scroll');
+        var cssOverflowTable = scrollTable.css('overflow');
+        if (cssOverflowHead === 'hidden') {
+          $x.on('show hide', function(e) {
+            if (e.type === 'show') {
+              scrollHead.css('overflow', 'visible');
+              scrollBody.css('overflow', 'visible');
+              scrollTable.css('overflow-x', 'scroll');
+            } else {
+              scrollHead.css('overflow', cssOverflowHead);
+              scrollBody.css('overflow', cssOverflowBody);
+              scrollTable.css('overflow-x', cssOverflowTable);
+            }
+          });
+          $x.css('z-index', 25);
+        }
+
+        if (inArray(type, ['factor', 'logical'])) {
+          $input.on({
+            click: function() {
+              $input.parent().hide(); $x.show().trigger('show'); filter[0].selectize.focus();
+            },
+            input: function() {
+              var v1 = JSON.stringify(filter[0].selectize.getValue()), v2 = $input.val();
+              if (v1 === '[]') v1 = '';
+              if (v1 !== v2) filter[0].selectize.setValue(v2 === '' ? [] : JSON.parse(v2));
+            }
+          });
+          var $input2 = $x.children('select');
+          filter = $input2.selectize({
+            options: $input2.data('options').map(function(v, i) {
+              return ({text: v, value: v});
+            }),
+            plugins: ['remove_button'],
+            hideSelected: true,
+            onChange: function(value) {
+              if (value === null) value = []; // compatibility with jQuery 3.0
+              $input.val(value.length ? JSON.stringify(value) : '');
+              if (value.length) $input.trigger('input');
+              $input.attr('title', $input.val());
+              if (server) {
+                table.column(i).search(value.length ? JSON.stringify(value) : '').draw();
+                return;
+              }
+              // turn off filter if nothing selected
+              $td.data('filter', value.length > 0);
+              table.draw();  // redraw table, and filters will be applied
+            }
+          });
+          if (searchCol) filter[0].selectize.setValue(JSON.parse(searchCol));
+          filter[0].selectize.on('blur', function() {
+            $x.hide().trigger('hide'); $input.parent().show(); $input.trigger('blur');
+          });
+          filter.next('div').css('margin-bottom', 'auto');
+        } else if (type === 'character') {
+          var fun = function() {
+            searchColumn(i, $input.val()).draw();
+          };
+          if (server) {
+            fun = $.fn.dataTable.util.throttle(fun, options.searchDelay);
+          }
+          $input.on('input', fun);
+        } else if (inArray(type, ['number', 'integer', 'date', 'time'])) {
+          var $x0 = $x;
+          $x = $x0.children('div').first();
+          $x0.css({
+            'background-color': '#fff',
+            'border': '1px #ddd solid',
+            'border-radius': '4px',
+            'padding': data.vertical ? '35px 20px': '20px 20px 10px 20px'
+          });
+          var $spans = $x0.children('span').css({
+            'margin-top': data.vertical ? '0' : '10px',
+            'white-space': 'nowrap'
+          });
+          var $span1 = $spans.first(), $span2 = $spans.last();
+          var r1 = +$x.data('min'), r2 = +$x.data('max');
+          // when the numbers are too small or have many decimal places, the
+          // slider may have numeric precision problems (#150)
+          var scale = Math.pow(10, Math.max(0, +$x.data('scale') || 0));
+          r1 = Math.round(r1 * scale); r2 = Math.round(r2 * scale);
+          var scaleBack = function(x, scale) {
+            if (scale === 1) return x;
+            var d = Math.round(Math.log(scale) / Math.log(10));
+            // to avoid problems like 3.423/100 -> 0.034230000000000003
+            return (x / scale).toFixed(d);
+          };
+          var slider_min = function() {
+            return filter.noUiSlider('options').range.min;
+          };
+          var slider_max = function() {
+            return filter.noUiSlider('options').range.max;
+          };
+          $input.on({
+            focus: function() {
+              $x0.show().trigger('show');
+              // first, make sure the slider div leaves at least 20px between
+              // the two (slider value) span's
+              $x0.width(Math.max(160, $span1.outerWidth() + $span2.outerWidth() + 20));
+              // then, if the input is really wide or slider is vertical,
+              // make the slider the same width as the input
+              if ($x0.outerWidth() < $input.outerWidth() || data.vertical) {
+                $x0.outerWidth($input.outerWidth());
+              }
+              // make sure the slider div does not reach beyond the right margin
+              if ($(window).width() < $x0.offset().left + $x0.width()) {
+                $x0.offset({
+                  'left': $input.offset().left + $input.outerWidth() - $x0.outerWidth()
+                });
+              }
+            },
+            blur: function() {
+              $x0.hide().trigger('hide');
+            },
+            input: function() {
+              if ($input.val() === '') filter.val([slider_min(), slider_max()]);
+            },
+            change: function() {
+              var v = $input.val().replace(/\s/g, '');
+              if (v === '') return;
+              v = v.split('...');
+              if (v.length !== 2) {
+                $input.parent().addClass('has-error');
+                return;
+              }
+              if (v[0] === '') v[0] = slider_min();
+              if (v[1] === '') v[1] = slider_max();
+              $input.parent().removeClass('has-error');
+              // treat date as UTC time at midnight
+              var strTime = function(x) {
+                var s = type === 'date' ? 'T00:00:00Z' : '';
+                var t = new Date(x + s).getTime();
+                // add 10 minutes to date since it does not hurt the date, and
+                // it helps avoid the tricky floating point arithmetic problems,
+                // e.g. sometimes the date may be a few milliseconds earlier
+                // than the midnight due to precision problems in noUiSlider
+                return type === 'date' ? t + 3600000 : t;
+              };
+              if (inArray(type, ['date', 'time'])) {
+                v[0] = strTime(v[0]);
+                v[1] = strTime(v[1]);
+              }
+              if (v[0] != slider_min()) v[0] *= scale;
+              if (v[1] != slider_max()) v[1] *= scale;
+              filter.val(v);
+            }
+          });
+          var formatDate = function(d, isoFmt) {
+            d = scaleBack(d, scale);
+            if (type === 'number') return d;
+            if (type === 'integer') return parseInt(d);
+            var x = new Date(+d);
+            var fmt = ('filterDateFmt' in data) ? data.filterDateFmt[i] : undefined;
+            if (fmt !== undefined && isoFmt === false) return x[fmt.method].apply(x, fmt.params);
+            if (type === 'date') {
+              var pad0 = function(x) {
+                return ('0' + x).substr(-2, 2);
+              };
+              return x.getUTCFullYear() + '-' + pad0(1 + x.getUTCMonth())
+                      + '-' + pad0(x.getUTCDate());
+            } else {
+              return x.toISOString();
+            }
+          };
+          var opts = type === 'date' ? { step: 60 * 60 * 1000 } :
+                     type === 'integer' ? { step: 1 } : {};
+
+          opts.orientation = data.vertical ? 'vertical': 'horizontal';
+          opts.direction = data.vertical ? 'rtl': 'ltr';
+
+          filter = $x.noUiSlider($.extend({
+            start: [r1, r2],
+            range: {min: r1, max: r2},
+            connect: true
+          }, opts));
+          if (scale > 1) (function() {
+            var t1 = r1, t2 = r2;
+            var val = filter.val();
+            while (val[0] > r1 || val[1] < r2) {
+              if (val[0] > r1) {
+                t1 -= val[0] - r1;
+              }
+              if (val[1] < r2) {
+                t2 += r2 - val[1];
+              }
+              filter = $x.noUiSlider($.extend({
+                start: [t1, t2],
+                range: {min: t1, max: t2},
+                connect: true
+              }, opts), true);
+              val = filter.val();
+            }
+            r1  = t1; r2 = t2;
+          })();
+          var updateSliderText = function(v1, v2) {
+            $span1.text(formatDate(v1, false)); $span2.text(formatDate(v2, false));
+          };
+          updateSliderText(r1, r2);
+          var updateSlider = function(e) {
+            var val = filter.val();
+            // turn off filter if in full range
+            $td.data('filter', val[0] > slider_min() || val[1] < slider_max());
+            var v1 = formatDate(val[0]), v2 = formatDate(val[1]), ival;
+            if ($td.data('filter')) {
+              ival = v1 + ' ... ' + v2;
+              $input.attr('title', ival).val(ival).trigger('input');
+            } else {
+              $input.attr('title', '').val('');
+            }
+            updateSliderText(val[0], val[1]);
+            if (e.type === 'slide') return;  // no searching when sliding only
+            if (server) {
+              table.column(i).search($td.data('filter') ? ival : '').draw();
+              return;
+            }
+            table.draw();
+          };
+          filter.on({
+            set: updateSlider,
+            slide: updateSlider
+          });
+        }
+
+        // server-side processing will be handled by R (or whatever server
+        // language you use); the following code is only needed for client-side
+        // processing
+        if (server) {
+          // if a search string has been pre-set, search now
+          if (searchCol) searchColumn(i, searchCol).draw();
+          return;
+        }
+
+        var customFilter = function(settings, data, dataIndex) {
+          // there is no way to attach a search function to a specific table,
+          // and we need to make sure a global search function is not applied to
+          // all tables (i.e. a range filter in a previous table should not be
+          // applied to the current table); we use the settings object to
+          // determine if we want to perform searching on the current table,
+          // since settings.sTableId will be different to different tables
+          if (table.settings()[0] !== settings) return true;
+          // no filter on this column or no need to filter this column
+          if (typeof filter === 'undefined' || !$td.data('filter')) return true;
+
+          var r = filter.val(), v, r0, r1;
+          var i_data = function(i) {
+            if (!colReorderEnabled()) return i;
+            var order = table.colReorder.order(), k;
+            for (k = 0; k < order.length; ++k) if (order[k] === i) return k;
+            return i; // in theory it will never be here...
+          }
+          v = data[i_data(i)];
+          if (type === 'number' || type === 'integer') {
+            v = parseFloat(v);
+            // how to handle NaN? currently exclude these rows
+            if (isNaN(v)) return(false);
+            r0 = parseFloat(scaleBack(r[0], scale))
+            r1 = parseFloat(scaleBack(r[1], scale));
+            if (v >= r0 && v <= r1) return true;
+          } else if (type === 'date' || type === 'time') {
+            v = new Date(v);
+            r0 = new Date(r[0] / scale); r1 = new Date(r[1] / scale);
+            if (v >= r0 && v <= r1) return true;
+          } else if (type === 'factor') {
+            if (r.length === 0 || inArray(v, r)) return true;
+          } else if (type === 'logical') {
+            if (r.length === 0) return true;
+            if (inArray(v === '' ? 'na' : v, r)) return true;
+          }
+          return false;
+        };
+
+        $.fn.dataTable.ext.search.push(customFilter);
+
+        // search for the preset search strings if it is non-empty
+        if (searchCol) {
+          if (inArray(type, ['factor', 'logical'])) {
+            filter[0].selectize.setValue(JSON.parse(searchCol));
+          } else if (type === 'character') {
+            $input.trigger('input');
+          } else if (inArray(type, ['number', 'integer', 'date', 'time'])) {
+            $input.trigger('change');
+          }
+        }
+
+      });
+
+    }
+
+    // highlight search keywords
+    var highlight = function() {
+      var body = $(table.table().body());
+      // removing the old highlighting first
+      body.unhighlight();
+
+      // don't highlight the "not found" row, so we get the rows using the api
+      if (table.rows({ filter: 'applied' }).data().length === 0) return;
+      // highlight global search keywords
+      body.highlight($.trim(table.search()).split(/\s+/));
+      // then highlight keywords from individual column filters
+      if (filterRow) filterRow.each(function(i, td) {
+        var $td = $(td), type = $td.data('type');
+        if (type !== 'character') return;
+        var $input = $td.children('div').first().children('input');
+        var column = table.column(i).nodes().to$(),
+            val = $.trim($input.val());
+        if (type !== 'character' || val === '') return;
+        column.highlight(val.split(/\s+/));
+      });
+    };
+
+    if (options.searchHighlight) {
+      table
+      .on('draw.dt.dth column-visibility.dt.dth column-reorder.dt.dth', highlight)
+      .on('destroy', function() {
+        // remove event handler
+        table.off('draw.dt.dth column-visibility.dt.dth column-reorder.dt.dth');
+      });
+
+      // Set the option for escaping regex characters in our search string.  This will be used
+      // for all future matching.
+      jQuery.fn.highlight.options.escapeRegex = (!options.search || !options.search.regex);
+
+      // initial highlight for state saved conditions and initial states
+      highlight();
+    }
+
+    // run the callback function on the table instance
+    if (typeof data.callback === 'function') data.callback(table);
+
+    // double click to edit the cell, row, column, or all cells
+    if (data.editable) table.on('dblclick.dt', 'tbody td', function(e) {
+      // only bring up the editor when the cell itself is dbclicked, and ignore
+      // other dbclick events bubbled up (e.g. from the <input>)
+      if (e.target !== this) return;
+      var target = [], immediate = false;
+      switch (data.editable.target) {
+        case 'cell':
+          target = [this];
+          immediate = true;  // edit will take effect immediately
+          break;
+        case 'row':
+          target = table.cells(table.cell(this).index().row, '*').nodes();
+          break;
+        case 'column':
+          target = table.cells('*', table.cell(this).index().column).nodes();
+          break;
+        case 'all':
+          target = table.cells().nodes();
+          break;
+        default:
+          throw 'The editable parameter must be "cell", "row", "column", or "all"';
+      }
+      var disableCols = data.editable.disable ? data.editable.disable.columns : null;
+      var numericCols = data.editable.numeric;
+      var areaCols = data.editable.area;
+      var dateCols = data.editable.date;
+      for (var i = 0; i < target.length; i++) {
+        (function(cell, current) {
+          var $cell = $(cell), html = $cell.html();
+          var _cell = table.cell(cell), value = _cell.data(), index = _cell.index().column;
+          var $input;
+          if (inArray(index, numericCols)) {
+            $input = $('<input type="number">');
+          } else if (inArray(index, areaCols)) {
+            $input = $('<textarea></textarea>');
+          } else if (inArray(index, dateCols)) {
+            $input = $('<input type="date">');
+          } else {
+            $input = $('<input type="text">');
+          }
+          if (!immediate) {
+            $cell.data('input', $input).data('html', html);
+            $input.attr('title', 'Hit Ctrl+Enter to finish editing, or Esc to cancel');
+          }
+          $input.val(value);
+          if (inArray(index, disableCols)) {
+            $input.attr('readonly', '').css('filter', 'invert(25%)');
+          }
+          $cell.empty().append($input);
+          if (cell === current) $input.focus();
+          $input.css('width', '100%');
+
+          if (immediate) $input.on('blur', function(e) {
+            var valueNew = $input.val();
+            if (valueNew !== value) {
+              _cell.data(valueNew);
+              if (HTMLWidgets.shinyMode) {
+                changeInput('cell_edit', [cellInfo(cell)], 'DT.cellInfo', null, {priority: 'event'});
+              }
+              // for server-side processing, users have to call replaceData() to update the table
+              if (!server) table.draw(false);
+            } else {
+              $cell.html(html);
+            }
+          }).on('keyup', function(e) {
+            // hit Escape to cancel editing
+            if (e.keyCode === 27) $input.trigger('blur');
+          });
+
+          // bulk edit (row, column, or all)
+          if (!immediate) $input.on('keyup', function(e) {
+            var removeInput = function($cell, restore) {
+              $cell.data('input').remove();
+              if (restore) $cell.html($cell.data('html'));
+            }
+            if (e.keyCode === 27) {
+              for (var i = 0; i < target.length; i++) {
+                removeInput($(target[i]), true);
+              }
+            } else if (e.keyCode === 13 && e.ctrlKey) {
+              // Ctrl + Enter
+              var cell, $cell, _cell, cellData = [];
+              for (var i = 0; i < target.length; i++) {
+                cell = target[i]; $cell = $(cell); _cell = table.cell(cell);
+                _cell.data($cell.data('input').val());
+                HTMLWidgets.shinyMode && cellData.push(cellInfo(cell));
+                removeInput($cell, false);
+              }
+              if (HTMLWidgets.shinyMode) {
+                changeInput('cell_edit', cellData, 'DT.cellInfo', null, {priority: "event"});
+              }
+              if (!server) table.draw(false);
+            }
+          });
+        })(target[i], this);
+      }
+    });
+
+    // interaction with shiny
+    if (!HTMLWidgets.shinyMode && !crosstalkOptions.group) return;
+
+    var methods = {};
+    var shinyData = {};
+
+    methods.updateCaption = function(caption) {
+      if (!caption) return;
+      $table.children('caption').replaceWith(caption);
+    }
+
+    // register clear functions to remove input values when the table is removed
+    instance.clearInputs = {};
+
+    var changeInput = function(id, value, type, noCrosstalk, opts) {
+      var event = id;
+      id = el.id + '_' + id;
+      if (type) id = id + ':' + type;
+      // do not update if the new value is the same as old value
+      if (event !== 'cell_edit' && !/_clicked$/.test(event) && shinyData.hasOwnProperty(id) && shinyData[id] === JSON.stringify(value))
+        return;
+      shinyData[id] = JSON.stringify(value);
+      if (HTMLWidgets.shinyMode && Shiny.setInputValue) {
+        Shiny.setInputValue(id, value, opts);
+        if (!instance.clearInputs[id]) instance.clearInputs[id] = function() {
+          Shiny.setInputValue(id, null);
+        }
+      }
+
+      // HACK
+      if (event === "rows_selected" && !noCrosstalk) {
+        if (crosstalkOptions.group) {
+          var keys = crosstalkOptions.key;
+          var selectedKeys = null;
+          if (value) {
+            selectedKeys = [];
+            for (var i = 0; i < value.length; i++) {
+              // The value array's contents use 1-based row numbers, so we must
+              // convert to 0-based before indexing into the keys array.
+              selectedKeys.push(keys[value[i] - 1]);
+            }
+          }
+          instance.ctselectHandle.set(selectedKeys);
+        }
+      }
+    };
+
+    var addOne = function(x) {
+      return x.map(function(i) { return 1 + i; });
+    };
+
+    var unique = function(x) {
+      var ux = [];
+      $.each(x, function(i, el){
+        if ($.inArray(el, ux) === -1) ux.push(el);
+      });
+      return ux;
+    }
+
+    // change the row index of a cell
+    var tweakCellIndex = function(cell) {
+      var info = cell.index();
+      // some cell may not be valid. e.g, #759
+      // when using the RowGroup extension, datatables will
+      // generate the row label and the cells are not part of
+      // the data thus contain no row/col info
+      if (info === undefined)
+        return {row: null, col: null};
+      if (server) {
+        info.row = DT_rows_current[info.row];
+      } else {
+        info.row += 1;
+      }
+      return {row: info.row, col: info.column};
+    }
+
+    var cleanSelectedValues = function() {
+      changeInput('rows_selected', []);
+      changeInput('columns_selected', []);
+      changeInput('cells_selected', transposeArray2D([]), 'shiny.matrix');
+    }
+    // #828 we should clean the selection on the server-side when the table reloads
+    cleanSelectedValues();
+
+    // a flag to indicates if select extension is initialized or not
+    var flagSelectExt = table.settings()[0]._select !== undefined;
+    // the Select extension should only be used in the client mode and
+    // when the selection.mode is set to none
+    if (data.selection.mode === 'none' && !server && flagSelectExt) {
+      var updateRowsSelected = function() {
+        var rows = table.rows({selected: true});
+        var selected = [];
+        $.each(rows.indexes().toArray(), function(i, v) {
+          selected.push(v + 1);
+        });
+        changeInput('rows_selected', selected);
+      }
+      var updateColsSelected = function() {
+        var columns = table.columns({selected: true});
+        changeInput('columns_selected', columns.indexes().toArray());
+      }
+      var updateCellsSelected = function() {
+        var cells = table.cells({selected: true});
+        var selected = [];
+        cells.every(function() {
+          var row = this.index().row;
+          var col = this.index().column;
+          selected = selected.concat([[row + 1, col]]);
+        });
+        changeInput('cells_selected', transposeArray2D(selected), 'shiny.matrix');
+      }
+      table.on('select deselect', function(e, dt, type, indexes) {
+        updateRowsSelected();
+        updateColsSelected();
+        updateCellsSelected();
+      })
+    }
+
+    var selMode = data.selection.mode, selTarget = data.selection.target;
+    var selDisable = data.selection.selectable === false;
+    if (inArray(selMode, ['single', 'multiple'])) {
+      var selClass = inArray(data.style, ['bootstrap', 'bootstrap4']) ? 'active' : 'selected';
+      // selected1: row indices; selected2: column indices
+      var initSel = function(x) {
+        if (x === null || typeof x === 'boolean' || selTarget === 'cell') {
+          return {rows: [], cols: []};
+        } else if (selTarget === 'row') {
+          return {rows: $.makeArray(x), cols: []};
+        } else if (selTarget === 'column') {
+          return {rows: [], cols: $.makeArray(x)};
+        } else if (selTarget === 'row+column') {
+          return {rows: $.makeArray(x.rows), cols: $.makeArray(x.cols)};
+        }
+      }
+      var selected = data.selection.selected;
+      var selected1 = initSel(selected).rows, selected2 = initSel(selected).cols;
+      // selectable should contain either all positive or all non-positive values, not both
+      // positive values indicate "selectable" while non-positive values means "nonselectable"
+      // the assertion is performed on R side. (only column indicides could be zero which indicates
+      // the row name)
+      var selectable = data.selection.selectable;
+      var selectable1 = initSel(selectable).rows, selectable2 = initSel(selectable).cols;
+
+      // After users reorder the rows or filter the table, we cannot use the table index
+      // directly. Instead, we need this function to find out the rows between the two clicks.
+      // If user filter the table again between the start click and the end click, the behavior
+      // would be undefined, but it should not be a problem.
+      var shiftSelRowsIndex = function(start, end) {
+        var indexes = server ? DT_rows_all : table.rows({ search: 'applied' }).indexes().toArray();
+        start = indexes.indexOf(start); end = indexes.indexOf(end);
+        // if start is larger than end, we need to swap
+        if (start > end) {
+          var tmp = end; end = start; start = tmp;
+        }
+        return indexes.slice(start, end + 1);
+      }
+
+      var serverRowIndex = function(clientRowIndex) {
+        return server ? DT_rows_current[clientRowIndex] : clientRowIndex + 1;
+      }
+
+      // row, column, or cell selection
+      var lastClickedRow;
+      if (inArray(selTarget, ['row', 'row+column'])) {
+        // Get the current selected rows. It will also
+        // update the selected1's value based on the current row selection state
+        // Note we can't put this function inside selectRows() directly,
+        // the reason is method.selectRows() will override selected1's value but this
+        // function will add rows to selected1 (keep the existing selection), which is
+        // inconsistent with column and cell selection.
+        var selectedRows = function() {
+          var rows = table.rows('.' + selClass);
+          var idx = rows.indexes().toArray();
+          if (!server) {
+            selected1 = addOne(idx);
+            return selected1;
+          }
+          idx = idx.map(function(i) {
+            return DT_rows_current[i];
+          });
+          selected1 = selMode === 'multiple' ? unique(selected1.concat(idx)) : idx;
+          return selected1;
+        }
+        // Change selected1's value based on selectable1, then refresh the row state
+        var onlyKeepSelectableRows = function() {
+          if (selDisable) { // users can't select; useful when only want backend select
+            selected1 = [];
+            return;
+          }
+          if (selectable1.length === 0) return;
+          var nonselectable = selectable1[0] <= 0;
+          if (nonselectable) {
+            // should make selectable1 positive
+            selected1 = $(selected1).not(selectable1.map(function(i) { return -i; })).get();
+          } else {
+            selected1 = $(selected1).filter(selectable1).get();
+          }
+        }
+        // Change selected1's value based on selectable1, then
+        // refresh the row selection state according to values in selected1
+        var selectRows = function(ignoreSelectable) {
+          if (!ignoreSelectable) onlyKeepSelectableRows();
+          table.$('tr.' + selClass).removeClass(selClass);
+          if (selected1.length === 0) return;
+          if (server) {
+            table.rows({page: 'current'}).every(function() {
+              if (inArray(DT_rows_current[this.index()], selected1)) {
+                $(this.node()).addClass(selClass);
+              }
+            });
+          } else {
+            var selected0 = selected1.map(function(i) { return i - 1; });
+            $(table.rows(selected0).nodes()).addClass(selClass);
+          }
+        }
+        table.on('mousedown.dt', 'tbody tr', function(e) {
+          var $this = $(this), thisRow = table.row(this);
+          if (selMode === 'multiple') {
+            if (e.shiftKey && lastClickedRow !== undefined) {
+              // select or de-select depends on the last clicked row's status
+              var flagSel = !$this.hasClass(selClass);
+              var crtClickedRow = serverRowIndex(thisRow.index());
+              if (server) {
+                var rowsIndex = shiftSelRowsIndex(lastClickedRow, crtClickedRow);
+                // update current page's selClass
+                rowsIndex.map(function(i) {
+                  var rowIndex = DT_rows_current.indexOf(i);
+                  if (rowIndex >= 0) {
+                    var row = table.row(rowIndex).nodes().to$();
+                    var flagRowSel = !row.hasClass(selClass);
+                    if (flagSel === flagRowSel) row.toggleClass(selClass);
+                  }
+                });
+                // update selected1
+                if (flagSel) {
+                  selected1 = unique(selected1.concat(rowsIndex));
+                } else {
+                  selected1 = selected1.filter(function(index) {
+                    return !inArray(index, rowsIndex);
+                  });
+                }
+              } else {
+                // js starts from 0
+                shiftSelRowsIndex(lastClickedRow - 1, crtClickedRow - 1).map(function(value) {
+                  var row = table.row(value).nodes().to$();
+                  var flagRowSel = !row.hasClass(selClass);
+                  if (flagSel === flagRowSel) row.toggleClass(selClass);
+                });
+              }
+              e.preventDefault();
+            } else {
+              $this.toggleClass(selClass);
+            }
+          } else {
+            if ($this.hasClass(selClass)) {
+              $this.removeClass(selClass);
+            } else {
+              table.$('tr.' + selClass).removeClass(selClass);
+              $this.addClass(selClass);
+            }
+          }
+          if (server && !$this.hasClass(selClass)) {
+            var id = DT_rows_current[thisRow.index()];
+            // remove id from selected1 since its class .selected has been removed
+            if (inArray(id, selected1)) selected1.splice($.inArray(id, selected1), 1);
+          }
+          selectedRows(); // update selected1's value based on selClass
+          selectRows(false); // only keep the selectable rows
+          changeInput('rows_selected', selected1);
+          changeInput('row_last_clicked', serverRowIndex(thisRow.index()), null, null, {priority: 'event'});
+          lastClickedRow = serverRowIndex(thisRow.index());
+        });
+        selectRows(false);  // in case users have specified pre-selected rows
+        // restore selected rows after the table is redrawn (e.g. sort/search/page);
+        // client-side tables will preserve the selections automatically; for
+        // server-side tables, we have to *real* row indices are in `selected1`
+        changeInput('rows_selected', selected1);
+        if (server) table.on('draw.dt', function(e) { selectRows(false); });
+        methods.selectRows = function(selected, ignoreSelectable) {
+          selected1 = $.makeArray(selected);
+          selectRows(ignoreSelectable);
+          changeInput('rows_selected', selected1);
+        }
+      }
+
+      if (inArray(selTarget, ['column', 'row+column'])) {
+        if (selTarget === 'row+column') {
+          $(table.columns().footer()).css('cursor', 'pointer');
+        }
+        // update selected2's value based on selectable2
+        var onlyKeepSelectableCols = function() {
+          if (selDisable) { // users can't select; useful when only want backend select
+            selected2 = [];
+            return;
+          }
+          if (selectable2.length === 0) return;
+          var nonselectable = selectable2[0] <= 0;
+          if (nonselectable) {
+            // need to make selectable2 positive
+            selected2 = $(selected2).not(selectable2.map(function(i) { return -i; })).get();
+          } else {
+            selected2 = $(selected2).filter(selectable2).get();
+          }
+        }
+        // update selected2 and then
+        // refresh the col selection state according to values in selected2
+        var selectCols = function(ignoreSelectable) {
+          if (!ignoreSelectable) onlyKeepSelectableCols();
+          // if selected2 is not a valide index (e.g., larger than the column number)
+          // table.columns(selected2) will fail and result in a blank table
+          // this is different from the table.rows(), where the out-of-range indexes
+          // doesn't affect at all
+          selected2 = $(selected2).filter(table.columns().indexes()).get();
+          table.columns().nodes().flatten().to$().removeClass(selClass);
+          if (selected2.length > 0)
+            table.columns(selected2).nodes().flatten().to$().addClass(selClass);
+        }
+        var callback = function() {
+          var colIdx = selTarget === 'column' ? table.cell(this).index().column :
+              $.inArray(this, table.columns().footer()),
+              thisCol = $(table.column(colIdx).nodes());
+          if (colIdx === -1) return;
+          if (thisCol.hasClass(selClass)) {
+            thisCol.removeClass(selClass);
+            selected2.splice($.inArray(colIdx, selected2), 1);
+          } else {
+            if (selMode === 'single') $(table.cells().nodes()).removeClass(selClass);
+            thisCol.addClass(selClass);
+            selected2 = selMode === 'single' ? [colIdx] : unique(selected2.concat([colIdx]));
+          }
+          selectCols(false); // update selected2 based on selectable
+          changeInput('columns_selected', selected2);
+        }
+        if (selTarget === 'column') {
+          $(table.table().body()).on('click.dt', 'td', callback);
+        } else {
+          $(table.table().footer()).on('click.dt', 'tr th', callback);
+        }
+        selectCols(false);  // in case users have specified pre-selected columns
+        changeInput('columns_selected', selected2);
+        if (server) table.on('draw.dt', function(e) { selectCols(false); });
+        methods.selectColumns = function(selected, ignoreSelectable) {
+          selected2 = $.makeArray(selected);
+          selectCols(ignoreSelectable);
+          changeInput('columns_selected', selected2);
+        }
+      }
+
+      if (selTarget === 'cell') {
+        var selected3 = [], selectable3 = [];
+        if (selected !== null) selected3 = selected;
+        if (selectable !== null && typeof selectable !== 'boolean') selectable3 = selectable;
+        var findIndex = function(ij, sel) {
+          for (var i = 0; i < sel.length; i++) {
+            if (ij[0] === sel[i][0] && ij[1] === sel[i][1]) return i;
+          }
+          return -1;
+        }
+         // Change selected3's value based on selectable3, then refresh the cell state
+        var onlyKeepSelectableCells = function() {
+          if (selDisable) { // users can't select; useful when only want backend select
+            selected3 = [];
+            return;
+          }
+          if (selectable3.length === 0) return;
+          var nonselectable = selectable3[0][0] <= 0;
+          var out = [];
+          if (nonselectable) {
+            selected3.map(function(ij) {
+              // should make selectable3 positive
+              if (findIndex([-ij[0], -ij[1]], selectable3) === -1) { out.push(ij); }
+            });
+          } else {
+            selected3.map(function(ij) {
+              if (findIndex(ij, selectable3) > -1) { out.push(ij); }
+            });
+          }
+          selected3 = out;
+        }
+        // Change selected3's value based on selectable3, then
+        // refresh the cell selection state according to values in selected3
+        var selectCells = function(ignoreSelectable) {
+          if (!ignoreSelectable) onlyKeepSelectableCells();
+          table.$('td.' + selClass).removeClass(selClass);
+          if (selected3.length === 0) return;
+          if (server) {
+            table.cells({page: 'current'}).every(function() {
+              var info = tweakCellIndex(this);
+              if (findIndex([info.row, info.col], selected3) > -1)
+                $(this.node()).addClass(selClass);
+            });
+          } else {
+            selected3.map(function(ij) {
+              $(table.cell(ij[0] - 1, ij[1]).node()).addClass(selClass);
+            });
+          }
+        };
+        table.on('click.dt', 'tbody td', function() {
+          var $this = $(this), info = tweakCellIndex(table.cell(this));
+          if ($this.hasClass(selClass)) {
+            $this.removeClass(selClass);
+            selected3.splice(findIndex([info.row, info.col], selected3), 1);
+          } else {
+            if (selMode === 'single') $(table.cells().nodes()).removeClass(selClass);
+            $this.addClass(selClass);
+            selected3 = selMode === 'single' ? [[info.row, info.col]] :
+              unique(selected3.concat([[info.row, info.col]]));
+          }
+          selectCells(false); // must call this to update selected3 based on selectable3
+          changeInput('cells_selected', transposeArray2D(selected3), 'shiny.matrix');
+        });
+        selectCells(false);  // in case users have specified pre-selected columns
+        changeInput('cells_selected', transposeArray2D(selected3), 'shiny.matrix');
+
+        if (server) table.on('draw.dt', function(e) { selectCells(false); });
+        methods.selectCells = function(selected, ignoreSelectable) {
+          selected3 = selected ? selected : [];
+          selectCells(ignoreSelectable);
+          changeInput('cells_selected', transposeArray2D(selected3), 'shiny.matrix');
+        }
+      }
+    }
+
+    // expose some table info to Shiny
+    var updateTableInfo = function(e, settings) {
+      // TODO: is anyone interested in the page info?
+      // changeInput('page_info', table.page.info());
+      var updateRowInfo = function(id, modifier) {
+        var idx;
+        if (server) {
+          idx = modifier.page === 'current' ? DT_rows_current : DT_rows_all;
+        } else {
+          var rows = table.rows($.extend({
+            search: 'applied',
+            page: 'all'
+          }, modifier));
+          idx = addOne(rows.indexes().toArray());
+        }
+        changeInput('rows' + '_' + id, idx);
+      };
+      updateRowInfo('current', {page: 'current'});
+      updateRowInfo('all', {});
+    }
+    table.on('draw.dt', updateTableInfo);
+    updateTableInfo();
+
+    // state info
+    table.on('draw.dt column-visibility.dt', function() {
+      changeInput('state', table.state());
+    });
+    changeInput('state', table.state());
+
+    // search info
+    var updateSearchInfo = function() {
+      changeInput('search', table.search());
+      if (filterRow) changeInput('search_columns', filterRow.toArray().map(function(td) {
+        return $(td).find('input').first().val();
+      }));
+    }
+    table.on('draw.dt', updateSearchInfo);
+    updateSearchInfo();
+
+    var cellInfo = function(thiz) {
+      var info = tweakCellIndex(table.cell(thiz));
+      info.value = table.cell(thiz).data();
+      return info;
+    }
+    // the current cell clicked on
+    table.on('click.dt', 'tbody td', function() {
+      changeInput('cell_clicked', cellInfo(this), null, null, {priority: 'event'});
+    })
+    changeInput('cell_clicked', {});
+
+    // do not trigger table selection when clicking on links unless they have classes
+    table.on('click.dt', 'tbody td a', function(e) {
+      if (this.className === '') e.stopPropagation();
+    });
+
+    methods.addRow = function(data, rowname, resetPaging) {
+      var n = table.columns().indexes().length, d = n - data.length;
+      if (d === 1) {
+        data = rowname.concat(data)
+      } else if (d !== 0) {
+        console.log(data);
+        console.log(table.columns().indexes());
+        throw 'New data must be of the same length as current data (' + n + ')';
+      };
+      table.row.add(data).draw(resetPaging);
+    }
+
+    methods.updateSearch = function(keywords) {
+      if (keywords.global !== null)
+        $(table.table().container()).find('input[type=search]').first()
+             .val(keywords.global).trigger('input');
+      var columns = keywords.columns;
+      if (!filterRow || columns === null) return;
+      filterRow.toArray().map(function(td, i) {
+        var v = typeof columns === 'string' ? columns : columns[i];
+        if (typeof v === 'undefined') {
+          console.log('The search keyword for column ' + i + ' is undefined')
+          return;
+        }
+        $(td).find('input').first().val(v).trigger('input');
+        searchColumn(i, v);
+      });
+      table.draw();
+    }
+
+    methods.hideCols = function(hide, reset) {
+      if (reset) table.columns().visible(true, false);
+      table.columns(hide).visible(false);
+    }
+
+    methods.showCols = function(show, reset) {
+      if (reset) table.columns().visible(false, false);
+      table.columns(show).visible(true);
+    }
+
+    methods.colReorder = function(order, origOrder) {
+      table.colReorder.order(order, origOrder);
+    }
+
+    methods.selectPage = function(page) {
+      if (table.page.info().pages < page || page < 1) {
+        throw 'Selected page is out of range';
+      };
+      table.page(page - 1).draw(false);
+    }
+
+    methods.reloadData = function(resetPaging, clearSelection) {
+      // empty selections first if necessary
+      if (methods.selectRows && inArray('row', clearSelection)) methods.selectRows([]);
+      if (methods.selectColumns && inArray('column', clearSelection)) methods.selectColumns([]);
+      if (methods.selectCells && inArray('cell', clearSelection)) methods.selectCells([]);
+      table.ajax.reload(null, resetPaging);
+    }
+
+    // update table filters (set new limits of sliders)
+    methods.updateFilters = function(newProps) {
+      // loop through each filter in the filter row
+      filterRow.each(function(i, td) {
+        var k = i;
+        if (filterRow.length > newProps.length) {
+          if (i === 0) return;  // first column is row names
+          k = i - 1;
+        }
+        // Update the filters to reflect the updated data.
+        // Allow "falsy" (e.g. NULL) to signify a no-op.
+        if (newProps[k]) {
+          setFilterProps(td, newProps[k]);
+        }
+      });
+    };
+
+    table.shinyMethods = methods;
+  },
+  resize: function(el, width, height, instance) {
+    if (instance.data) this.renderValue(el, instance.data, instance);
+
+    // dynamically adjust height if fillContainer = TRUE
+    if (instance.fillContainer)
+      this.fillAvailableHeight(el, height);
+
+    this.adjustWidth(el);
+  },
+
+  // dynamically set the scroll body to fill available height
+  // (used with fillContainer = TRUE)
+  fillAvailableHeight: function(el, availableHeight) {
+
+    // see how much of the table is occupied by header/footer elements
+    // and use that to compute a target scroll body height
+    var dtWrapper = $(el).find('div.dataTables_wrapper');
+    var dtScrollBody = $(el).find($('div.dataTables_scrollBody'));
+    var framingHeight = dtWrapper.innerHeight() - dtScrollBody.innerHeight();
+    var scrollBodyHeight = availableHeight - framingHeight;
+
+    // we need to set `max-height` to none as datatables library now sets this
+    // to a fixed height, disabling the ability to resize to fill the window,
+    // as it will be set to a fixed 100px under such circumstances, e.g., RStudio IDE,
+    // or FlexDashboard
+    // see https://github.com/rstudio/DT/issues/951#issuecomment-1026464509
+    dtScrollBody.css('max-height', 'none');
+    // set the height
+    dtScrollBody.height(scrollBodyHeight + 'px');
+  },
+
+  // adjust the width of columns; remove the hard-coded widths on table and the
+  // scroll header when scrollX/Y are enabled
+  adjustWidth: function(el) {
+    var $el = $(el), table = $el.data('datatable');
+    if (table) table.columns.adjust();
+    $el.find('.dataTables_scrollHeadInner').css('width', '')
+        .children('table').css('margin-left', '');
+  }
+});
+
+  if (!HTMLWidgets.shinyMode) return;
+
+  Shiny.addCustomMessageHandler('datatable-calls', function(data) {
+    var id = data.id;
+    var el = document.getElementById(id);
+    var table = el ? $(el).data('datatable') : null;
+    if (!table) {
+      console.log("Couldn't find table with id " + id);
+      return;
+    }
+
+    var methods = table.shinyMethods, call = data.call;
+    if (methods[call.method]) {
+      methods[call.method].apply(table, call.args);
+    } else {
+      console.log("Unknown method " + call.method);
+    }
+  });
+
+})();
diff --git a/articles/wasserportal.html b/articles/wasserportal.html
index 9bfe39e1..b6a98189 100644
--- a/articles/wasserportal.html
+++ b/articles/wasserportal.html
@@ -74,7 +74,7 @@
 
 
 <script src="wasserportal_files/htmlwidgets-1.6.2/htmlwidgets.js"></script><link href="wasserportal_files/datatables-css-0.0.0/datatables-crosstalk.css" rel="stylesheet">
-<script src="wasserportal_files/datatables-binding-0.29/datatables.js"></script><link href="wasserportal_files/dt-core-1.13.4/css/jquery.dataTables.min.css" rel="stylesheet">
+<script src="wasserportal_files/datatables-binding-0.30/datatables.js"></script><link href="wasserportal_files/dt-core-1.13.4/css/jquery.dataTables.min.css" rel="stylesheet">
 <link href="wasserportal_files/dt-core-1.13.4/css/jquery.dataTables.extra.css" rel="stylesheet">
 <script src="wasserportal_files/dt-core-1.13.4/js/jquery.dataTables.min.js"></script><link href="wasserportal_files/crosstalk-1.2.0/css/crosstalk.min.css" rel="stylesheet">
 <script src="wasserportal_files/crosstalk-1.2.0/js/crosstalk.min.js"></script><div class="row">
@@ -236,7 +236,7 @@ <h2 id="initialise-objects">Initialise objects<a class="anchor" aria-label="anch
 <span></span>
 <span><span class="co"># Get information on "Wasserportal"-stations </span></span>
 <span><span class="va">stations</span> <span class="op">&lt;-</span> <span class="fu">wasserportal</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/wasserportal/man/get_stations.html" class="external-link">get_stations</a></span><span class="op">(</span><span class="op">)</span></span>
-<span><span class="co">#&gt; Importing 9 station overviews from Wasserportal Berlin ... ok. (12.37 secs)</span></span></code></pre></div>
+<span><span class="co">#&gt; Importing 9 station overviews from Wasserportal Berlin ... ok. (20.05 secs)</span></span></code></pre></div>
 </div>
 <div class="section level2">
 <h2 id="download-and-process-surface-water-level-data">Download and Process Surface Water Level Data<a class="anchor" aria-label="anchor" href="#download-and-process-surface-water-level-data"></a>
@@ -303,24 +303,24 @@ <h2 id="download-and-process-surface-water-level-data">Download and Process Surf
 <span>  </span>
 <span>  <span class="fu">write_csv</span><span class="op">(</span><span class="va">swl_data_stats_export</span>, <span class="st">"swl_data_stats.csv"</span><span class="op">)</span></span>
 <span><span class="op">}</span><span class="op">)</span></span>
-<span><span class="co">#&gt; Importing 62 station metadata from Wasserportal Berlin ... ok. (1.13 mins) </span></span>
-<span><span class="co">#&gt; Writing swl_master to swl_master.csv ... ok. (0.16 secs) </span></span>
-<span><span class="co">#&gt; Reading 'NA' for station 5827103 (station_5827103) ... ok. (1.04 secs)</span></span>
+<span><span class="co">#&gt; Importing 62 station metadata from Wasserportal Berlin ... ok. (1.40 mins) </span></span>
+<span><span class="co">#&gt; Writing swl_master to swl_master.csv ... ok. (0.15 secs) </span></span>
+<span><span class="co">#&gt; Reading 'NA' for station 5827103 (station_5827103) ... ok. (1.25 secs)</span></span>
 <span><span class="co">#&gt; Warning in warning_not_implemented("merge_raw_results_daily()"):</span></span>
 <span><span class="co">#&gt; merge_raw_results_daily() is not yet implemented. Returning raw data</span></span>
-<span><span class="co">#&gt; Reading 'NA' for station 5827101 (station_5827101) ... ok. (1.02 secs)</span></span>
+<span><span class="co">#&gt; Reading 'NA' for station 5827101 (station_5827101) ... ok. (0.93 secs)</span></span>
 <span><span class="co">#&gt; Warning in warning_not_implemented("merge_raw_results_daily()"):</span></span>
 <span><span class="co">#&gt; merge_raw_results_daily() is not yet implemented. Returning raw data</span></span>
-<span><span class="co">#&gt; Reading 'NA' for station 5826702 (station_5826702) ... ok. (0.81 secs)</span></span>
+<span><span class="co">#&gt; Reading 'NA' for station 5826702 (station_5826702) ... ok. (0.89 secs)</span></span>
 <span><span class="co">#&gt; Warning in warning_not_implemented("merge_raw_results_daily()"):</span></span>
 <span><span class="co">#&gt; merge_raw_results_daily() is not yet implemented. Returning raw data</span></span>
-<span><span class="co">#&gt; Reading 'NA' for station 5826701 (station_5826701) ... ok. (0.77 secs)</span></span>
+<span><span class="co">#&gt; Reading 'NA' for station 5826701 (station_5826701) ... ok. (0.85 secs)</span></span>
 <span><span class="co">#&gt; Warning in warning_not_implemented("merge_raw_results_daily()"):</span></span>
 <span><span class="co">#&gt; merge_raw_results_daily() is not yet implemented. Returning raw data</span></span>
-<span><span class="co">#&gt; Reading 'NA' for station 5862811 (station_5862811) ... ok. (0.66 secs)</span></span>
+<span><span class="co">#&gt; Reading 'NA' for station 5862811 (station_5862811) ... ok. (0.77 secs)</span></span>
 <span><span class="co">#&gt; Warning in warning_not_implemented("merge_raw_results_daily()"):</span></span>
 <span><span class="co">#&gt; merge_raw_results_daily() is not yet implemented. Returning raw data</span></span>
-<span><span class="co">#&gt; Writing swl_data to swl_data.csv ... ok. (0.20 secs) </span></span>
+<span><span class="co">#&gt; Writing swl_data to swl_data.csv ... ok. (0.21 secs) </span></span>
 <span><span class="co">#&gt; Writing swl_data_stats_export to swl_data_stats.csv ... ok. (0.01 secs)</span></span></code></pre></div>
 </div>
 <div class="section level2">
@@ -367,8 +367,8 @@ <h2 id="download-and-process-groundwater-level-data">Download and Process Ground
 <span>    <span class="fu">add_interval_label</span><span class="op">(</span><span class="op">)</span></span>
 <span>  </span>
 <span><span class="op">}</span><span class="op">)</span></span>
-<span><span class="co">#&gt; Writing gwl_master to gwl_master.csv ... ok. (0.01 secs) </span></span>
-<span><span class="co">#&gt; Writing gwl_data to gwl_data.csv ... ok. (0.69 secs) </span></span>
+<span><span class="co">#&gt; Writing gwl_master to gwl_master.csv ... ok. (0.02 secs) </span></span>
+<span><span class="co">#&gt; Writing gwl_data to gwl_data.csv ... ok. (0.63 secs) </span></span>
 <span><span class="co">#&gt; Writing gwl_data_stats_export to gwl_data_stats.csv ... ok. (0.02 secs)</span></span></code></pre></div>
 </div>
 <div class="section level2">
@@ -444,11 +444,11 @@ <h2 id="download-and-process-groundwater-quality-data">Download and Process Grou
 <span><span class="co">#&gt; Filteroberkante_m_u_GOK, Filterunterkante_m_u_GOK, Rechtswert_UTM_33_N,</span></span>
 <span><span class="co">#&gt; Hochwert_UTM_33_N)`</span></span>
 <span><span class="co">#&gt; Writing gw_master to gw_master.csv ... ok. (0.02 secs) </span></span>
-<span><span class="co">#&gt; Writing gwq_data to gwq_data.csv ... ok. (0.13 secs) </span></span>
-<span><span class="co">#&gt; Writing gwq_chloride_data to gwq_chloride_data.csv ... ok. (0.07 secs) </span></span>
+<span><span class="co">#&gt; Writing gwq_data to gwq_data.csv ... ok. (0.15 secs) </span></span>
+<span><span class="co">#&gt; Writing gwq_chloride_data to gwq_chloride_data.csv ... ok. (0.09 secs) </span></span>
 <span><span class="co">#&gt; Writing gwq_chloride_master to gwq_chloride_master.csv ... ok. (0.01 secs) </span></span>
 <span><span class="co">#&gt; Writing gwq_chloride_data_stats_export to gwq_chloride_data_stats.csv ... ok. (0.01 secs) </span></span>
-<span><span class="co">#&gt; Writing gwq_chloride_master_stats to gwq_chloride_master_stats.csv ... ok. (0.01 secs)</span></span></code></pre></div>
+<span><span class="co">#&gt; Writing gwq_chloride_master_stats to gwq_chloride_master_stats.csv ... ok. (0.02 secs)</span></span></code></pre></div>
 </div>
 <div class="section level2">
 <h2 id="create-maps">Create Maps<a class="anchor" aria-label="anchor" href="#create-maps"></a>
@@ -572,8 +572,8 @@ <h4 id="sw-levels">SW Levels<a class="anchor" aria-label="anchor" href="#sw-leve
 </h4>
 <div class="sourceCode" id="cb11"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu">DT</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/DT/man/datatable.html" class="external-link">datatable</a></span><span class="op">(</span><span class="va">swl_data_stats_export</span><span class="op">)</span></span></code></pre></div>
-<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-f1cc3005c1da6c130bca" style="width:100%;height:auto;"></div>
-<script type="application/json" data-for="htmlwidget-f1cc3005c1da6c130bca">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5"],["5827103","5827101","5826702","5826701","5862811"],["Allendestraße","Fähre Rahnsdorf","Gosener Landstraße","Neue Fahlenbergbrücke","Schmöckwitz US"],["Müggelspree","Müggelspree","Gosener Graben","Gosener Kanal","Zeuthener See"],["Land Berlin","Land Berlin","Land Berlin","Land Berlin","Land Berlin"],["DMA (US)","DMA (US)","WMA","DMA (US)","DMA (US)"],["35.00","8.51","1.00","1.00","11.20"],["31.83","31.78","31.78","31.81","31.94"],["2006-02-01","1995-06-01","1999-11-01","1999-11-01","2005-01-01"],["2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-10-04"],[6454,10352,8738,8738,6850],[6455,10353,8739,8739,6851],[1,1,1,1,1]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>Nummer<\/th>\n      <th>Name<\/th>\n      <th>Gewaesser<\/th>\n      <th>Betreiber<\/th>\n      <th>Auspraegung<\/th>\n      <th>Flusskilometer<\/th>\n      <th>Pegelnullpunkt_m_NHN<\/th>\n      <th>start<\/th>\n      <th>end<\/th>\n      <th>period_days<\/th>\n      <th>n<\/th>\n      <th>interval_days<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[10,11,12]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
+<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-ab0ffd47ae142dd3d62f" style="width:100%;height:auto;"></div>
+<script type="application/json" data-for="htmlwidget-ab0ffd47ae142dd3d62f">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5"],["5827103","5827101","5826702","5826701","5862811"],["Allendestraße","Fähre Rahnsdorf","Gosener Landstraße","Neue Fahlenbergbrücke","Schmöckwitz US"],["Müggelspree","Müggelspree","Gosener Graben","Gosener Kanal","Zeuthener See"],["Land Berlin","Land Berlin","Land Berlin","Land Berlin","Land Berlin"],["DMA (US)","DMA (US)","WMA","DMA (US)","DMA (US)"],["35.00","8.51","1.00","1.00","11.20"],["31.83","31.78","31.78","31.81","31.94"],["2006-02-01","1995-06-01","1999-11-01","1999-11-01","2005-01-01"],["2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-10-05"],[6455,10353,8739,8739,6851],[6456,10354,8740,8740,6852],[1,1,1,1,1]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>Nummer<\/th>\n      <th>Name<\/th>\n      <th>Gewaesser<\/th>\n      <th>Betreiber<\/th>\n      <th>Auspraegung<\/th>\n      <th>Flusskilometer<\/th>\n      <th>Pegelnullpunkt_m_NHN<\/th>\n      <th>start<\/th>\n      <th>end<\/th>\n      <th>period_days<\/th>\n      <th>n<\/th>\n      <th>interval_days<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[10,11,12]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
 </div>
 <div class="section level4">
 <h4 id="gw-levels">GW Levels<a class="anchor" aria-label="anchor" href="#gw-levels"></a>
@@ -581,8 +581,8 @@ <h4 id="gw-levels">GW Levels<a class="anchor" aria-label="anchor" href="#gw-leve
 <p>stats for <code>groundwater levels</code></p>
 <div class="sourceCode" id="cb12"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu">DT</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/DT/man/datatable.html" class="external-link">datatable</a></span><span class="op">(</span><span class="va">gwl_data_stats_export</span><span class="op">)</span></span></code></pre></div>
-<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-ed9bdb88a31c699cb759" style="width:100%;height:auto;"></div>
-<script type="application/json" data-for="htmlwidget-ed9bdb88a31c699cb759">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28"],["3155","3156","5036","5039","5040","5042","5049","5428","5430","5431","6743","8693","8964","10421","15065","15152","15153","15160","15161","15162","15163","15180","15181","17904","17905","17907","17908","99868"],["Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick"],["Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat"],["GW-Stand","GW-Stand","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand","GW-Stand","GW-Stand","GW-Stand, tagesaktuell","GW-Stand","GW-Stand + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand + GW-Güte","GW-Stand + GW-Güte","GW-Stand + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell","GW-Stand, tagesaktuell","GW-Stand","GW-Stand","GW-Stand","GW-Stand","GW-Stand"],["Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Elsterzeitl. GW-Leiter (GWL 3)","Elsterzeitl. GW-Leiter (GWL 3)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Elsterzeitl. GW-Leiter (GWL 3)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Moor-Messstelle","Moor-Messstelle","Moor-Messstelle","Moor-Messstelle","Hauptgrundwasserleiter (GWL 1.3 + 2)"],["34.94","34.94","32.84","33.42","33.66","33.54","35.28","36.03","34.61","36.21","32.95","35.05","48.84","34.91","45.26","34.19","34.30","35.93","36.00","36.11","36.14","33.09","34.18","32.45","32.25","32.51","32.12","35.08"],["35.76","35.68","33.59","34.21","34.42","34.30","36.03","36.40","34.50","36.00","33.55","35.94","49.51","35.58","46.08","35.23","35.19","36.76","36.79","36.94","37.12","33.84","34.90","33.43","33.81","33.94","33.23","35.81"],["3.50","31.00","6.00","7.50","7.70","7.00","7.00","9.00","9.00","9.00","1.59","12.90","34.00","15.00","30.05","32.00","63.85","86.00","36.00","78.00","10.00","6.00","6.00","0.02","-0.06","0.07","-0.11","12.00"],["10.45","40.00","8.00","9.50","9.70","9.00","9.00","10.00","10.00","10.00","2.59","14.90","36.00","16.95","32.05","34.00","65.85","88.00","37.95","80.00","11.95","7.95","7.95","1.02","0.94","1.07","0.89","14.00"],["2016-01-20","2016-01-20","1994-12-21","1996-02-03","1996-02-03","1996-03-22","1996-02-03","1939-11-14","1939-11-15","1939-11-24","1996-04-16","1985-11-15","1977-01-15","2008-04-30","2004-11-01","2005-02-05","2005-02-05","2006-04-25","2006-04-25","2006-04-25","2006-04-25","2006-12-18","2006-12-18","2010-10-27","2011-12-26","2011-09-28","2011-08-19","1916-04-03"],["2023-05-19","2023-05-19","2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-09-01","2023-09-01","2023-09-01","2023-10-04","2023-09-01","2023-09-01","2023-10-04","2023-09-01","2023-09-01","2023-09-01","2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-10-04","2023-09-01"],[2676,2676,10514,10105,10105,10057,10105,30607,30606,30597,10032,13804,17030,5635,6878,6782,6782,6371,6371,6371,6371,6134,6134,4725,4300,4389,4429,39232],[2442,2534,9110,8205,9126,8685,9279,9293,9348,8578,8467,8416,6794,5576,6758,6557,6644,6252,6318,6283,5902,6058,6029,4427,4018,4279,4170,5917],[1,1,1,1,1,1,1,3,3,4,1,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>Nummer<\/th>\n      <th>Bezirk<\/th>\n      <th>Betreiber<\/th>\n      <th>Auspraegung<\/th>\n      <th>Grundwasserleiter<\/th>\n      <th>Gelaendeoberkante_GOK_m_ue_NHN<\/th>\n      <th>Rohroberkante_m_ue_NHN<\/th>\n      <th>Filteroberkante_m_u_GOK<\/th>\n      <th>Filterunterkante_m_u_GOK<\/th>\n      <th>start<\/th>\n      <th>end<\/th>\n      <th>period_days<\/th>\n      <th>n<\/th>\n      <th>interval_days<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[12,13,14]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
+<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-8a664df7fccb6ec3db68" style="width:100%;height:auto;"></div>
+<script type="application/json" data-for="htmlwidget-8a664df7fccb6ec3db68">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28"],["3155","3156","5036","5039","5040","5042","5049","5428","5430","5431","6743","8693","8964","10421","15065","15152","15153","15160","15161","15162","15163","15180","15181","17904","17905","17907","17908","99868"],["Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick"],["Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat"],["GW-Stand","GW-Stand","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand","GW-Stand","GW-Stand","GW-Stand, tagesaktuell","GW-Stand","GW-Stand + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand + GW-Güte","GW-Stand + GW-Güte","GW-Stand + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell","GW-Stand, tagesaktuell","GW-Stand","GW-Stand","GW-Stand","GW-Stand","GW-Stand"],["Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Elsterzeitl. GW-Leiter (GWL 3)","Elsterzeitl. GW-Leiter (GWL 3)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Elsterzeitl. GW-Leiter (GWL 3)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Moor-Messstelle","Moor-Messstelle","Moor-Messstelle","Moor-Messstelle","Hauptgrundwasserleiter (GWL 1.3 + 2)"],["34.94","34.94","32.84","33.42","33.66","33.54","35.28","36.03","34.61","36.21","32.95","35.05","48.84","34.91","45.26","34.19","34.30","35.93","36.00","36.11","36.14","33.09","34.18","32.45","32.25","32.51","32.12","35.08"],["35.76","35.68","33.59","34.21","34.42","34.30","36.03","36.40","34.50","36.00","33.55","35.94","49.51","35.58","46.08","35.23","35.19","36.76","36.79","36.94","37.12","33.84","34.90","33.43","33.81","33.94","33.23","35.81"],["3.50","31.00","6.00","7.50","7.70","7.00","7.00","9.00","9.00","9.00","1.59","12.90","34.00","15.00","30.05","32.00","63.85","86.00","36.00","78.00","10.00","6.00","6.00","0.02","-0.06","0.07","-0.11","12.00"],["10.45","40.00","8.00","9.50","9.70","9.00","9.00","10.00","10.00","10.00","2.59","14.90","36.00","16.95","32.05","34.00","65.85","88.00","37.95","80.00","11.95","7.95","7.95","1.02","0.94","1.07","0.89","14.00"],["2016-01-20","2016-01-20","1994-12-21","1996-02-03","1996-02-03","1996-03-22","1996-02-03","1939-11-14","1939-11-15","1939-11-24","1996-04-16","1985-11-15","1977-01-15","2008-04-30","2004-11-01","2005-02-05","2005-02-05","2006-04-25","2006-04-25","2006-04-25","2006-04-25","2006-12-18","2006-12-18","2010-10-27","2011-12-26","2011-09-28","2011-08-19","1916-04-03"],["2023-05-19","2023-05-19","2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-09-01","2023-09-01","2023-09-01","2023-10-05","2023-09-01","2023-09-01","2023-10-05","2023-09-01","2023-09-01","2023-09-01","2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-10-05","2023-09-01"],[2676,2676,10515,10106,10106,10058,10106,30607,30606,30597,10033,13804,17030,5636,6878,6782,6782,6372,6372,6372,6372,6135,6135,4726,4301,4390,4430,39232],[2442,2534,9111,8206,9127,8686,9280,9293,9348,8578,8468,8416,6794,5577,6758,6557,6644,6253,6326,6288,5903,6059,6030,4428,4019,4280,4171,5917],[1,1,1,1,1,1,1,3,3,4,1,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>Nummer<\/th>\n      <th>Bezirk<\/th>\n      <th>Betreiber<\/th>\n      <th>Auspraegung<\/th>\n      <th>Grundwasserleiter<\/th>\n      <th>Gelaendeoberkante_GOK_m_ue_NHN<\/th>\n      <th>Rohroberkante_m_ue_NHN<\/th>\n      <th>Filteroberkante_m_u_GOK<\/th>\n      <th>Filterunterkante_m_u_GOK<\/th>\n      <th>start<\/th>\n      <th>end<\/th>\n      <th>period_days<\/th>\n      <th>n<\/th>\n      <th>interval_days<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[12,13,14]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
 </div>
 <div class="section level4">
 <h4 id="gw-quality">GW Quality<a class="anchor" aria-label="anchor" href="#gw-quality"></a>
@@ -590,8 +590,8 @@ <h4 id="gw-quality">GW Quality<a class="anchor" aria-label="anchor" href="#gw-qu
 <p>stats for <code>Chloride</code></p>
 <div class="sourceCode" id="cb13"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu">DT</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/DT/man/datatable.html" class="external-link">datatable</a></span><span class="op">(</span><span class="va">gwq_chloride_data_stats_export</span><span class="op">)</span></span></code></pre></div>
-<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-8a87f837b89956bb141b" style="width:100%;height:auto;"></div>
-<script type="application/json" data-for="htmlwidget-8a87f837b89956bb141b">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15"],[5036,5039,5040,5042,5049,5130,8964,10421,10790,15065,15152,15153,15160,15162,15163],["Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick"],["Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat"],["GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Güte","GW-Stand + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Güte","GW-Stand + GW-Güte","GW-Stand + GW-Güte","GW-Stand + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte"],["Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Elsterzeitl. GW-Leiter (GWL 3)","Elsterzeitl. GW-Leiter (GWL 3)","Elsterzeitl. GW-Leiter (GWL 3)","Hauptgrundwasserleiter (GWL 1.3 + 2)"],["32.84","33.42","33.66","33.54","35.28","34.12","48.84","34.91","35.47","45.26","34.19","34.30","35.93","36.11","36.14"],["33.59","34.21","34.42","34.30","36.03","34.89","49.51","35.58","36.14","46.08","35.23","35.19","36.76","36.94","37.12"],["6.00","7.50","7.70","7.00","7.00","10.10","34.00","15.00","2.00","30.05","32.00","63.85","86.00","78.00","10.00"],["8.00","9.50","9.70","9.00","9.00","11.90","36.00","16.95","7.00","32.05","34.00","65.85","88.00","80.00","11.95"],["1998-04-23","1998-04-23","1998-05-06","1995-11-23","1998-05-06","2005-06-09","2005-06-07","2014-12-15","2014-12-09","2005-06-07","2005-05-24","2005-05-24","2012-11-23","2012-11-23","2015-12-01"],["2018-10-10","2021-09-23","2021-09-23","2021-09-23","2021-09-23","2018-10-15","2021-11-08","2021-11-30","2021-09-27","2021-11-08","2021-10-04","2021-10-04","2018-10-24","2018-10-24","2021-10-04"],[7475,8554,8541,9436,8541,4876,5998,2542,2484,5998,5977,5977,2161,2161,2134],[42,46,48,53,48,28,34,7,8,34,34,34,10,10,5],[178,186,178,178,178,174,176,363,310,176,176,176,216,216,427]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>Nummer<\/th>\n      <th>Bezirk<\/th>\n      <th>Betreiber<\/th>\n      <th>Auspraegung<\/th>\n      <th>Grundwasserleiter<\/th>\n      <th>Gelaendeoberkante_GOK_m_ue_NHN<\/th>\n      <th>Rohroberkante_m_ue_NHN<\/th>\n      <th>Filteroberkante_m_u_GOK<\/th>\n      <th>Filterunterkante_m_u_GOK<\/th>\n      <th>start<\/th>\n      <th>end<\/th>\n      <th>period_days<\/th>\n      <th>n<\/th>\n      <th>interval_days<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[1,12,13,14]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
+<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-aa8f9226e3c19ae326d4" style="width:100%;height:auto;"></div>
+<script type="application/json" data-for="htmlwidget-aa8f9226e3c19ae326d4">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15"],[5036,5039,5040,5042,5049,5130,8964,10421,10790,15065,15152,15153,15160,15162,15163],["Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick","Treptow-Köpenick"],["Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat","Senat"],["GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Güte","GW-Stand + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Güte","GW-Stand + GW-Güte","GW-Stand + GW-Güte","GW-Stand + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte","GW-Stand, tagesaktuell + GW-Güte"],["Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Hauptgrundwasserleiter (GWL 1.3 + 2)","Elsterzeitl. GW-Leiter (GWL 3)","Elsterzeitl. GW-Leiter (GWL 3)","Elsterzeitl. GW-Leiter (GWL 3)","Hauptgrundwasserleiter (GWL 1.3 + 2)"],["32.84","33.42","33.66","33.54","35.28","34.12","48.84","34.91","35.47","45.26","34.19","34.30","35.93","36.11","36.14"],["33.59","34.21","34.42","34.30","36.03","34.89","49.51","35.58","36.14","46.08","35.23","35.19","36.76","36.94","37.12"],["6.00","7.50","7.70","7.00","7.00","10.10","34.00","15.00","2.00","30.05","32.00","63.85","86.00","78.00","10.00"],["8.00","9.50","9.70","9.00","9.00","11.90","36.00","16.95","7.00","32.05","34.00","65.85","88.00","80.00","11.95"],["1998-04-23","1998-04-23","1998-05-06","1995-11-23","1998-05-06","2005-06-09","2005-06-07","2014-12-15","2014-12-09","2005-06-07","2005-05-24","2005-05-24","2012-11-23","2012-11-23","2015-12-01"],["2018-10-10","2021-09-23","2021-09-23","2021-09-23","2021-09-23","2018-10-15","2021-11-08","2021-11-30","2021-09-27","2021-11-08","2021-10-04","2021-10-04","2018-10-24","2018-10-24","2021-10-04"],[7475,8554,8541,9436,8541,4876,5998,2542,2484,5998,5977,5977,2161,2161,2134],[42,46,48,53,48,28,34,7,8,34,34,34,10,10,5],[178,186,178,178,178,174,176,363,310,176,176,176,216,216,427]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>Nummer<\/th>\n      <th>Bezirk<\/th>\n      <th>Betreiber<\/th>\n      <th>Auspraegung<\/th>\n      <th>Grundwasserleiter<\/th>\n      <th>Gelaendeoberkante_GOK_m_ue_NHN<\/th>\n      <th>Rohroberkante_m_ue_NHN<\/th>\n      <th>Filteroberkante_m_u_GOK<\/th>\n      <th>Filterunterkante_m_u_GOK<\/th>\n      <th>start<\/th>\n      <th>end<\/th>\n      <th>period_days<\/th>\n      <th>n<\/th>\n      <th>interval_days<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[1,12,13,14]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
 </div>
 </div>
 </div>
diff --git a/articles/wasserportal_files/datatables-binding-0.30/datatables.js b/articles/wasserportal_files/datatables-binding-0.30/datatables.js
new file mode 100644
index 00000000..d968d8be
--- /dev/null
+++ b/articles/wasserportal_files/datatables-binding-0.30/datatables.js
@@ -0,0 +1,1517 @@
+(function() {
+
+// some helper functions: using a global object DTWidget so that it can be used
+// in JS() code, e.g. datatable(options = list(foo = JS('code'))); unlike R's
+// dynamic scoping, when 'code' is eval'ed, JavaScript does not know objects
+// from the "parent frame", e.g. JS('DTWidget') will not work unless it was made
+// a global object
+var DTWidget = {};
+
+// 123456666.7890 -> 123,456,666.7890
+var markInterval = function(d, digits, interval, mark, decMark, precision) {
+  x = precision ? d.toPrecision(digits) : d.toFixed(digits);
+  if (!/^-?[\d.]+$/.test(x)) return x;
+  var xv = x.split('.');
+  if (xv.length > 2) return x;  // should have at most one decimal point
+  xv[0] = xv[0].replace(new RegExp('\\B(?=(\\d{' + interval + '})+(?!\\d))', 'g'), mark);
+  return xv.join(decMark);
+};
+
+DTWidget.formatCurrency = function(data, currency, digits, interval, mark, decMark, before, zeroPrint) {
+  var d = parseFloat(data);
+  if (isNaN(d)) return '';
+  if (zeroPrint !== null && d === 0.0) return zeroPrint;
+  var res = markInterval(d, digits, interval, mark, decMark);
+  res = before ? (/^-/.test(res) ? '-' + currency + res.replace(/^-/, '') : currency + res) :
+    res + currency;
+  return res;
+};
+
+DTWidget.formatString = function(data, prefix, suffix) {
+  var d = data;
+  if (d === null) return '';
+  return prefix + d + suffix;
+};
+
+DTWidget.formatPercentage = function(data, digits, interval, mark, decMark, zeroPrint) {
+  var d = parseFloat(data);
+  if (isNaN(d)) return '';
+  if (zeroPrint !== null && d === 0.0) return zeroPrint;
+  return markInterval(d * 100, digits, interval, mark, decMark) + '%';
+};
+
+DTWidget.formatRound = function(data, digits, interval, mark, decMark, zeroPrint) {
+  var d = parseFloat(data);
+  if (isNaN(d)) return '';
+  if (zeroPrint !== null && d === 0.0) return zeroPrint;
+  return markInterval(d, digits, interval, mark, decMark);
+};
+
+DTWidget.formatSignif = function(data, digits, interval, mark, decMark, zeroPrint) {
+  var d = parseFloat(data);
+  if (isNaN(d)) return '';
+  if (zeroPrint !== null && d === 0.0) return zeroPrint;
+  return markInterval(d, digits, interval, mark, decMark, true);
+};
+
+DTWidget.formatDate = function(data, method, params) {
+  var d = data;
+  if (d === null) return '';
+  // (new Date('2015-10-28')).toDateString() may return 2015-10-27 because the
+  // actual time created could be like 'Tue Oct 27 2015 19:00:00 GMT-0500 (CDT)',
+  // i.e. the date-only string is treated as UTC time instead of local time
+  if ((method === 'toDateString' || method === 'toLocaleDateString') && /^\d{4,}\D\d{2}\D\d{2}$/.test(d)) {
+    d = d.split(/\D/);
+    d = new Date(d[0], d[1] - 1, d[2]);
+  } else {
+    d = new Date(d);
+  }
+  return d[method].apply(d, params);
+};
+
+window.DTWidget = DTWidget;
+
+// A helper function to update the properties of existing filters
+var setFilterProps = function(td, props) {
+  // Update enabled/disabled state
+  var $input = $(td).find('input').first();
+  var searchable = $input.data('searchable');
+  $input.prop('disabled', !searchable || props.disabled);
+
+  // Based on the filter type, set its new values
+  var type = td.getAttribute('data-type');
+  if (['factor', 'logical'].includes(type)) {
+    // Reformat the new dropdown options for use with selectize
+    var new_vals = props.params.options.map(function(item) {
+      return { text: item, value: item };
+    });
+
+    // Find the selectize object
+    var dropdown = $(td).find('.selectized').eq(0)[0].selectize;
+
+    // Note the current values
+    var old_vals = dropdown.getValue();
+
+    // Remove the existing values
+    dropdown.clearOptions();
+
+    // Add the new options
+    dropdown.addOption(new_vals);
+
+    // Preserve the existing values
+    dropdown.setValue(old_vals);
+
+  } else if (['number', 'integer', 'date', 'time'].includes(type)) {
+    // Apply internal scaling to new limits. Updating scale not yet implemented.
+    var slider = $(td).find('.noUi-target').eq(0);
+    var scale = Math.pow(10, Math.max(0, +slider.data('scale') || 0));
+    var new_vals = [props.params.min * scale, props.params.max * scale];
+
+    // Note what the new limits will be just for this filter
+    var new_lims = new_vals.slice();
+
+    // Determine the current values and limits
+    var old_vals = slider.val().map(Number);
+    var old_lims = slider.noUiSlider('options').range;
+    old_lims = [old_lims.min, old_lims.max];
+
+    // Preserve the current values if filters have been applied; otherwise, apply no filtering
+    if (old_vals[0] != old_lims[0]) {
+      new_vals[0] = Math.max(old_vals[0], new_vals[0]);
+    }
+
+    if (old_vals[1] != old_lims[1]) {
+      new_vals[1] = Math.min(old_vals[1], new_vals[1]);
+    }
+
+    // Update the endpoints of the slider
+    slider.noUiSlider({
+      start: new_vals,
+      range: {'min': new_lims[0], 'max': new_lims[1]}
+    }, true);
+  }
+};
+
+var transposeArray2D = function(a) {
+  return a.length === 0 ? a : HTMLWidgets.transposeArray2D(a);
+};
+
+var crosstalkPluginsInstalled = false;
+
+function maybeInstallCrosstalkPlugins() {
+  if (crosstalkPluginsInstalled)
+    return;
+  crosstalkPluginsInstalled = true;
+
+  $.fn.dataTable.ext.afnFiltering.push(
+    function(oSettings, aData, iDataIndex) {
+      var ctfilter = oSettings.nTable.ctfilter;
+      if (ctfilter && !ctfilter[iDataIndex])
+        return false;
+
+      var ctselect = oSettings.nTable.ctselect;
+      if (ctselect && !ctselect[iDataIndex])
+        return false;
+
+      return true;
+    }
+  );
+}
+
+HTMLWidgets.widget({
+  name: "datatables",
+  type: "output",
+  renderOnNullValue: true,
+  initialize: function(el, width, height) {
+    // in order that the type=number inputs return a number
+    $.valHooks.number = {
+      get: function(el) {
+        var value = parseFloat(el.value);
+        return isNaN(value) ? "" : value;
+      }
+    };
+    $(el).html('&nbsp;');
+    return {
+      data: null,
+      ctfilterHandle: new crosstalk.FilterHandle(),
+      ctfilterSubscription: null,
+      ctselectHandle: new crosstalk.SelectionHandle(),
+      ctselectSubscription: null
+    };
+  },
+  renderValue: function(el, data, instance) {
+    if (el.offsetWidth === 0 || el.offsetHeight === 0) {
+      instance.data = data;
+      return;
+    }
+    instance.data = null;
+    var $el = $(el);
+    $el.empty();
+
+    if (data === null) {
+      $el.append('&nbsp;');
+      // clear previous Shiny inputs (if any)
+      for (var i in instance.clearInputs) instance.clearInputs[i]();
+      instance.clearInputs = {};
+      return;
+    }
+
+    var crosstalkOptions = data.crosstalkOptions;
+    if (!crosstalkOptions) crosstalkOptions = {
+      'key': null, 'group': null
+    };
+    if (crosstalkOptions.group) {
+      maybeInstallCrosstalkPlugins();
+      instance.ctfilterHandle.setGroup(crosstalkOptions.group);
+      instance.ctselectHandle.setGroup(crosstalkOptions.group);
+    }
+
+    // if we are in the viewer then we always want to fillContainer and
+    // and autoHideNavigation (unless the user has explicitly set these)
+    if (window.HTMLWidgets.viewerMode) {
+      if (!data.hasOwnProperty("fillContainer"))
+        data.fillContainer = true;
+      if (!data.hasOwnProperty("autoHideNavigation"))
+        data.autoHideNavigation = true;
+    }
+
+    // propagate fillContainer to instance (so we have it in resize)
+    instance.fillContainer = data.fillContainer;
+
+    var cells = data.data;
+
+    if (cells instanceof Array) cells = transposeArray2D(cells);
+
+    $el.append(data.container);
+    var $table = $el.find('table');
+    if (data.class) $table.addClass(data.class);
+    if (data.caption) $table.prepend(data.caption);
+
+    if (!data.selection) data.selection = {
+      mode: 'none', selected: null, target: 'row', selectable: null
+    };
+    if (HTMLWidgets.shinyMode && data.selection.mode !== 'none' &&
+        data.selection.target === 'row+column') {
+      if ($table.children('tfoot').length === 0) {
+        $table.append($('<tfoot>'));
+        $table.find('thead tr').clone().appendTo($table.find('tfoot'));
+      }
+    }
+
+    // column filters
+    var filterRow;
+    switch (data.filter) {
+      case 'top':
+        $table.children('thead').append(data.filterHTML);
+        filterRow = $table.find('thead tr:last td');
+        break;
+      case 'bottom':
+        if ($table.children('tfoot').length === 0) {
+          $table.append($('<tfoot>'));
+        }
+        $table.children('tfoot').prepend(data.filterHTML);
+        filterRow = $table.find('tfoot tr:first td');
+        break;
+    }
+
+    var options = { searchDelay: 1000 };
+    if (cells !== null) $.extend(options, {
+      data: cells
+    });
+
+    // options for fillContainer
+    var bootstrapActive = typeof($.fn.popover) != 'undefined';
+    if (instance.fillContainer) {
+
+      // force scrollX/scrollY and turn off autoWidth
+      options.scrollX = true;
+      options.scrollY = "100px"; // can be any value, we'll adjust below
+
+      // if we aren't paginating then move around the info/filter controls
+      // to save space at the bottom and rephrase the info callback
+      if (data.options.paging === false) {
+
+        // we know how to do this cleanly for bootstrap, not so much
+        // for other themes/layouts
+        if (bootstrapActive) {
+          options.dom = "<'row'<'col-sm-4'i><'col-sm-8'f>>" +
+                        "<'row'<'col-sm-12'tr>>";
+        }
+
+        options.fnInfoCallback = function(oSettings, iStart, iEnd,
+                                           iMax, iTotal, sPre) {
+          return Number(iTotal).toLocaleString() + " records";
+        };
+      }
+    }
+
+    // auto hide navigation if requested
+    // Note, this only works on client-side processing mode as on server-side,
+    // cells (data.data) is null; In addition, we require the pageLength option
+    // being provided explicitly to enable this. Despite we may be able to deduce
+    // the default value of pageLength, it may complicate things so we'd rather
+    // put this responsiblity to users and warn them on the R side.
+    if (data.autoHideNavigation === true && data.options.paging !== false) {
+      // strip all nav if length >= cells
+      if ((cells instanceof Array) && data.options.pageLength >= cells.length)
+        options.dom = bootstrapActive ? "<'row'<'col-sm-12'tr>>" : "t";
+      // alternatively lean things out for flexdashboard mobile portrait
+      else if (bootstrapActive && window.FlexDashboard && window.FlexDashboard.isMobilePhone())
+        options.dom = "<'row'<'col-sm-12'f>>" +
+                      "<'row'<'col-sm-12'tr>>"  +
+                      "<'row'<'col-sm-12'p>>";
+    }
+
+    $.extend(true, options, data.options || {});
+
+    var searchCols = options.searchCols;
+    if (searchCols) {
+      searchCols = searchCols.map(function(x) {
+        return x === null ? '' : x.search;
+      });
+      // FIXME: this means I don't respect the escapeRegex setting
+      delete options.searchCols;
+    }
+
+    // server-side processing?
+    var server = options.serverSide === true;
+
+    // use the dataSrc function to pre-process JSON data returned from R
+    var DT_rows_all = [], DT_rows_current = [];
+    if (server && HTMLWidgets.shinyMode && typeof options.ajax === 'object' &&
+        /^session\/[\da-z]+\/dataobj/.test(options.ajax.url) && !options.ajax.dataSrc) {
+      options.ajax.dataSrc = function(json) {
+        DT_rows_all = $.makeArray(json.DT_rows_all);
+        DT_rows_current = $.makeArray(json.DT_rows_current);
+        var data = json.data;
+        if (!colReorderEnabled()) return data;
+        var table = $table.DataTable(), order = table.colReorder.order(), flag = true, i, j, row;
+        for (i = 0; i < order.length; ++i) if (order[i] !== i) flag = false;
+        if (flag) return data;
+        for (i = 0; i < data.length; ++i) {
+          row = data[i].slice();
+          for (j = 0; j < order.length; ++j) data[i][j] = row[order[j]];
+        }
+        return data;
+      };
+    }
+
+    var thiz = this;
+    if (instance.fillContainer) $table.on('init.dt', function(e) {
+      thiz.fillAvailableHeight(el, $(el).innerHeight());
+    });
+    // If the page contains serveral datatables and one of which enables colReorder,
+    // the table.colReorder.order() function will exist but throws error when called.
+    // So it seems like the only way to know if colReorder is enabled or not is to
+    // check the options.
+    var colReorderEnabled = function() { return "colReorder" in options; };
+    var table = $table.DataTable(options);
+    $el.data('datatable', table);
+
+    // Unregister previous Crosstalk event subscriptions, if they exist
+    if (instance.ctfilterSubscription) {
+      instance.ctfilterHandle.off("change", instance.ctfilterSubscription);
+      instance.ctfilterSubscription = null;
+    }
+    if (instance.ctselectSubscription) {
+      instance.ctselectHandle.off("change", instance.ctselectSubscription);
+      instance.ctselectSubscription = null;
+    }
+
+    if (!crosstalkOptions.group) {
+      $table[0].ctfilter = null;
+      $table[0].ctselect = null;
+    } else {
+      var key = crosstalkOptions.key;
+      function keysToMatches(keys) {
+        if (!keys) {
+          return null;
+        } else {
+          var selectedKeys = {};
+          for (var i = 0; i < keys.length; i++) {
+            selectedKeys[keys[i]] = true;
+          }
+          var matches = {};
+          for (var j = 0; j < key.length; j++) {
+            if (selectedKeys[key[j]])
+              matches[j] = true;
+          }
+          return matches;
+        }
+      }
+
+      function applyCrosstalkFilter(e) {
+        $table[0].ctfilter = keysToMatches(e.value);
+        table.draw();
+      }
+      instance.ctfilterSubscription = instance.ctfilterHandle.on("change", applyCrosstalkFilter);
+      applyCrosstalkFilter({value: instance.ctfilterHandle.filteredKeys});
+
+      function applyCrosstalkSelection(e) {
+        if (e.sender !== instance.ctselectHandle) {
+          table
+            .rows('.' + selClass, {search: 'applied'})
+            .nodes()
+            .to$()
+            .removeClass(selClass);
+          if (selectedRows)
+            changeInput('rows_selected', selectedRows(), void 0, true);
+        }
+
+        if (e.sender !== instance.ctselectHandle && e.value && e.value.length) {
+          var matches = keysToMatches(e.value);
+
+          // persistent selection with plotly (& leaflet)
+          var ctOpts = crosstalk.var("plotlyCrosstalkOpts").get() || {};
+          if (ctOpts.persistent === true) {
+            var matches = $.extend(matches, $table[0].ctselect);
+          }
+
+          $table[0].ctselect = matches;
+          table.draw();
+        } else {
+          if ($table[0].ctselect) {
+            $table[0].ctselect = null;
+            table.draw();
+          }
+        }
+      }
+      instance.ctselectSubscription = instance.ctselectHandle.on("change", applyCrosstalkSelection);
+      // TODO: This next line doesn't seem to work when renderDataTable is used
+      applyCrosstalkSelection({value: instance.ctselectHandle.value});
+    }
+
+    var inArray = function(val, array) {
+      return $.inArray(val, $.makeArray(array)) > -1;
+    };
+
+    // search the i-th column
+    var searchColumn = function(i, value) {
+      var regex = false, ci = true;
+      if (options.search) {
+        regex = options.search.regex,
+        ci = options.search.caseInsensitive !== false;
+      }
+      return table.column(i).search(value, regex, !regex, ci);
+    };
+
+    if (data.filter !== 'none') {
+
+      filterRow.each(function(i, td) {
+
+        var $td = $(td), type = $td.data('type'), filter;
+        var $input = $td.children('div').first().children('input');
+        var disabled = $input.prop('disabled');
+        var searchable = table.settings()[0].aoColumns[i].bSearchable;
+        $input.prop('disabled', !searchable || disabled);
+        $input.data('searchable', searchable); // for updating later
+        $input.on('input blur', function() {
+          $input.next('span').toggle(Boolean($input.val()));
+        });
+        // Bootstrap sets pointer-events to none and we won't be able to click
+        // the clear button
+        $input.next('span').css('pointer-events', 'auto').hide().click(function() {
+          $(this).hide().prev('input').val('').trigger('input').focus();
+        });
+        var searchCol;  // search string for this column
+        if (searchCols && searchCols[i]) {
+          searchCol = searchCols[i];
+          $input.val(searchCol).trigger('input');
+        }
+        var $x = $td.children('div').last();
+
+        // remove the overflow: hidden attribute of the scrollHead
+        // (otherwise the scrolling table body obscures the filters)
+        // The workaround and the discussion from
+        // https://github.com/rstudio/DT/issues/554#issuecomment-518007347
+        // Otherwise the filter selection will not be anchored to the values
+        // when the columns number is many and scrollX is enabled.
+        var scrollHead = $(el).find('.dataTables_scrollHead,.dataTables_scrollFoot');
+        var cssOverflowHead = scrollHead.css('overflow');
+        var scrollBody = $(el).find('.dataTables_scrollBody');
+        var cssOverflowBody = scrollBody.css('overflow');
+        var scrollTable = $(el).find('.dataTables_scroll');
+        var cssOverflowTable = scrollTable.css('overflow');
+        if (cssOverflowHead === 'hidden') {
+          $x.on('show hide', function(e) {
+            if (e.type === 'show') {
+              scrollHead.css('overflow', 'visible');
+              scrollBody.css('overflow', 'visible');
+              scrollTable.css('overflow-x', 'scroll');
+            } else {
+              scrollHead.css('overflow', cssOverflowHead);
+              scrollBody.css('overflow', cssOverflowBody);
+              scrollTable.css('overflow-x', cssOverflowTable);
+            }
+          });
+          $x.css('z-index', 25);
+        }
+
+        if (inArray(type, ['factor', 'logical'])) {
+          $input.on({
+            click: function() {
+              $input.parent().hide(); $x.show().trigger('show'); filter[0].selectize.focus();
+            },
+            input: function() {
+              var v1 = JSON.stringify(filter[0].selectize.getValue()), v2 = $input.val();
+              if (v1 === '[]') v1 = '';
+              if (v1 !== v2) filter[0].selectize.setValue(v2 === '' ? [] : JSON.parse(v2));
+            }
+          });
+          var $input2 = $x.children('select');
+          filter = $input2.selectize({
+            options: $input2.data('options').map(function(v, i) {
+              return ({text: v, value: v});
+            }),
+            plugins: ['remove_button'],
+            hideSelected: true,
+            onChange: function(value) {
+              if (value === null) value = []; // compatibility with jQuery 3.0
+              $input.val(value.length ? JSON.stringify(value) : '');
+              if (value.length) $input.trigger('input');
+              $input.attr('title', $input.val());
+              if (server) {
+                table.column(i).search(value.length ? JSON.stringify(value) : '').draw();
+                return;
+              }
+              // turn off filter if nothing selected
+              $td.data('filter', value.length > 0);
+              table.draw();  // redraw table, and filters will be applied
+            }
+          });
+          if (searchCol) filter[0].selectize.setValue(JSON.parse(searchCol));
+          filter[0].selectize.on('blur', function() {
+            $x.hide().trigger('hide'); $input.parent().show(); $input.trigger('blur');
+          });
+          filter.next('div').css('margin-bottom', 'auto');
+        } else if (type === 'character') {
+          var fun = function() {
+            searchColumn(i, $input.val()).draw();
+          };
+          if (server) {
+            fun = $.fn.dataTable.util.throttle(fun, options.searchDelay);
+          }
+          $input.on('input', fun);
+        } else if (inArray(type, ['number', 'integer', 'date', 'time'])) {
+          var $x0 = $x;
+          $x = $x0.children('div').first();
+          $x0.css({
+            'background-color': '#fff',
+            'border': '1px #ddd solid',
+            'border-radius': '4px',
+            'padding': data.vertical ? '35px 20px': '20px 20px 10px 20px'
+          });
+          var $spans = $x0.children('span').css({
+            'margin-top': data.vertical ? '0' : '10px',
+            'white-space': 'nowrap'
+          });
+          var $span1 = $spans.first(), $span2 = $spans.last();
+          var r1 = +$x.data('min'), r2 = +$x.data('max');
+          // when the numbers are too small or have many decimal places, the
+          // slider may have numeric precision problems (#150)
+          var scale = Math.pow(10, Math.max(0, +$x.data('scale') || 0));
+          r1 = Math.round(r1 * scale); r2 = Math.round(r2 * scale);
+          var scaleBack = function(x, scale) {
+            if (scale === 1) return x;
+            var d = Math.round(Math.log(scale) / Math.log(10));
+            // to avoid problems like 3.423/100 -> 0.034230000000000003
+            return (x / scale).toFixed(d);
+          };
+          var slider_min = function() {
+            return filter.noUiSlider('options').range.min;
+          };
+          var slider_max = function() {
+            return filter.noUiSlider('options').range.max;
+          };
+          $input.on({
+            focus: function() {
+              $x0.show().trigger('show');
+              // first, make sure the slider div leaves at least 20px between
+              // the two (slider value) span's
+              $x0.width(Math.max(160, $span1.outerWidth() + $span2.outerWidth() + 20));
+              // then, if the input is really wide or slider is vertical,
+              // make the slider the same width as the input
+              if ($x0.outerWidth() < $input.outerWidth() || data.vertical) {
+                $x0.outerWidth($input.outerWidth());
+              }
+              // make sure the slider div does not reach beyond the right margin
+              if ($(window).width() < $x0.offset().left + $x0.width()) {
+                $x0.offset({
+                  'left': $input.offset().left + $input.outerWidth() - $x0.outerWidth()
+                });
+              }
+            },
+            blur: function() {
+              $x0.hide().trigger('hide');
+            },
+            input: function() {
+              if ($input.val() === '') filter.val([slider_min(), slider_max()]);
+            },
+            change: function() {
+              var v = $input.val().replace(/\s/g, '');
+              if (v === '') return;
+              v = v.split('...');
+              if (v.length !== 2) {
+                $input.parent().addClass('has-error');
+                return;
+              }
+              if (v[0] === '') v[0] = slider_min();
+              if (v[1] === '') v[1] = slider_max();
+              $input.parent().removeClass('has-error');
+              // treat date as UTC time at midnight
+              var strTime = function(x) {
+                var s = type === 'date' ? 'T00:00:00Z' : '';
+                var t = new Date(x + s).getTime();
+                // add 10 minutes to date since it does not hurt the date, and
+                // it helps avoid the tricky floating point arithmetic problems,
+                // e.g. sometimes the date may be a few milliseconds earlier
+                // than the midnight due to precision problems in noUiSlider
+                return type === 'date' ? t + 3600000 : t;
+              };
+              if (inArray(type, ['date', 'time'])) {
+                v[0] = strTime(v[0]);
+                v[1] = strTime(v[1]);
+              }
+              if (v[0] != slider_min()) v[0] *= scale;
+              if (v[1] != slider_max()) v[1] *= scale;
+              filter.val(v);
+            }
+          });
+          var formatDate = function(d, isoFmt) {
+            d = scaleBack(d, scale);
+            if (type === 'number') return d;
+            if (type === 'integer') return parseInt(d);
+            var x = new Date(+d);
+            var fmt = ('filterDateFmt' in data) ? data.filterDateFmt[i] : undefined;
+            if (fmt !== undefined && isoFmt === false) return x[fmt.method].apply(x, fmt.params);
+            if (type === 'date') {
+              var pad0 = function(x) {
+                return ('0' + x).substr(-2, 2);
+              };
+              return x.getUTCFullYear() + '-' + pad0(1 + x.getUTCMonth())
+                      + '-' + pad0(x.getUTCDate());
+            } else {
+              return x.toISOString();
+            }
+          };
+          var opts = type === 'date' ? { step: 60 * 60 * 1000 } :
+                     type === 'integer' ? { step: 1 } : {};
+
+          opts.orientation = data.vertical ? 'vertical': 'horizontal';
+          opts.direction = data.vertical ? 'rtl': 'ltr';
+
+          filter = $x.noUiSlider($.extend({
+            start: [r1, r2],
+            range: {min: r1, max: r2},
+            connect: true
+          }, opts));
+          if (scale > 1) (function() {
+            var t1 = r1, t2 = r2;
+            var val = filter.val();
+            while (val[0] > r1 || val[1] < r2) {
+              if (val[0] > r1) {
+                t1 -= val[0] - r1;
+              }
+              if (val[1] < r2) {
+                t2 += r2 - val[1];
+              }
+              filter = $x.noUiSlider($.extend({
+                start: [t1, t2],
+                range: {min: t1, max: t2},
+                connect: true
+              }, opts), true);
+              val = filter.val();
+            }
+            r1  = t1; r2 = t2;
+          })();
+          var updateSliderText = function(v1, v2) {
+            $span1.text(formatDate(v1, false)); $span2.text(formatDate(v2, false));
+          };
+          updateSliderText(r1, r2);
+          var updateSlider = function(e) {
+            var val = filter.val();
+            // turn off filter if in full range
+            $td.data('filter', val[0] > slider_min() || val[1] < slider_max());
+            var v1 = formatDate(val[0]), v2 = formatDate(val[1]), ival;
+            if ($td.data('filter')) {
+              ival = v1 + ' ... ' + v2;
+              $input.attr('title', ival).val(ival).trigger('input');
+            } else {
+              $input.attr('title', '').val('');
+            }
+            updateSliderText(val[0], val[1]);
+            if (e.type === 'slide') return;  // no searching when sliding only
+            if (server) {
+              table.column(i).search($td.data('filter') ? ival : '').draw();
+              return;
+            }
+            table.draw();
+          };
+          filter.on({
+            set: updateSlider,
+            slide: updateSlider
+          });
+        }
+
+        // server-side processing will be handled by R (or whatever server
+        // language you use); the following code is only needed for client-side
+        // processing
+        if (server) {
+          // if a search string has been pre-set, search now
+          if (searchCol) searchColumn(i, searchCol).draw();
+          return;
+        }
+
+        var customFilter = function(settings, data, dataIndex) {
+          // there is no way to attach a search function to a specific table,
+          // and we need to make sure a global search function is not applied to
+          // all tables (i.e. a range filter in a previous table should not be
+          // applied to the current table); we use the settings object to
+          // determine if we want to perform searching on the current table,
+          // since settings.sTableId will be different to different tables
+          if (table.settings()[0] !== settings) return true;
+          // no filter on this column or no need to filter this column
+          if (typeof filter === 'undefined' || !$td.data('filter')) return true;
+
+          var r = filter.val(), v, r0, r1;
+          var i_data = function(i) {
+            if (!colReorderEnabled()) return i;
+            var order = table.colReorder.order(), k;
+            for (k = 0; k < order.length; ++k) if (order[k] === i) return k;
+            return i; // in theory it will never be here...
+          }
+          v = data[i_data(i)];
+          if (type === 'number' || type === 'integer') {
+            v = parseFloat(v);
+            // how to handle NaN? currently exclude these rows
+            if (isNaN(v)) return(false);
+            r0 = parseFloat(scaleBack(r[0], scale))
+            r1 = parseFloat(scaleBack(r[1], scale));
+            if (v >= r0 && v <= r1) return true;
+          } else if (type === 'date' || type === 'time') {
+            v = new Date(v);
+            r0 = new Date(r[0] / scale); r1 = new Date(r[1] / scale);
+            if (v >= r0 && v <= r1) return true;
+          } else if (type === 'factor') {
+            if (r.length === 0 || inArray(v, r)) return true;
+          } else if (type === 'logical') {
+            if (r.length === 0) return true;
+            if (inArray(v === '' ? 'na' : v, r)) return true;
+          }
+          return false;
+        };
+
+        $.fn.dataTable.ext.search.push(customFilter);
+
+        // search for the preset search strings if it is non-empty
+        if (searchCol) {
+          if (inArray(type, ['factor', 'logical'])) {
+            filter[0].selectize.setValue(JSON.parse(searchCol));
+          } else if (type === 'character') {
+            $input.trigger('input');
+          } else if (inArray(type, ['number', 'integer', 'date', 'time'])) {
+            $input.trigger('change');
+          }
+        }
+
+      });
+
+    }
+
+    // highlight search keywords
+    var highlight = function() {
+      var body = $(table.table().body());
+      // removing the old highlighting first
+      body.unhighlight();
+
+      // don't highlight the "not found" row, so we get the rows using the api
+      if (table.rows({ filter: 'applied' }).data().length === 0) return;
+      // highlight global search keywords
+      body.highlight($.trim(table.search()).split(/\s+/));
+      // then highlight keywords from individual column filters
+      if (filterRow) filterRow.each(function(i, td) {
+        var $td = $(td), type = $td.data('type');
+        if (type !== 'character') return;
+        var $input = $td.children('div').first().children('input');
+        var column = table.column(i).nodes().to$(),
+            val = $.trim($input.val());
+        if (type !== 'character' || val === '') return;
+        column.highlight(val.split(/\s+/));
+      });
+    };
+
+    if (options.searchHighlight) {
+      table
+      .on('draw.dt.dth column-visibility.dt.dth column-reorder.dt.dth', highlight)
+      .on('destroy', function() {
+        // remove event handler
+        table.off('draw.dt.dth column-visibility.dt.dth column-reorder.dt.dth');
+      });
+
+      // Set the option for escaping regex characters in our search string.  This will be used
+      // for all future matching.
+      jQuery.fn.highlight.options.escapeRegex = (!options.search || !options.search.regex);
+
+      // initial highlight for state saved conditions and initial states
+      highlight();
+    }
+
+    // run the callback function on the table instance
+    if (typeof data.callback === 'function') data.callback(table);
+
+    // double click to edit the cell, row, column, or all cells
+    if (data.editable) table.on('dblclick.dt', 'tbody td', function(e) {
+      // only bring up the editor when the cell itself is dbclicked, and ignore
+      // other dbclick events bubbled up (e.g. from the <input>)
+      if (e.target !== this) return;
+      var target = [], immediate = false;
+      switch (data.editable.target) {
+        case 'cell':
+          target = [this];
+          immediate = true;  // edit will take effect immediately
+          break;
+        case 'row':
+          target = table.cells(table.cell(this).index().row, '*').nodes();
+          break;
+        case 'column':
+          target = table.cells('*', table.cell(this).index().column).nodes();
+          break;
+        case 'all':
+          target = table.cells().nodes();
+          break;
+        default:
+          throw 'The editable parameter must be "cell", "row", "column", or "all"';
+      }
+      var disableCols = data.editable.disable ? data.editable.disable.columns : null;
+      var numericCols = data.editable.numeric;
+      var areaCols = data.editable.area;
+      var dateCols = data.editable.date;
+      for (var i = 0; i < target.length; i++) {
+        (function(cell, current) {
+          var $cell = $(cell), html = $cell.html();
+          var _cell = table.cell(cell), value = _cell.data(), index = _cell.index().column;
+          var $input;
+          if (inArray(index, numericCols)) {
+            $input = $('<input type="number">');
+          } else if (inArray(index, areaCols)) {
+            $input = $('<textarea></textarea>');
+          } else if (inArray(index, dateCols)) {
+            $input = $('<input type="date">');
+          } else {
+            $input = $('<input type="text">');
+          }
+          if (!immediate) {
+            $cell.data('input', $input).data('html', html);
+            $input.attr('title', 'Hit Ctrl+Enter to finish editing, or Esc to cancel');
+          }
+          $input.val(value);
+          if (inArray(index, disableCols)) {
+            $input.attr('readonly', '').css('filter', 'invert(25%)');
+          }
+          $cell.empty().append($input);
+          if (cell === current) $input.focus();
+          $input.css('width', '100%');
+
+          if (immediate) $input.on('blur', function(e) {
+            var valueNew = $input.val();
+            if (valueNew !== value) {
+              _cell.data(valueNew);
+              if (HTMLWidgets.shinyMode) {
+                changeInput('cell_edit', [cellInfo(cell)], 'DT.cellInfo', null, {priority: 'event'});
+              }
+              // for server-side processing, users have to call replaceData() to update the table
+              if (!server) table.draw(false);
+            } else {
+              $cell.html(html);
+            }
+          }).on('keyup', function(e) {
+            // hit Escape to cancel editing
+            if (e.keyCode === 27) $input.trigger('blur');
+          });
+
+          // bulk edit (row, column, or all)
+          if (!immediate) $input.on('keyup', function(e) {
+            var removeInput = function($cell, restore) {
+              $cell.data('input').remove();
+              if (restore) $cell.html($cell.data('html'));
+            }
+            if (e.keyCode === 27) {
+              for (var i = 0; i < target.length; i++) {
+                removeInput($(target[i]), true);
+              }
+            } else if (e.keyCode === 13 && e.ctrlKey) {
+              // Ctrl + Enter
+              var cell, $cell, _cell, cellData = [];
+              for (var i = 0; i < target.length; i++) {
+                cell = target[i]; $cell = $(cell); _cell = table.cell(cell);
+                _cell.data($cell.data('input').val());
+                HTMLWidgets.shinyMode && cellData.push(cellInfo(cell));
+                removeInput($cell, false);
+              }
+              if (HTMLWidgets.shinyMode) {
+                changeInput('cell_edit', cellData, 'DT.cellInfo', null, {priority: "event"});
+              }
+              if (!server) table.draw(false);
+            }
+          });
+        })(target[i], this);
+      }
+    });
+
+    // interaction with shiny
+    if (!HTMLWidgets.shinyMode && !crosstalkOptions.group) return;
+
+    var methods = {};
+    var shinyData = {};
+
+    methods.updateCaption = function(caption) {
+      if (!caption) return;
+      $table.children('caption').replaceWith(caption);
+    }
+
+    // register clear functions to remove input values when the table is removed
+    instance.clearInputs = {};
+
+    var changeInput = function(id, value, type, noCrosstalk, opts) {
+      var event = id;
+      id = el.id + '_' + id;
+      if (type) id = id + ':' + type;
+      // do not update if the new value is the same as old value
+      if (event !== 'cell_edit' && !/_clicked$/.test(event) && shinyData.hasOwnProperty(id) && shinyData[id] === JSON.stringify(value))
+        return;
+      shinyData[id] = JSON.stringify(value);
+      if (HTMLWidgets.shinyMode && Shiny.setInputValue) {
+        Shiny.setInputValue(id, value, opts);
+        if (!instance.clearInputs[id]) instance.clearInputs[id] = function() {
+          Shiny.setInputValue(id, null);
+        }
+      }
+
+      // HACK
+      if (event === "rows_selected" && !noCrosstalk) {
+        if (crosstalkOptions.group) {
+          var keys = crosstalkOptions.key;
+          var selectedKeys = null;
+          if (value) {
+            selectedKeys = [];
+            for (var i = 0; i < value.length; i++) {
+              // The value array's contents use 1-based row numbers, so we must
+              // convert to 0-based before indexing into the keys array.
+              selectedKeys.push(keys[value[i] - 1]);
+            }
+          }
+          instance.ctselectHandle.set(selectedKeys);
+        }
+      }
+    };
+
+    var addOne = function(x) {
+      return x.map(function(i) { return 1 + i; });
+    };
+
+    var unique = function(x) {
+      var ux = [];
+      $.each(x, function(i, el){
+        if ($.inArray(el, ux) === -1) ux.push(el);
+      });
+      return ux;
+    }
+
+    // change the row index of a cell
+    var tweakCellIndex = function(cell) {
+      var info = cell.index();
+      // some cell may not be valid. e.g, #759
+      // when using the RowGroup extension, datatables will
+      // generate the row label and the cells are not part of
+      // the data thus contain no row/col info
+      if (info === undefined)
+        return {row: null, col: null};
+      if (server) {
+        info.row = DT_rows_current[info.row];
+      } else {
+        info.row += 1;
+      }
+      return {row: info.row, col: info.column};
+    }
+
+    var cleanSelectedValues = function() {
+      changeInput('rows_selected', []);
+      changeInput('columns_selected', []);
+      changeInput('cells_selected', transposeArray2D([]), 'shiny.matrix');
+    }
+    // #828 we should clean the selection on the server-side when the table reloads
+    cleanSelectedValues();
+
+    // a flag to indicates if select extension is initialized or not
+    var flagSelectExt = table.settings()[0]._select !== undefined;
+    // the Select extension should only be used in the client mode and
+    // when the selection.mode is set to none
+    if (data.selection.mode === 'none' && !server && flagSelectExt) {
+      var updateRowsSelected = function() {
+        var rows = table.rows({selected: true});
+        var selected = [];
+        $.each(rows.indexes().toArray(), function(i, v) {
+          selected.push(v + 1);
+        });
+        changeInput('rows_selected', selected);
+      }
+      var updateColsSelected = function() {
+        var columns = table.columns({selected: true});
+        changeInput('columns_selected', columns.indexes().toArray());
+      }
+      var updateCellsSelected = function() {
+        var cells = table.cells({selected: true});
+        var selected = [];
+        cells.every(function() {
+          var row = this.index().row;
+          var col = this.index().column;
+          selected = selected.concat([[row + 1, col]]);
+        });
+        changeInput('cells_selected', transposeArray2D(selected), 'shiny.matrix');
+      }
+      table.on('select deselect', function(e, dt, type, indexes) {
+        updateRowsSelected();
+        updateColsSelected();
+        updateCellsSelected();
+      })
+    }
+
+    var selMode = data.selection.mode, selTarget = data.selection.target;
+    var selDisable = data.selection.selectable === false;
+    if (inArray(selMode, ['single', 'multiple'])) {
+      var selClass = inArray(data.style, ['bootstrap', 'bootstrap4']) ? 'active' : 'selected';
+      // selected1: row indices; selected2: column indices
+      var initSel = function(x) {
+        if (x === null || typeof x === 'boolean' || selTarget === 'cell') {
+          return {rows: [], cols: []};
+        } else if (selTarget === 'row') {
+          return {rows: $.makeArray(x), cols: []};
+        } else if (selTarget === 'column') {
+          return {rows: [], cols: $.makeArray(x)};
+        } else if (selTarget === 'row+column') {
+          return {rows: $.makeArray(x.rows), cols: $.makeArray(x.cols)};
+        }
+      }
+      var selected = data.selection.selected;
+      var selected1 = initSel(selected).rows, selected2 = initSel(selected).cols;
+      // selectable should contain either all positive or all non-positive values, not both
+      // positive values indicate "selectable" while non-positive values means "nonselectable"
+      // the assertion is performed on R side. (only column indicides could be zero which indicates
+      // the row name)
+      var selectable = data.selection.selectable;
+      var selectable1 = initSel(selectable).rows, selectable2 = initSel(selectable).cols;
+
+      // After users reorder the rows or filter the table, we cannot use the table index
+      // directly. Instead, we need this function to find out the rows between the two clicks.
+      // If user filter the table again between the start click and the end click, the behavior
+      // would be undefined, but it should not be a problem.
+      var shiftSelRowsIndex = function(start, end) {
+        var indexes = server ? DT_rows_all : table.rows({ search: 'applied' }).indexes().toArray();
+        start = indexes.indexOf(start); end = indexes.indexOf(end);
+        // if start is larger than end, we need to swap
+        if (start > end) {
+          var tmp = end; end = start; start = tmp;
+        }
+        return indexes.slice(start, end + 1);
+      }
+
+      var serverRowIndex = function(clientRowIndex) {
+        return server ? DT_rows_current[clientRowIndex] : clientRowIndex + 1;
+      }
+
+      // row, column, or cell selection
+      var lastClickedRow;
+      if (inArray(selTarget, ['row', 'row+column'])) {
+        // Get the current selected rows. It will also
+        // update the selected1's value based on the current row selection state
+        // Note we can't put this function inside selectRows() directly,
+        // the reason is method.selectRows() will override selected1's value but this
+        // function will add rows to selected1 (keep the existing selection), which is
+        // inconsistent with column and cell selection.
+        var selectedRows = function() {
+          var rows = table.rows('.' + selClass);
+          var idx = rows.indexes().toArray();
+          if (!server) {
+            selected1 = addOne(idx);
+            return selected1;
+          }
+          idx = idx.map(function(i) {
+            return DT_rows_current[i];
+          });
+          selected1 = selMode === 'multiple' ? unique(selected1.concat(idx)) : idx;
+          return selected1;
+        }
+        // Change selected1's value based on selectable1, then refresh the row state
+        var onlyKeepSelectableRows = function() {
+          if (selDisable) { // users can't select; useful when only want backend select
+            selected1 = [];
+            return;
+          }
+          if (selectable1.length === 0) return;
+          var nonselectable = selectable1[0] <= 0;
+          if (nonselectable) {
+            // should make selectable1 positive
+            selected1 = $(selected1).not(selectable1.map(function(i) { return -i; })).get();
+          } else {
+            selected1 = $(selected1).filter(selectable1).get();
+          }
+        }
+        // Change selected1's value based on selectable1, then
+        // refresh the row selection state according to values in selected1
+        var selectRows = function(ignoreSelectable) {
+          if (!ignoreSelectable) onlyKeepSelectableRows();
+          table.$('tr.' + selClass).removeClass(selClass);
+          if (selected1.length === 0) return;
+          if (server) {
+            table.rows({page: 'current'}).every(function() {
+              if (inArray(DT_rows_current[this.index()], selected1)) {
+                $(this.node()).addClass(selClass);
+              }
+            });
+          } else {
+            var selected0 = selected1.map(function(i) { return i - 1; });
+            $(table.rows(selected0).nodes()).addClass(selClass);
+          }
+        }
+        table.on('mousedown.dt', 'tbody tr', function(e) {
+          var $this = $(this), thisRow = table.row(this);
+          if (selMode === 'multiple') {
+            if (e.shiftKey && lastClickedRow !== undefined) {
+              // select or de-select depends on the last clicked row's status
+              var flagSel = !$this.hasClass(selClass);
+              var crtClickedRow = serverRowIndex(thisRow.index());
+              if (server) {
+                var rowsIndex = shiftSelRowsIndex(lastClickedRow, crtClickedRow);
+                // update current page's selClass
+                rowsIndex.map(function(i) {
+                  var rowIndex = DT_rows_current.indexOf(i);
+                  if (rowIndex >= 0) {
+                    var row = table.row(rowIndex).nodes().to$();
+                    var flagRowSel = !row.hasClass(selClass);
+                    if (flagSel === flagRowSel) row.toggleClass(selClass);
+                  }
+                });
+                // update selected1
+                if (flagSel) {
+                  selected1 = unique(selected1.concat(rowsIndex));
+                } else {
+                  selected1 = selected1.filter(function(index) {
+                    return !inArray(index, rowsIndex);
+                  });
+                }
+              } else {
+                // js starts from 0
+                shiftSelRowsIndex(lastClickedRow - 1, crtClickedRow - 1).map(function(value) {
+                  var row = table.row(value).nodes().to$();
+                  var flagRowSel = !row.hasClass(selClass);
+                  if (flagSel === flagRowSel) row.toggleClass(selClass);
+                });
+              }
+              e.preventDefault();
+            } else {
+              $this.toggleClass(selClass);
+            }
+          } else {
+            if ($this.hasClass(selClass)) {
+              $this.removeClass(selClass);
+            } else {
+              table.$('tr.' + selClass).removeClass(selClass);
+              $this.addClass(selClass);
+            }
+          }
+          if (server && !$this.hasClass(selClass)) {
+            var id = DT_rows_current[thisRow.index()];
+            // remove id from selected1 since its class .selected has been removed
+            if (inArray(id, selected1)) selected1.splice($.inArray(id, selected1), 1);
+          }
+          selectedRows(); // update selected1's value based on selClass
+          selectRows(false); // only keep the selectable rows
+          changeInput('rows_selected', selected1);
+          changeInput('row_last_clicked', serverRowIndex(thisRow.index()), null, null, {priority: 'event'});
+          lastClickedRow = serverRowIndex(thisRow.index());
+        });
+        selectRows(false);  // in case users have specified pre-selected rows
+        // restore selected rows after the table is redrawn (e.g. sort/search/page);
+        // client-side tables will preserve the selections automatically; for
+        // server-side tables, we have to *real* row indices are in `selected1`
+        changeInput('rows_selected', selected1);
+        if (server) table.on('draw.dt', function(e) { selectRows(false); });
+        methods.selectRows = function(selected, ignoreSelectable) {
+          selected1 = $.makeArray(selected);
+          selectRows(ignoreSelectable);
+          changeInput('rows_selected', selected1);
+        }
+      }
+
+      if (inArray(selTarget, ['column', 'row+column'])) {
+        if (selTarget === 'row+column') {
+          $(table.columns().footer()).css('cursor', 'pointer');
+        }
+        // update selected2's value based on selectable2
+        var onlyKeepSelectableCols = function() {
+          if (selDisable) { // users can't select; useful when only want backend select
+            selected2 = [];
+            return;
+          }
+          if (selectable2.length === 0) return;
+          var nonselectable = selectable2[0] <= 0;
+          if (nonselectable) {
+            // need to make selectable2 positive
+            selected2 = $(selected2).not(selectable2.map(function(i) { return -i; })).get();
+          } else {
+            selected2 = $(selected2).filter(selectable2).get();
+          }
+        }
+        // update selected2 and then
+        // refresh the col selection state according to values in selected2
+        var selectCols = function(ignoreSelectable) {
+          if (!ignoreSelectable) onlyKeepSelectableCols();
+          // if selected2 is not a valide index (e.g., larger than the column number)
+          // table.columns(selected2) will fail and result in a blank table
+          // this is different from the table.rows(), where the out-of-range indexes
+          // doesn't affect at all
+          selected2 = $(selected2).filter(table.columns().indexes()).get();
+          table.columns().nodes().flatten().to$().removeClass(selClass);
+          if (selected2.length > 0)
+            table.columns(selected2).nodes().flatten().to$().addClass(selClass);
+        }
+        var callback = function() {
+          var colIdx = selTarget === 'column' ? table.cell(this).index().column :
+              $.inArray(this, table.columns().footer()),
+              thisCol = $(table.column(colIdx).nodes());
+          if (colIdx === -1) return;
+          if (thisCol.hasClass(selClass)) {
+            thisCol.removeClass(selClass);
+            selected2.splice($.inArray(colIdx, selected2), 1);
+          } else {
+            if (selMode === 'single') $(table.cells().nodes()).removeClass(selClass);
+            thisCol.addClass(selClass);
+            selected2 = selMode === 'single' ? [colIdx] : unique(selected2.concat([colIdx]));
+          }
+          selectCols(false); // update selected2 based on selectable
+          changeInput('columns_selected', selected2);
+        }
+        if (selTarget === 'column') {
+          $(table.table().body()).on('click.dt', 'td', callback);
+        } else {
+          $(table.table().footer()).on('click.dt', 'tr th', callback);
+        }
+        selectCols(false);  // in case users have specified pre-selected columns
+        changeInput('columns_selected', selected2);
+        if (server) table.on('draw.dt', function(e) { selectCols(false); });
+        methods.selectColumns = function(selected, ignoreSelectable) {
+          selected2 = $.makeArray(selected);
+          selectCols(ignoreSelectable);
+          changeInput('columns_selected', selected2);
+        }
+      }
+
+      if (selTarget === 'cell') {
+        var selected3 = [], selectable3 = [];
+        if (selected !== null) selected3 = selected;
+        if (selectable !== null && typeof selectable !== 'boolean') selectable3 = selectable;
+        var findIndex = function(ij, sel) {
+          for (var i = 0; i < sel.length; i++) {
+            if (ij[0] === sel[i][0] && ij[1] === sel[i][1]) return i;
+          }
+          return -1;
+        }
+         // Change selected3's value based on selectable3, then refresh the cell state
+        var onlyKeepSelectableCells = function() {
+          if (selDisable) { // users can't select; useful when only want backend select
+            selected3 = [];
+            return;
+          }
+          if (selectable3.length === 0) return;
+          var nonselectable = selectable3[0][0] <= 0;
+          var out = [];
+          if (nonselectable) {
+            selected3.map(function(ij) {
+              // should make selectable3 positive
+              if (findIndex([-ij[0], -ij[1]], selectable3) === -1) { out.push(ij); }
+            });
+          } else {
+            selected3.map(function(ij) {
+              if (findIndex(ij, selectable3) > -1) { out.push(ij); }
+            });
+          }
+          selected3 = out;
+        }
+        // Change selected3's value based on selectable3, then
+        // refresh the cell selection state according to values in selected3
+        var selectCells = function(ignoreSelectable) {
+          if (!ignoreSelectable) onlyKeepSelectableCells();
+          table.$('td.' + selClass).removeClass(selClass);
+          if (selected3.length === 0) return;
+          if (server) {
+            table.cells({page: 'current'}).every(function() {
+              var info = tweakCellIndex(this);
+              if (findIndex([info.row, info.col], selected3) > -1)
+                $(this.node()).addClass(selClass);
+            });
+          } else {
+            selected3.map(function(ij) {
+              $(table.cell(ij[0] - 1, ij[1]).node()).addClass(selClass);
+            });
+          }
+        };
+        table.on('click.dt', 'tbody td', function() {
+          var $this = $(this), info = tweakCellIndex(table.cell(this));
+          if ($this.hasClass(selClass)) {
+            $this.removeClass(selClass);
+            selected3.splice(findIndex([info.row, info.col], selected3), 1);
+          } else {
+            if (selMode === 'single') $(table.cells().nodes()).removeClass(selClass);
+            $this.addClass(selClass);
+            selected3 = selMode === 'single' ? [[info.row, info.col]] :
+              unique(selected3.concat([[info.row, info.col]]));
+          }
+          selectCells(false); // must call this to update selected3 based on selectable3
+          changeInput('cells_selected', transposeArray2D(selected3), 'shiny.matrix');
+        });
+        selectCells(false);  // in case users have specified pre-selected columns
+        changeInput('cells_selected', transposeArray2D(selected3), 'shiny.matrix');
+
+        if (server) table.on('draw.dt', function(e) { selectCells(false); });
+        methods.selectCells = function(selected, ignoreSelectable) {
+          selected3 = selected ? selected : [];
+          selectCells(ignoreSelectable);
+          changeInput('cells_selected', transposeArray2D(selected3), 'shiny.matrix');
+        }
+      }
+    }
+
+    // expose some table info to Shiny
+    var updateTableInfo = function(e, settings) {
+      // TODO: is anyone interested in the page info?
+      // changeInput('page_info', table.page.info());
+      var updateRowInfo = function(id, modifier) {
+        var idx;
+        if (server) {
+          idx = modifier.page === 'current' ? DT_rows_current : DT_rows_all;
+        } else {
+          var rows = table.rows($.extend({
+            search: 'applied',
+            page: 'all'
+          }, modifier));
+          idx = addOne(rows.indexes().toArray());
+        }
+        changeInput('rows' + '_' + id, idx);
+      };
+      updateRowInfo('current', {page: 'current'});
+      updateRowInfo('all', {});
+    }
+    table.on('draw.dt', updateTableInfo);
+    updateTableInfo();
+
+    // state info
+    table.on('draw.dt column-visibility.dt', function() {
+      changeInput('state', table.state());
+    });
+    changeInput('state', table.state());
+
+    // search info
+    var updateSearchInfo = function() {
+      changeInput('search', table.search());
+      if (filterRow) changeInput('search_columns', filterRow.toArray().map(function(td) {
+        return $(td).find('input').first().val();
+      }));
+    }
+    table.on('draw.dt', updateSearchInfo);
+    updateSearchInfo();
+
+    var cellInfo = function(thiz) {
+      var info = tweakCellIndex(table.cell(thiz));
+      info.value = table.cell(thiz).data();
+      return info;
+    }
+    // the current cell clicked on
+    table.on('click.dt', 'tbody td', function() {
+      changeInput('cell_clicked', cellInfo(this), null, null, {priority: 'event'});
+    })
+    changeInput('cell_clicked', {});
+
+    // do not trigger table selection when clicking on links unless they have classes
+    table.on('click.dt', 'tbody td a', function(e) {
+      if (this.className === '') e.stopPropagation();
+    });
+
+    methods.addRow = function(data, rowname, resetPaging) {
+      var n = table.columns().indexes().length, d = n - data.length;
+      if (d === 1) {
+        data = rowname.concat(data)
+      } else if (d !== 0) {
+        console.log(data);
+        console.log(table.columns().indexes());
+        throw 'New data must be of the same length as current data (' + n + ')';
+      };
+      table.row.add(data).draw(resetPaging);
+    }
+
+    methods.updateSearch = function(keywords) {
+      if (keywords.global !== null)
+        $(table.table().container()).find('input[type=search]').first()
+             .val(keywords.global).trigger('input');
+      var columns = keywords.columns;
+      if (!filterRow || columns === null) return;
+      filterRow.toArray().map(function(td, i) {
+        var v = typeof columns === 'string' ? columns : columns[i];
+        if (typeof v === 'undefined') {
+          console.log('The search keyword for column ' + i + ' is undefined')
+          return;
+        }
+        $(td).find('input').first().val(v).trigger('input');
+        searchColumn(i, v);
+      });
+      table.draw();
+    }
+
+    methods.hideCols = function(hide, reset) {
+      if (reset) table.columns().visible(true, false);
+      table.columns(hide).visible(false);
+    }
+
+    methods.showCols = function(show, reset) {
+      if (reset) table.columns().visible(false, false);
+      table.columns(show).visible(true);
+    }
+
+    methods.colReorder = function(order, origOrder) {
+      table.colReorder.order(order, origOrder);
+    }
+
+    methods.selectPage = function(page) {
+      if (table.page.info().pages < page || page < 1) {
+        throw 'Selected page is out of range';
+      };
+      table.page(page - 1).draw(false);
+    }
+
+    methods.reloadData = function(resetPaging, clearSelection) {
+      // empty selections first if necessary
+      if (methods.selectRows && inArray('row', clearSelection)) methods.selectRows([]);
+      if (methods.selectColumns && inArray('column', clearSelection)) methods.selectColumns([]);
+      if (methods.selectCells && inArray('cell', clearSelection)) methods.selectCells([]);
+      table.ajax.reload(null, resetPaging);
+    }
+
+    // update table filters (set new limits of sliders)
+    methods.updateFilters = function(newProps) {
+      // loop through each filter in the filter row
+      filterRow.each(function(i, td) {
+        var k = i;
+        if (filterRow.length > newProps.length) {
+          if (i === 0) return;  // first column is row names
+          k = i - 1;
+        }
+        // Update the filters to reflect the updated data.
+        // Allow "falsy" (e.g. NULL) to signify a no-op.
+        if (newProps[k]) {
+          setFilterProps(td, newProps[k]);
+        }
+      });
+    };
+
+    table.shinyMethods = methods;
+  },
+  resize: function(el, width, height, instance) {
+    if (instance.data) this.renderValue(el, instance.data, instance);
+
+    // dynamically adjust height if fillContainer = TRUE
+    if (instance.fillContainer)
+      this.fillAvailableHeight(el, height);
+
+    this.adjustWidth(el);
+  },
+
+  // dynamically set the scroll body to fill available height
+  // (used with fillContainer = TRUE)
+  fillAvailableHeight: function(el, availableHeight) {
+
+    // see how much of the table is occupied by header/footer elements
+    // and use that to compute a target scroll body height
+    var dtWrapper = $(el).find('div.dataTables_wrapper');
+    var dtScrollBody = $(el).find($('div.dataTables_scrollBody'));
+    var framingHeight = dtWrapper.innerHeight() - dtScrollBody.innerHeight();
+    var scrollBodyHeight = availableHeight - framingHeight;
+
+    // we need to set `max-height` to none as datatables library now sets this
+    // to a fixed height, disabling the ability to resize to fill the window,
+    // as it will be set to a fixed 100px under such circumstances, e.g., RStudio IDE,
+    // or FlexDashboard
+    // see https://github.com/rstudio/DT/issues/951#issuecomment-1026464509
+    dtScrollBody.css('max-height', 'none');
+    // set the height
+    dtScrollBody.height(scrollBodyHeight + 'px');
+  },
+
+  // adjust the width of columns; remove the hard-coded widths on table and the
+  // scroll header when scrollX/Y are enabled
+  adjustWidth: function(el) {
+    var $el = $(el), table = $el.data('datatable');
+    if (table) table.columns.adjust();
+    $el.find('.dataTables_scrollHeadInner').css('width', '')
+        .children('table').css('margin-left', '');
+  }
+});
+
+  if (!HTMLWidgets.shinyMode) return;
+
+  Shiny.addCustomMessageHandler('datatable-calls', function(data) {
+    var id = data.id;
+    var el = document.getElementById(id);
+    var table = el ? $(el).data('datatable') : null;
+    if (!table) {
+      console.log("Couldn't find table with id " + id);
+      return;
+    }
+
+    var methods = table.shinyMethods, call = data.call;
+    if (methods[call.method]) {
+      methods[call.method].apply(table, call.args);
+    } else {
+      console.log("Unknown method " + call.method);
+    }
+  });
+
+})();
diff --git a/articles/workflow.html b/articles/workflow.html
index 7fd5feef..5b4a0146 100644
--- a/articles/workflow.html
+++ b/articles/workflow.html
@@ -80,7 +80,7 @@
                         <h4 data-toc-skip class="author">Michael
 Rustler</h4>
             
-            <h4 data-toc-skip class="date">2023-10-05</h4>
+            <h4 data-toc-skip class="date">2023-10-06</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/KWB-R/kwb.geosalz/blob/HEAD/vignettes/workflow.Rmd" class="external-link"><code>vignettes/workflow.Rmd</code></a></small>
       <div class="d-none name"><code>workflow.Rmd</code></div>
@@ -503,7 +503,7 @@ <h3 id="plattform">Plattform<a class="anchor" aria-label="anchor" href="#plattfo
 </tr>
 <tr class="odd">
 <td align="left">date</td>
-<td align="left">2023-10-05</td>
+<td align="left">2023-10-06</td>
 </tr>
 <tr class="even">
 <td align="left">pandoc</td>
diff --git a/gwl_data.csv b/gwl_data.csv
index f5736a5c..baf49de5 100644
--- a/gwl_data.csv
+++ b/gwl_data.csv
@@ -14085,6 +14085,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 5036;2023-10-02;GW-Stand;m ü. NHN);31,81
 5036;2023-10-03;GW-Stand;m ü. NHN);31,81
 5036;2023-10-04;GW-Stand;m ü. NHN);31,80
+5036;2023-10-05;GW-Stand;m ü. NHN);31,81
 5039;1996-02-03;GW-Stand;m ü. NHN);32,30
 5039;1996-02-04;GW-Stand;m ü. NHN);32,30
 5039;1996-02-05;GW-Stand;m ü. NHN);32,30
@@ -22290,6 +22291,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 5039;2023-10-02;GW-Stand;m ü. NHN);32,00
 5039;2023-10-03;GW-Stand;m ü. NHN);32,00
 5039;2023-10-04;GW-Stand;m ü. NHN);32,00
+5039;2023-10-05;GW-Stand;m ü. NHN);32,00
 5040;1996-02-03;GW-Stand;m ü. NHN);32,08
 5040;1996-02-04;GW-Stand;m ü. NHN);32,07
 5040;1996-02-05;GW-Stand;m ü. NHN);32,07
@@ -31416,6 +31418,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 5040;2023-10-02;GW-Stand;m ü. NHN);31,83
 5040;2023-10-03;GW-Stand;m ü. NHN);31,83
 5040;2023-10-04;GW-Stand;m ü. NHN);31,83
+5040;2023-10-05;GW-Stand;m ü. NHN);31,83
 5042;1996-03-22;GW-Stand;m ü. NHN);32,36
 5042;1996-03-23;GW-Stand;m ü. NHN);32,36
 5042;1996-03-24;GW-Stand;m ü. NHN);32,37
@@ -40101,6 +40104,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 5042;2023-10-02;GW-Stand;m ü. NHN);32,12
 5042;2023-10-03;GW-Stand;m ü. NHN);32,12
 5042;2023-10-04;GW-Stand;m ü. NHN);32,12
+5042;2023-10-05;GW-Stand;m ü. NHN);32,12
 5049;1996-02-03;GW-Stand;m ü. NHN);31,65
 5049;1996-02-04;GW-Stand;m ü. NHN);31,65
 5049;1996-02-05;GW-Stand;m ü. NHN);31,66
@@ -49380,6 +49384,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 5049;2023-10-02;GW-Stand;m ü. NHN);31,68
 5049;2023-10-03;GW-Stand;m ü. NHN);31,68
 5049;2023-10-04;GW-Stand;m ü. NHN);31,66
+5049;2023-10-05;GW-Stand;m ü. NHN);31,66
 5428;1939-11-14;GW-Stand;m ü. NHN);32,19
 5428;1945-08-01;GW-Stand;m ü. NHN);32,33
 5428;1945-09-01;GW-Stand;m ü. NHN);32,25
@@ -85066,6 +85071,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 6743;2023-10-02;GW-Stand;m ü. NHN);32,25
 6743;2023-10-03;GW-Stand;m ü. NHN);32,25
 6743;2023-10-04;GW-Stand;m ü. NHN);32,25
+6743;2023-10-05;GW-Stand;m ü. NHN);32,26
 8693;1985-11-15;GW-Stand;m ü. NHN);32,79
 8693;1986-05-15;GW-Stand;m ü. NHN);33,11
 8693;1986-11-15;GW-Stand;m ü. NHN);33,30
@@ -105852,6 +105858,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 10421;2023-10-02;GW-Stand;m ü. NHN);33,02
 10421;2023-10-03;GW-Stand;m ü. NHN);33,03
 10421;2023-10-04;GW-Stand;m ü. NHN);33,01
+10421;2023-10-05;GW-Stand;m ü. NHN);33,02
 15065;2004-11-01;GW-Stand;m ü. NHN);34,39
 15065;2004-11-02;GW-Stand;m ü. NHN);34,39
 15065;2004-11-03;GW-Stand;m ü. NHN);34,40
@@ -132063,6 +132070,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 15160;2023-10-02;GW-Stand;m ü. NHN);31,99
 15160;2023-10-03;GW-Stand;m ü. NHN);32,00
 15160;2023-10-04;GW-Stand;m ü. NHN);32,00
+15160;2023-10-05;GW-Stand;m ü. NHN);32,00
 15161;2006-04-25;GW-Stand;m ü. NHN);32,50
 15161;2006-04-26;GW-Stand;m ü. NHN);32,52
 15161;2006-04-27;GW-Stand;m ü. NHN);32,52
@@ -138376,11 +138384,19 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 15161;2023-09-20;GW-Stand;m ü. NHN);32,27
 15161;2023-09-21;GW-Stand;m ü. NHN);32,27
 15161;2023-09-22;GW-Stand;m ü. NHN);32,27
+15161;2023-09-23;GW-Stand;m ü. NHN);32,27
+15161;2023-09-24;GW-Stand;m ü. NHN);32,27
+15161;2023-09-25;GW-Stand;m ü. NHN);32,27
+15161;2023-09-26;GW-Stand;m ü. NHN);32,27
+15161;2023-09-27;GW-Stand;m ü. NHN);32,27
+15161;2023-09-28;GW-Stand;m ü. NHN);32,27
+15161;2023-09-29;GW-Stand;m ü. NHN);32,27
 15161;2023-09-30;GW-Stand;m ü. NHN);32,24
 15161;2023-10-01;GW-Stand;m ü. NHN);32,24
 15161;2023-10-02;GW-Stand;m ü. NHN);32,24
 15161;2023-10-03;GW-Stand;m ü. NHN);32,24
 15161;2023-10-04;GW-Stand;m ü. NHN);32,24
+15161;2023-10-05;GW-Stand;m ü. NHN);32,25
 15162;2006-04-25;GW-Stand;m ü. NHN);32,40
 15162;2006-04-26;GW-Stand;m ü. NHN);32,41
 15162;2006-04-27;GW-Stand;m ü. NHN);32,41
@@ -144659,11 +144675,16 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 15162;2023-09-23;GW-Stand;m ü. NHN);32,22
 15162;2023-09-24;GW-Stand;m ü. NHN);32,21
 15162;2023-09-25;GW-Stand;m ü. NHN);32,22
+15162;2023-09-26;GW-Stand;m ü. NHN);32,23
+15162;2023-09-27;GW-Stand;m ü. NHN);32,23
+15162;2023-09-28;GW-Stand;m ü. NHN);32,23
+15162;2023-09-29;GW-Stand;m ü. NHN);32,23
 15162;2023-09-30;GW-Stand;m ü. NHN);32,17
 15162;2023-10-01;GW-Stand;m ü. NHN);32,17
 15162;2023-10-02;GW-Stand;m ü. NHN);32,17
 15162;2023-10-03;GW-Stand;m ü. NHN);32,18
 15162;2023-10-04;GW-Stand;m ü. NHN);32,17
+15162;2023-10-05;GW-Stand;m ü. NHN);32,18
 15163;2006-04-25;GW-Stand;m ü. NHN);32,42
 15163;2006-04-26;GW-Stand;m ü. NHN);32,44
 15163;2006-04-27;GW-Stand;m ü. NHN);32,45
@@ -150566,6 +150587,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 15163;2023-10-02;GW-Stand;m ü. NHN);32,29
 15163;2023-10-03;GW-Stand;m ü. NHN);32,29
 15163;2023-10-04;GW-Stand;m ü. NHN);32,29
+15163;2023-10-05;GW-Stand;m ü. NHN);32,30
 15180;2006-12-18;GW-Stand;m ü. NHN);32,46
 15180;2006-12-19;GW-Stand;m ü. NHN);32,46
 15180;2006-12-20;GW-Stand;m ü. NHN);32,46
@@ -156624,6 +156646,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 15180;2023-10-02;GW-Stand;m ü. NHN);32,25
 15180;2023-10-03;GW-Stand;m ü. NHN);32,25
 15180;2023-10-04;GW-Stand;m ü. NHN);32,28
+15180;2023-10-05;GW-Stand;m ü. NHN);32,29
 15181;2006-12-18;GW-Stand;m ü. NHN);32,15
 15181;2006-12-19;GW-Stand;m ü. NHN);32,15
 15181;2006-12-20;GW-Stand;m ü. NHN);32,15
@@ -162653,6 +162676,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 15181;2023-10-02;GW-Stand;m ü. NHN);32,02
 15181;2023-10-03;GW-Stand;m ü. NHN);32,02
 15181;2023-10-04;GW-Stand;m ü. NHN);32,03
+15181;2023-10-05;GW-Stand;m ü. NHN);32,03
 17904;2010-10-27;GW-Stand;m ü. NHN);32,54
 17904;2010-10-28;GW-Stand;m ü. NHN);32,54
 17904;2010-10-29;GW-Stand;m ü. NHN);32,54
@@ -167080,6 +167104,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 17904;2023-10-02;GW-Stand;m ü. NHN);32,04
 17904;2023-10-03;GW-Stand;m ü. NHN);32,04
 17904;2023-10-04;GW-Stand;m ü. NHN);32,11
+17904;2023-10-05;GW-Stand;m ü. NHN);32,12
 17905;2011-12-26;GW-Stand;m ü. NHN);32,57
 17905;2011-12-27;GW-Stand;m ü. NHN);32,57
 17905;2011-12-28;GW-Stand;m ü. NHN);32,56
@@ -171098,6 +171123,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 17905;2023-10-02;GW-Stand;m ü. NHN);31,92
 17905;2023-10-03;GW-Stand;m ü. NHN);31,92
 17905;2023-10-04;GW-Stand;m ü. NHN);31,95
+17905;2023-10-05;GW-Stand;m ü. NHN);31,94
 17907;2011-09-28;GW-Stand;m ü. NHN);32,77
 17907;2011-09-29;GW-Stand;m ü. NHN);32,77
 17907;2011-09-30;GW-Stand;m ü. NHN);32,76
@@ -175377,6 +175403,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 17907;2023-10-02;GW-Stand;m ü. NHN);32,20
 17907;2023-10-03;GW-Stand;m ü. NHN);32,20
 17907;2023-10-04;GW-Stand;m ü. NHN);32,28
+17907;2023-10-05;GW-Stand;m ü. NHN);32,26
 17908;2011-08-19;GW-Stand;m ü. NHN);32,31
 17908;2011-08-20;GW-Stand;m ü. NHN);32,31
 17908;2011-08-21;GW-Stand;m ü. NHN);32,32
@@ -179547,6 +179574,7 @@ Messstellennummer;Datum;Parameter;Einheit;Messwert
 17908;2023-10-02;GW-Stand;m ü. NHN);31,75
 17908;2023-10-03;GW-Stand;m ü. NHN);31,75
 17908;2023-10-04;GW-Stand;m ü. NHN);31,80
+17908;2023-10-05;GW-Stand;m ü. NHN);31,79
 99868;1916-04-03;GW-Stand;m ü. NHN);32,56
 99868;1916-05-01;GW-Stand;m ü. NHN);32,50
 99868;1916-06-02;GW-Stand;m ü. NHN);32,43
diff --git a/gwl_data_stats.csv b/gwl_data_stats.csv
index 3d3ebb01..e86b1dfb 100644
--- a/gwl_data_stats.csv
+++ b/gwl_data_stats.csv
@@ -1,29 +1,29 @@
 Nummer;Bezirk;Betreiber;Auspraegung;Grundwasserleiter;Gelaendeoberkante_GOK_m_ue_NHN;Rohroberkante_m_ue_NHN;Filteroberkante_m_u_GOK;Filterunterkante_m_u_GOK;start;end;period_days;n;interval_days
 3155;Treptow-Köpenick;Senat;GW-Stand;Hauptgrundwasserleiter (GWL 1.3 + 2);34.94;35.76;3.50;10.45;2016-01-20;2023-05-19;2676;2442;1
 3156;Treptow-Köpenick;Senat;GW-Stand;Hauptgrundwasserleiter (GWL 1.3 + 2);34.94;35.68;31.00;40.00;2016-01-20;2023-05-19;2676;2534;1
-5036;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);32.84;33.59;6.00;8.00;1994-12-21;2023-10-04;10514;9110;1
-5039;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);33.42;34.21;7.50;9.50;1996-02-03;2023-10-04;10105;8205;1
-5040;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);33.66;34.42;7.70;9.70;1996-02-03;2023-10-04;10105;9126;1
-5042;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);33.54;34.30;7.00;9.00;1996-03-22;2023-10-04;10057;8685;1
-5049;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);35.28;36.03;7.00;9.00;1996-02-03;2023-10-04;10105;9279;1
+5036;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);32.84;33.59;6.00;8.00;1994-12-21;2023-10-05;10515;9111;1
+5039;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);33.42;34.21;7.50;9.50;1996-02-03;2023-10-05;10106;8206;1
+5040;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);33.66;34.42;7.70;9.70;1996-02-03;2023-10-05;10106;9127;1
+5042;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);33.54;34.30;7.00;9.00;1996-03-22;2023-10-05;10058;8686;1
+5049;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);35.28;36.03;7.00;9.00;1996-02-03;2023-10-05;10106;9280;1
 5428;Treptow-Köpenick;Senat;GW-Stand;Hauptgrundwasserleiter (GWL 1.3 + 2);36.03;36.40;9.00;10.00;1939-11-14;2023-09-01;30607;9293;3
 5430;Treptow-Köpenick;Senat;GW-Stand;Hauptgrundwasserleiter (GWL 1.3 + 2);34.61;34.50;9.00;10.00;1939-11-15;2023-09-01;30606;9348;3
 5431;Treptow-Köpenick;Senat;GW-Stand;Hauptgrundwasserleiter (GWL 1.3 + 2);36.21;36.00;9.00;10.00;1939-11-24;2023-09-01;30597;8578;4
-6743;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell;Hauptgrundwasserleiter (GWL 1.3 + 2);32.95;33.55;1.59;2.59;1996-04-16;2023-10-04;10032;8467;1
+6743;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell;Hauptgrundwasserleiter (GWL 1.3 + 2);32.95;33.55;1.59;2.59;1996-04-16;2023-10-05;10033;8468;1
 8693;Treptow-Köpenick;Senat;GW-Stand;Hauptgrundwasserleiter (GWL 1.3 + 2);35.05;35.94;12.90;14.90;1985-11-15;2023-09-01;13804;8416;2
 8964;Treptow-Köpenick;Senat;GW-Stand + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);48.84;49.51;34.00;36.00;1977-01-15;2023-09-01;17030;6794;3
-10421;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);34.91;35.58;15.00;16.95;2008-04-30;2023-10-04;5635;5576;1
+10421;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);34.91;35.58;15.00;16.95;2008-04-30;2023-10-05;5636;5577;1
 15065;Treptow-Köpenick;Senat;GW-Stand + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);45.26;46.08;30.05;32.05;2004-11-01;2023-09-01;6878;6758;1
 15152;Treptow-Köpenick;Senat;GW-Stand + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);34.19;35.23;32.00;34.00;2005-02-05;2023-09-01;6782;6557;1
 15153;Treptow-Köpenick;Senat;GW-Stand + GW-Güte;Elsterzeitl. GW-Leiter (GWL 3);34.30;35.19;63.85;65.85;2005-02-05;2023-09-01;6782;6644;1
-15160;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Elsterzeitl. GW-Leiter (GWL 3);35.93;36.76;86.00;88.00;2006-04-25;2023-10-04;6371;6252;1
-15161;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell;Hauptgrundwasserleiter (GWL 1.3 + 2);36.00;36.79;36.00;37.95;2006-04-25;2023-10-04;6371;6318;1
-15162;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Elsterzeitl. GW-Leiter (GWL 3);36.11;36.94;78.00;80.00;2006-04-25;2023-10-04;6371;6283;1
-15163;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);36.14;37.12;10.00;11.95;2006-04-25;2023-10-04;6371;5902;1
-15180;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell;Hauptgrundwasserleiter (GWL 1.3 + 2);33.09;33.84;6.00;7.95;2006-12-18;2023-10-04;6134;6058;1
-15181;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell;Hauptgrundwasserleiter (GWL 1.3 + 2);34.18;34.90;6.00;7.95;2006-12-18;2023-10-04;6134;6029;1
-17904;Treptow-Köpenick;Senat;GW-Stand;Moor-Messstelle;32.45;33.43;0.02;1.02;2010-10-27;2023-10-04;4725;4427;1
-17905;Treptow-Köpenick;Senat;GW-Stand;Moor-Messstelle;32.25;33.81;-0.06;0.94;2011-12-26;2023-10-04;4300;4018;1
-17907;Treptow-Köpenick;Senat;GW-Stand;Moor-Messstelle;32.51;33.94;0.07;1.07;2011-09-28;2023-10-04;4389;4279;1
-17908;Treptow-Köpenick;Senat;GW-Stand;Moor-Messstelle;32.12;33.23;-0.11;0.89;2011-08-19;2023-10-04;4429;4170;1
+15160;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Elsterzeitl. GW-Leiter (GWL 3);35.93;36.76;86.00;88.00;2006-04-25;2023-10-05;6372;6253;1
+15161;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell;Hauptgrundwasserleiter (GWL 1.3 + 2);36.00;36.79;36.00;37.95;2006-04-25;2023-10-05;6372;6326;1
+15162;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Elsterzeitl. GW-Leiter (GWL 3);36.11;36.94;78.00;80.00;2006-04-25;2023-10-05;6372;6288;1
+15163;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell + GW-Güte;Hauptgrundwasserleiter (GWL 1.3 + 2);36.14;37.12;10.00;11.95;2006-04-25;2023-10-05;6372;5903;1
+15180;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell;Hauptgrundwasserleiter (GWL 1.3 + 2);33.09;33.84;6.00;7.95;2006-12-18;2023-10-05;6135;6059;1
+15181;Treptow-Köpenick;Senat;GW-Stand, tagesaktuell;Hauptgrundwasserleiter (GWL 1.3 + 2);34.18;34.90;6.00;7.95;2006-12-18;2023-10-05;6135;6030;1
+17904;Treptow-Köpenick;Senat;GW-Stand;Moor-Messstelle;32.45;33.43;0.02;1.02;2010-10-27;2023-10-05;4726;4428;1
+17905;Treptow-Köpenick;Senat;GW-Stand;Moor-Messstelle;32.25;33.81;-0.06;0.94;2011-12-26;2023-10-05;4301;4019;1
+17907;Treptow-Köpenick;Senat;GW-Stand;Moor-Messstelle;32.51;33.94;0.07;1.07;2011-09-28;2023-10-05;4390;4280;1
+17908;Treptow-Köpenick;Senat;GW-Stand;Moor-Messstelle;32.12;33.23;-0.11;0.89;2011-08-19;2023-10-05;4430;4171;1
 99868;Treptow-Köpenick;Senat;GW-Stand;Hauptgrundwasserleiter (GWL 1.3 + 2);35.08;35.81;12.00;14.00;1916-04-03;2023-09-01;39232;5917;7
diff --git a/map_gwl.html b/map_gwl.html
index d54dacf1..aae806e9 100644
--- a/map_gwl.html
+++ b/map_gwl.html
@@ -5158,9 +5158,9 @@
 </head>
 <body style="background-color: white;">
 <div id="htmlwidget_container">
-  <div class="leaflet html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-66e672f1f70da76e1693" style="width:100%;height:400px;"></div>
+  <div class="leaflet html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-1f2620da7934a1813073" style="width:100%;height:400px;"></div>
 </div>
-<script type="application/json" data-for="htmlwidget-66e672f1f70da76e1693">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"&copy; <a href=\"https://openstreetmap.org/copyright/\">OpenStreetMap<\/a>,  <a href=\"https://opendatacommons.org/licenses/odbl/\">ODbL<\/a>"}]},{"method":"addProviderTiles","args":["CartoDB.Positron",null,null,{"errorTileUrl":"","noWrap":false,"detectRetina":false}]},{"method":"addPolygons","args":[[[[{"lng":[13.49052331303309,13.55656477828546,13.75223786802176,13.72413942177274,13.65567474560967,13.64104107436871,13.49052331303309],"lat":[52.35855418956042,52.45714527695588,52.42516025267206,52.38573100757936,52.33629010402952,52.33409505334338,52.35855418956042]}]]],null,null,{"interactive":true,"className":"","stroke":true,"color":"red","weight":5,"opacity":0.5,"fill":false,"fillColor":"red","fillOpacity":0.2,"smoothFactor":1,"noClip":false},null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]},{"method":"addCircles","args":[[52.41843042114484,52.4184216057464,52.4209237442167,52.41725754103629,52.42760974215699,52.4214670262505,52.43185987543207,52.44756203401442,52.40071343763205,52.39271612526233,52.37477428831872,52.41388001325272,52.40294938394629,52.4163156689222,52.39929480082213,52.41108829288785,52.4110703177302,52.37325262574509,52.37322549533571,52.34335860504333,52.34337674883282,52.40390167355837,52.42378215700153,52.421276056833,52.41660222737509,52.37475097019721,52.4197374819415,52.45109314702039],[13.6143473135431,13.61436229503642,13.63001918856354,13.6856429039093,13.60513157981924,13.71276791633278,13.61485280688708,13.55728126743324,13.58435746342678,13.58775847562895,13.66629388048661,13.57493719350043,13.53396760370674,13.56002183894481,13.55406450594287,13.58354006728792,13.58354064323136,13.65895064254883,13.65893677439203,13.64800856992895,13.64802269654861,13.73049312892207,13.69431702964457,13.7117440650659,13.68411842918234,13.6666177743623,13.63317353233464,13.57264717431442],10,null,null,{"interactive":true,"className":"","stroke":true,"color":"blue","weight":5,"opacity":0.4,"fill":true,"fillColor":"blue","fillOpacity":0.2},null,null,["<p>Nummer: 3155<\/p><p>start: 2016-01-20<\/p><p>end: 2023-05-19<\/p><p>n: 2442<\/p><p>interval: 1<\/p>","<p>Nummer: 3156<\/p><p>start: 2016-01-20<\/p><p>end: 2023-05-19<\/p><p>n: 2534<\/p><p>interval: 1<\/p>","<p>Nummer: 5036<\/p><p>start: 1994-12-21<\/p><p>end: 2023-10-04<\/p><p>n: 9110<\/p><p>interval: 1<\/p>","<p>Nummer: 5039<\/p><p>start: 1996-02-03<\/p><p>end: 2023-10-04<\/p><p>n: 8205<\/p><p>interval: 1<\/p>","<p>Nummer: 5040<\/p><p>start: 1996-02-03<\/p><p>end: 2023-10-04<\/p><p>n: 9126<\/p><p>interval: 1<\/p>","<p>Nummer: 5042<\/p><p>start: 1996-03-22<\/p><p>end: 2023-10-04<\/p><p>n: 8685<\/p><p>interval: 1<\/p>","<p>Nummer: 5049<\/p><p>start: 1996-02-03<\/p><p>end: 2023-10-04<\/p><p>n: 9279<\/p><p>interval: 1<\/p>","<p>Nummer: 5428<\/p><p>start: 1939-11-14<\/p><p>end: 2023-09-01<\/p><p>n: 9293<\/p><p>interval: 3<\/p>","<p>Nummer: 5430<\/p><p>start: 1939-11-15<\/p><p>end: 2023-09-01<\/p><p>n: 9348<\/p><p>interval: 3<\/p>","<p>Nummer: 5431<\/p><p>start: 1939-11-24<\/p><p>end: 2023-09-01<\/p><p>n: 8578<\/p><p>interval: 4<\/p>","<p>Nummer: 6743<\/p><p>start: 1996-04-16<\/p><p>end: 2023-10-04<\/p><p>n: 8467<\/p><p>interval: 1<\/p>","<p>Nummer: 8693<\/p><p>start: 1985-11-15<\/p><p>end: 2023-09-01<\/p><p>n: 8416<\/p><p>interval: 2<\/p>","<p>Nummer: 8964<\/p><p>start: 1977-01-15<\/p><p>end: 2023-09-01<\/p><p>n: 6794<\/p><p>interval: 3<\/p>","<p>Nummer: 10421<\/p><p>start: 2008-04-30<\/p><p>end: 2023-10-04<\/p><p>n: 5576<\/p><p>interval: 1<\/p>","<p>Nummer: 15065<\/p><p>start: 2004-11-01<\/p><p>end: 2023-09-01<\/p><p>n: 6758<\/p><p>interval: 1<\/p>","<p>Nummer: 15152<\/p><p>start: 2005-02-05<\/p><p>end: 2023-09-01<\/p><p>n: 6557<\/p><p>interval: 1<\/p>","<p>Nummer: 15153<\/p><p>start: 2005-02-05<\/p><p>end: 2023-09-01<\/p><p>n: 6644<\/p><p>interval: 1<\/p>","<p>Nummer: 15160<\/p><p>start: 2006-04-25<\/p><p>end: 2023-10-04<\/p><p>n: 6252<\/p><p>interval: 1<\/p>","<p>Nummer: 15161<\/p><p>start: 2006-04-25<\/p><p>end: 2023-10-04<\/p><p>n: 6318<\/p><p>interval: 1<\/p>","<p>Nummer: 15162<\/p><p>start: 2006-04-25<\/p><p>end: 2023-10-04<\/p><p>n: 6283<\/p><p>interval: 1<\/p>","<p>Nummer: 15163<\/p><p>start: 2006-04-25<\/p><p>end: 2023-10-04<\/p><p>n: 5902<\/p><p>interval: 1<\/p>","<p>Nummer: 15180<\/p><p>start: 2006-12-18<\/p><p>end: 2023-10-04<\/p><p>n: 6058<\/p><p>interval: 1<\/p>","<p>Nummer: 15181<\/p><p>start: 2006-12-18<\/p><p>end: 2023-10-04<\/p><p>n: 6029<\/p><p>interval: 1<\/p>","<p>Nummer: 17904<\/p><p>start: 2010-10-27<\/p><p>end: 2023-10-04<\/p><p>n: 4427<\/p><p>interval: 1<\/p>","<p>Nummer: 17905<\/p><p>start: 2011-12-26<\/p><p>end: 2023-10-04<\/p><p>n: 4018<\/p><p>interval: 1<\/p>","<p>Nummer: 17907<\/p><p>start: 2011-09-28<\/p><p>end: 2023-10-04<\/p><p>n: 4279<\/p><p>interval: 1<\/p>","<p>Nummer: 17908<\/p><p>start: 2011-08-19<\/p><p>end: 2023-10-04<\/p><p>n: 4170<\/p><p>interval: 1<\/p>","<p>Nummer: 99868<\/p><p>start: 1916-04-03<\/p><p>end: 2023-09-01<\/p><p>n: 5917<\/p><p>interval: 7<\/p>"],{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null,null]},{"method":"addLegend","args":[{"colors":["red","blue"],"labels":["SVM Modellgrenze","GW-Stand (Wasserportal)"],"na_color":null,"na_label":"NA","opacity":0.5,"position":"topright","type":"unknown","title":"Legende","extra":null,"layerId":null,"className":"info legend","group":null}]}],"limits":{"lat":[52.33409505334338,52.45714527695588],"lng":[13.49052331303309,13.75223786802176]}},"evals":[],"jsHooks":[]}</script>
-<script type="application/htmlwidget-sizing" data-for="htmlwidget-66e672f1f70da76e1693">{"viewer":{"width":"100%","height":400,"padding":0,"fill":true},"browser":{"width":"100%","height":400,"padding":0,"fill":true}}</script>
+<script type="application/json" data-for="htmlwidget-1f2620da7934a1813073">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"&copy; <a href=\"https://openstreetmap.org/copyright/\">OpenStreetMap<\/a>,  <a href=\"https://opendatacommons.org/licenses/odbl/\">ODbL<\/a>"}]},{"method":"addProviderTiles","args":["CartoDB.Positron",null,null,{"errorTileUrl":"","noWrap":false,"detectRetina":false}]},{"method":"addPolygons","args":[[[[{"lng":[13.49052331303309,13.55656477828546,13.75223786802176,13.72413942177274,13.65567474560967,13.64104107436871,13.49052331303309],"lat":[52.35855418956042,52.45714527695588,52.42516025267206,52.38573100757936,52.33629010402952,52.33409505334338,52.35855418956042]}]]],null,null,{"interactive":true,"className":"","stroke":true,"color":"red","weight":5,"opacity":0.5,"fill":false,"fillColor":"red","fillOpacity":0.2,"smoothFactor":1,"noClip":false},null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]},{"method":"addCircles","args":[[52.41843042114484,52.4184216057464,52.4209237442167,52.41725754103629,52.42760974215699,52.4214670262505,52.43185987543207,52.44756203401442,52.40071343763205,52.39271612526233,52.37477428831872,52.41388001325272,52.40294938394629,52.4163156689222,52.39929480082213,52.41108829288785,52.4110703177302,52.37325262574509,52.37322549533571,52.34335860504333,52.34337674883282,52.40390167355837,52.42378215700153,52.421276056833,52.41660222737509,52.37475097019721,52.4197374819415,52.45109314702039],[13.6143473135431,13.61436229503642,13.63001918856354,13.6856429039093,13.60513157981924,13.71276791633278,13.61485280688708,13.55728126743324,13.58435746342678,13.58775847562895,13.66629388048661,13.57493719350043,13.53396760370674,13.56002183894481,13.55406450594287,13.58354006728792,13.58354064323136,13.65895064254883,13.65893677439203,13.64800856992895,13.64802269654861,13.73049312892207,13.69431702964457,13.7117440650659,13.68411842918234,13.6666177743623,13.63317353233464,13.57264717431442],10,null,null,{"interactive":true,"className":"","stroke":true,"color":"blue","weight":5,"opacity":0.4,"fill":true,"fillColor":"blue","fillOpacity":0.2},null,null,["<p>Nummer: 3155<\/p><p>start: 2016-01-20<\/p><p>end: 2023-05-19<\/p><p>n: 2442<\/p><p>interval: 1<\/p>","<p>Nummer: 3156<\/p><p>start: 2016-01-20<\/p><p>end: 2023-05-19<\/p><p>n: 2534<\/p><p>interval: 1<\/p>","<p>Nummer: 5036<\/p><p>start: 1994-12-21<\/p><p>end: 2023-10-05<\/p><p>n: 9111<\/p><p>interval: 1<\/p>","<p>Nummer: 5039<\/p><p>start: 1996-02-03<\/p><p>end: 2023-10-05<\/p><p>n: 8206<\/p><p>interval: 1<\/p>","<p>Nummer: 5040<\/p><p>start: 1996-02-03<\/p><p>end: 2023-10-05<\/p><p>n: 9127<\/p><p>interval: 1<\/p>","<p>Nummer: 5042<\/p><p>start: 1996-03-22<\/p><p>end: 2023-10-05<\/p><p>n: 8686<\/p><p>interval: 1<\/p>","<p>Nummer: 5049<\/p><p>start: 1996-02-03<\/p><p>end: 2023-10-05<\/p><p>n: 9280<\/p><p>interval: 1<\/p>","<p>Nummer: 5428<\/p><p>start: 1939-11-14<\/p><p>end: 2023-09-01<\/p><p>n: 9293<\/p><p>interval: 3<\/p>","<p>Nummer: 5430<\/p><p>start: 1939-11-15<\/p><p>end: 2023-09-01<\/p><p>n: 9348<\/p><p>interval: 3<\/p>","<p>Nummer: 5431<\/p><p>start: 1939-11-24<\/p><p>end: 2023-09-01<\/p><p>n: 8578<\/p><p>interval: 4<\/p>","<p>Nummer: 6743<\/p><p>start: 1996-04-16<\/p><p>end: 2023-10-05<\/p><p>n: 8468<\/p><p>interval: 1<\/p>","<p>Nummer: 8693<\/p><p>start: 1985-11-15<\/p><p>end: 2023-09-01<\/p><p>n: 8416<\/p><p>interval: 2<\/p>","<p>Nummer: 8964<\/p><p>start: 1977-01-15<\/p><p>end: 2023-09-01<\/p><p>n: 6794<\/p><p>interval: 3<\/p>","<p>Nummer: 10421<\/p><p>start: 2008-04-30<\/p><p>end: 2023-10-05<\/p><p>n: 5577<\/p><p>interval: 1<\/p>","<p>Nummer: 15065<\/p><p>start: 2004-11-01<\/p><p>end: 2023-09-01<\/p><p>n: 6758<\/p><p>interval: 1<\/p>","<p>Nummer: 15152<\/p><p>start: 2005-02-05<\/p><p>end: 2023-09-01<\/p><p>n: 6557<\/p><p>interval: 1<\/p>","<p>Nummer: 15153<\/p><p>start: 2005-02-05<\/p><p>end: 2023-09-01<\/p><p>n: 6644<\/p><p>interval: 1<\/p>","<p>Nummer: 15160<\/p><p>start: 2006-04-25<\/p><p>end: 2023-10-05<\/p><p>n: 6253<\/p><p>interval: 1<\/p>","<p>Nummer: 15161<\/p><p>start: 2006-04-25<\/p><p>end: 2023-10-05<\/p><p>n: 6326<\/p><p>interval: 1<\/p>","<p>Nummer: 15162<\/p><p>start: 2006-04-25<\/p><p>end: 2023-10-05<\/p><p>n: 6288<\/p><p>interval: 1<\/p>","<p>Nummer: 15163<\/p><p>start: 2006-04-25<\/p><p>end: 2023-10-05<\/p><p>n: 5903<\/p><p>interval: 1<\/p>","<p>Nummer: 15180<\/p><p>start: 2006-12-18<\/p><p>end: 2023-10-05<\/p><p>n: 6059<\/p><p>interval: 1<\/p>","<p>Nummer: 15181<\/p><p>start: 2006-12-18<\/p><p>end: 2023-10-05<\/p><p>n: 6030<\/p><p>interval: 1<\/p>","<p>Nummer: 17904<\/p><p>start: 2010-10-27<\/p><p>end: 2023-10-05<\/p><p>n: 4428<\/p><p>interval: 1<\/p>","<p>Nummer: 17905<\/p><p>start: 2011-12-26<\/p><p>end: 2023-10-05<\/p><p>n: 4019<\/p><p>interval: 1<\/p>","<p>Nummer: 17907<\/p><p>start: 2011-09-28<\/p><p>end: 2023-10-05<\/p><p>n: 4280<\/p><p>interval: 1<\/p>","<p>Nummer: 17908<\/p><p>start: 2011-08-19<\/p><p>end: 2023-10-05<\/p><p>n: 4171<\/p><p>interval: 1<\/p>","<p>Nummer: 99868<\/p><p>start: 1916-04-03<\/p><p>end: 2023-09-01<\/p><p>n: 5917<\/p><p>interval: 7<\/p>"],{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null,null]},{"method":"addLegend","args":[{"colors":["red","blue"],"labels":["SVM Modellgrenze","GW-Stand (Wasserportal)"],"na_color":null,"na_label":"NA","opacity":0.5,"position":"topright","type":"unknown","title":"Legende","extra":null,"layerId":null,"className":"info legend","group":null}]}],"limits":{"lat":[52.33409505334338,52.45714527695588],"lng":[13.49052331303309,13.75223786802176]}},"evals":[],"jsHooks":[]}</script>
+<script type="application/htmlwidget-sizing" data-for="htmlwidget-1f2620da7934a1813073">{"viewer":{"width":"100%","height":400,"padding":0,"fill":true},"browser":{"width":"100%","height":400,"padding":0,"fill":true}}</script>
 </body>
 </html>
diff --git a/map_gwq.html b/map_gwq.html
index 5748fcd4..4149ed13 100644
--- a/map_gwq.html
+++ b/map_gwq.html
@@ -5158,9 +5158,9 @@
 </head>
 <body style="background-color: white;">
 <div id="htmlwidget_container">
-  <div class="leaflet html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-cbb4e7e3edaf9f8779e6" style="width:100%;height:400px;"></div>
+  <div class="leaflet html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-7074dd072be7e88346ff" style="width:100%;height:400px;"></div>
 </div>
-<script type="application/json" data-for="htmlwidget-cbb4e7e3edaf9f8779e6">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"&copy; <a href=\"https://openstreetmap.org/copyright/\">OpenStreetMap<\/a>,  <a href=\"https://opendatacommons.org/licenses/odbl/\">ODbL<\/a>"}]},{"method":"addProviderTiles","args":["CartoDB.Positron",null,null,{"errorTileUrl":"","noWrap":false,"detectRetina":false}]},{"method":"addPolygons","args":[[[[{"lng":[13.49052331303309,13.55656477828546,13.75223786802176,13.72413942177274,13.65567474560967,13.64104107436871,13.49052331303309],"lat":[52.35855418956042,52.45714527695588,52.42516025267206,52.38573100757936,52.33629010402952,52.33409505334338,52.35855418956042]}]]],null,null,{"interactive":true,"className":"","stroke":true,"color":"red","weight":5,"opacity":0.5,"fill":false,"fillColor":"red","fillOpacity":0.2,"smoothFactor":1,"noClip":false},null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]},{"method":"addCircles","args":[[52.4209237442167,52.41725754103629,52.42760974215699,52.4214670262505,52.43185987543207,52.43179981912409,52.40294938394629,52.4163156689222,52.451453460434,52.39929480082213,52.41108829288785,52.4110703177302,52.37325262574509,52.34335860504333,52.34337674883282],[13.63001918856354,13.6856429039093,13.60513157981924,13.71276791633278,13.61485280688708,13.57127014877456,13.53396760370674,13.56002183894481,13.56083313802819,13.55406450594287,13.58354006728792,13.58354064323136,13.65895064254883,13.64800856992895,13.64802269654861],10,null,null,{"interactive":true,"className":"","stroke":true,"color":"orange","weight":5,"opacity":0.4,"fill":true,"fillColor":"orange","fillOpacity":0.2},null,null,["<p>Nummer: 5036<\/p><p>start: 1998-04-23<\/p><p>end: 2018-10-10<\/p><p>n: 42<\/p><p>interval: 178<\/p>","<p>Nummer: 5039<\/p><p>start: 1998-04-23<\/p><p>end: 2021-09-23<\/p><p>n: 46<\/p><p>interval: 186<\/p>","<p>Nummer: 5040<\/p><p>start: 1998-05-06<\/p><p>end: 2021-09-23<\/p><p>n: 48<\/p><p>interval: 178<\/p>","<p>Nummer: 5042<\/p><p>start: 1995-11-23<\/p><p>end: 2021-09-23<\/p><p>n: 53<\/p><p>interval: 178<\/p>","<p>Nummer: 5049<\/p><p>start: 1998-05-06<\/p><p>end: 2021-09-23<\/p><p>n: 48<\/p><p>interval: 178<\/p>","<p>Nummer: 5130<\/p><p>start: 2005-06-09<\/p><p>end: 2018-10-15<\/p><p>n: 28<\/p><p>interval: 174<\/p>","<p>Nummer: 8964<\/p><p>start: 2005-06-07<\/p><p>end: 2021-11-08<\/p><p>n: 34<\/p><p>interval: 176<\/p>","<p>Nummer: 10421<\/p><p>start: 2014-12-15<\/p><p>end: 2021-11-30<\/p><p>n: 7<\/p><p>interval: 363<\/p>","<p>Nummer: 10790<\/p><p>start: 2014-12-09<\/p><p>end: 2021-09-27<\/p><p>n: 8<\/p><p>interval: 310<\/p>","<p>Nummer: 15065<\/p><p>start: 2005-06-07<\/p><p>end: 2021-11-08<\/p><p>n: 34<\/p><p>interval: 176<\/p>","<p>Nummer: 15152<\/p><p>start: 2005-05-24<\/p><p>end: 2021-10-04<\/p><p>n: 34<\/p><p>interval: 176<\/p>","<p>Nummer: 15153<\/p><p>start: 2005-05-24<\/p><p>end: 2021-10-04<\/p><p>n: 34<\/p><p>interval: 176<\/p>","<p>Nummer: 15160<\/p><p>start: 2012-11-23<\/p><p>end: 2018-10-24<\/p><p>n: 10<\/p><p>interval: 216<\/p>","<p>Nummer: 15162<\/p><p>start: 2012-11-23<\/p><p>end: 2018-10-24<\/p><p>n: 10<\/p><p>interval: 216<\/p>","<p>Nummer: 15163<\/p><p>start: 2015-12-01<\/p><p>end: 2021-10-04<\/p><p>n: 5<\/p><p>interval: 427<\/p>"],{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null,null]},{"method":"addLegend","args":[{"colors":["red","orange"],"labels":["SVM Modellgrenze","GW-Güte (Wasserportal)"],"na_color":null,"na_label":"NA","opacity":0.5,"position":"topright","type":"unknown","title":"Legende","extra":null,"layerId":null,"className":"info legend","group":null}]}],"limits":{"lat":[52.33409505334338,52.45714527695588],"lng":[13.49052331303309,13.75223786802176]}},"evals":[],"jsHooks":[]}</script>
-<script type="application/htmlwidget-sizing" data-for="htmlwidget-cbb4e7e3edaf9f8779e6">{"viewer":{"width":"100%","height":400,"padding":0,"fill":true},"browser":{"width":"100%","height":400,"padding":0,"fill":true}}</script>
+<script type="application/json" data-for="htmlwidget-7074dd072be7e88346ff">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"&copy; <a href=\"https://openstreetmap.org/copyright/\">OpenStreetMap<\/a>,  <a href=\"https://opendatacommons.org/licenses/odbl/\">ODbL<\/a>"}]},{"method":"addProviderTiles","args":["CartoDB.Positron",null,null,{"errorTileUrl":"","noWrap":false,"detectRetina":false}]},{"method":"addPolygons","args":[[[[{"lng":[13.49052331303309,13.55656477828546,13.75223786802176,13.72413942177274,13.65567474560967,13.64104107436871,13.49052331303309],"lat":[52.35855418956042,52.45714527695588,52.42516025267206,52.38573100757936,52.33629010402952,52.33409505334338,52.35855418956042]}]]],null,null,{"interactive":true,"className":"","stroke":true,"color":"red","weight":5,"opacity":0.5,"fill":false,"fillColor":"red","fillOpacity":0.2,"smoothFactor":1,"noClip":false},null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]},{"method":"addCircles","args":[[52.4209237442167,52.41725754103629,52.42760974215699,52.4214670262505,52.43185987543207,52.43179981912409,52.40294938394629,52.4163156689222,52.451453460434,52.39929480082213,52.41108829288785,52.4110703177302,52.37325262574509,52.34335860504333,52.34337674883282],[13.63001918856354,13.6856429039093,13.60513157981924,13.71276791633278,13.61485280688708,13.57127014877456,13.53396760370674,13.56002183894481,13.56083313802819,13.55406450594287,13.58354006728792,13.58354064323136,13.65895064254883,13.64800856992895,13.64802269654861],10,null,null,{"interactive":true,"className":"","stroke":true,"color":"orange","weight":5,"opacity":0.4,"fill":true,"fillColor":"orange","fillOpacity":0.2},null,null,["<p>Nummer: 5036<\/p><p>start: 1998-04-23<\/p><p>end: 2018-10-10<\/p><p>n: 42<\/p><p>interval: 178<\/p>","<p>Nummer: 5039<\/p><p>start: 1998-04-23<\/p><p>end: 2021-09-23<\/p><p>n: 46<\/p><p>interval: 186<\/p>","<p>Nummer: 5040<\/p><p>start: 1998-05-06<\/p><p>end: 2021-09-23<\/p><p>n: 48<\/p><p>interval: 178<\/p>","<p>Nummer: 5042<\/p><p>start: 1995-11-23<\/p><p>end: 2021-09-23<\/p><p>n: 53<\/p><p>interval: 178<\/p>","<p>Nummer: 5049<\/p><p>start: 1998-05-06<\/p><p>end: 2021-09-23<\/p><p>n: 48<\/p><p>interval: 178<\/p>","<p>Nummer: 5130<\/p><p>start: 2005-06-09<\/p><p>end: 2018-10-15<\/p><p>n: 28<\/p><p>interval: 174<\/p>","<p>Nummer: 8964<\/p><p>start: 2005-06-07<\/p><p>end: 2021-11-08<\/p><p>n: 34<\/p><p>interval: 176<\/p>","<p>Nummer: 10421<\/p><p>start: 2014-12-15<\/p><p>end: 2021-11-30<\/p><p>n: 7<\/p><p>interval: 363<\/p>","<p>Nummer: 10790<\/p><p>start: 2014-12-09<\/p><p>end: 2021-09-27<\/p><p>n: 8<\/p><p>interval: 310<\/p>","<p>Nummer: 15065<\/p><p>start: 2005-06-07<\/p><p>end: 2021-11-08<\/p><p>n: 34<\/p><p>interval: 176<\/p>","<p>Nummer: 15152<\/p><p>start: 2005-05-24<\/p><p>end: 2021-10-04<\/p><p>n: 34<\/p><p>interval: 176<\/p>","<p>Nummer: 15153<\/p><p>start: 2005-05-24<\/p><p>end: 2021-10-04<\/p><p>n: 34<\/p><p>interval: 176<\/p>","<p>Nummer: 15160<\/p><p>start: 2012-11-23<\/p><p>end: 2018-10-24<\/p><p>n: 10<\/p><p>interval: 216<\/p>","<p>Nummer: 15162<\/p><p>start: 2012-11-23<\/p><p>end: 2018-10-24<\/p><p>n: 10<\/p><p>interval: 216<\/p>","<p>Nummer: 15163<\/p><p>start: 2015-12-01<\/p><p>end: 2021-10-04<\/p><p>n: 5<\/p><p>interval: 427<\/p>"],{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null,null]},{"method":"addLegend","args":[{"colors":["red","orange"],"labels":["SVM Modellgrenze","GW-Güte (Wasserportal)"],"na_color":null,"na_label":"NA","opacity":0.5,"position":"topright","type":"unknown","title":"Legende","extra":null,"layerId":null,"className":"info legend","group":null}]}],"limits":{"lat":[52.33409505334338,52.45714527695588],"lng":[13.49052331303309,13.75223786802176]}},"evals":[],"jsHooks":[]}</script>
+<script type="application/htmlwidget-sizing" data-for="htmlwidget-7074dd072be7e88346ff">{"viewer":{"width":"100%","height":400,"padding":0,"fill":true},"browser":{"width":"100%","height":400,"padding":0,"fill":true}}</script>
 </body>
 </html>
diff --git a/map_swl.html b/map_swl.html
index 75946b29..0cfc340d 100644
--- a/map_swl.html
+++ b/map_swl.html
@@ -5158,9 +5158,9 @@
 </head>
 <body style="background-color: white;">
 <div id="htmlwidget_container">
-  <div class="leaflet html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-1597552cb7f017276855" style="width:100%;height:400px;"></div>
+  <div class="leaflet html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-312817b0da241b808aa4" style="width:100%;height:400px;"></div>
 </div>
-<script type="application/json" data-for="htmlwidget-1597552cb7f017276855">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"&copy; <a href=\"https://openstreetmap.org/copyright/\">OpenStreetMap<\/a>,  <a href=\"https://opendatacommons.org/licenses/odbl/\">ODbL<\/a>"}]},{"method":"addProviderTiles","args":["CartoDB.Positron",null,null,{"errorTileUrl":"","noWrap":false,"detectRetina":false}]},{"method":"addPolygons","args":[[[[{"lng":[13.49052331303309,13.55656477828546,13.75223786802176,13.72413942177274,13.65567474560967,13.64104107436871,13.49052331303309],"lat":[52.35855418956042,52.45714527695588,52.42516025267206,52.38573100757936,52.33629010402952,52.33409505334338,52.35855418956042]}]]],null,null,{"interactive":true,"className":"","stroke":true,"color":"red","weight":5,"opacity":0.5,"fill":false,"fillColor":"red","fillOpacity":0.2,"smoothFactor":1,"noClip":false},null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]},{"method":"addCircles","args":[[52.44906279439427,52.42954892178911,52.40133048785694,52.40249480636424,52.37462326510757],[13.59909746665787,13.68895443510699,13.70810645969771,13.70358904629984,13.6537674491929],10,null,null,{"interactive":true,"className":"","stroke":true,"color":"blue","weight":5,"opacity":0.4,"fill":true,"fillColor":"blue","fillOpacity":0.2},null,null,["<p>Nummer: 5827103<\/p><p>Gewaesser: Müggelspree<\/p><p>Auspraegung: DMA (US)<\/p><p>Betreiber: Land Berlin<\/p>","<p>Nummer: 5827101<\/p><p>Gewaesser: Müggelspree<\/p><p>Auspraegung: DMA (US)<\/p><p>Betreiber: Land Berlin<\/p>","<p>Nummer: 5826702<\/p><p>Gewaesser: Gosener Graben<\/p><p>Auspraegung: WMA<\/p><p>Betreiber: Land Berlin<\/p>","<p>Nummer: 5826701<\/p><p>Gewaesser: Gosener Kanal<\/p><p>Auspraegung: DMA (US)<\/p><p>Betreiber: Land Berlin<\/p>","<p>Nummer: 5862811<\/p><p>Gewaesser: Zeuthener See<\/p><p>Auspraegung: DMA (US)<\/p><p>Betreiber: Land Berlin<\/p>"],{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null,null]},{"method":"addLegend","args":[{"colors":["red","darkblue"],"labels":["SVM Modellgrenze","OW-Stand (Wasserportal)"],"na_color":null,"na_label":"NA","opacity":0.5,"position":"topright","type":"unknown","title":"Legende","extra":null,"layerId":null,"className":"info legend","group":null}]}],"limits":{"lat":[52.33409505334338,52.45714527695588],"lng":[13.49052331303309,13.75223786802176]}},"evals":[],"jsHooks":[]}</script>
-<script type="application/htmlwidget-sizing" data-for="htmlwidget-1597552cb7f017276855">{"viewer":{"width":"100%","height":400,"padding":0,"fill":true},"browser":{"width":"100%","height":400,"padding":0,"fill":true}}</script>
+<script type="application/json" data-for="htmlwidget-312817b0da241b808aa4">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"&copy; <a href=\"https://openstreetmap.org/copyright/\">OpenStreetMap<\/a>,  <a href=\"https://opendatacommons.org/licenses/odbl/\">ODbL<\/a>"}]},{"method":"addProviderTiles","args":["CartoDB.Positron",null,null,{"errorTileUrl":"","noWrap":false,"detectRetina":false}]},{"method":"addPolygons","args":[[[[{"lng":[13.49052331303309,13.55656477828546,13.75223786802176,13.72413942177274,13.65567474560967,13.64104107436871,13.49052331303309],"lat":[52.35855418956042,52.45714527695588,52.42516025267206,52.38573100757936,52.33629010402952,52.33409505334338,52.35855418956042]}]]],null,null,{"interactive":true,"className":"","stroke":true,"color":"red","weight":5,"opacity":0.5,"fill":false,"fillColor":"red","fillOpacity":0.2,"smoothFactor":1,"noClip":false},null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]},{"method":"addCircles","args":[[52.44906279439427,52.42954892178911,52.40133048785694,52.40249480636424,52.37462326510757],[13.59909746665787,13.68895443510699,13.70810645969771,13.70358904629984,13.6537674491929],10,null,null,{"interactive":true,"className":"","stroke":true,"color":"blue","weight":5,"opacity":0.4,"fill":true,"fillColor":"blue","fillOpacity":0.2},null,null,["<p>Nummer: 5827103<\/p><p>Gewaesser: Müggelspree<\/p><p>Auspraegung: DMA (US)<\/p><p>Betreiber: Land Berlin<\/p>","<p>Nummer: 5827101<\/p><p>Gewaesser: Müggelspree<\/p><p>Auspraegung: DMA (US)<\/p><p>Betreiber: Land Berlin<\/p>","<p>Nummer: 5826702<\/p><p>Gewaesser: Gosener Graben<\/p><p>Auspraegung: WMA<\/p><p>Betreiber: Land Berlin<\/p>","<p>Nummer: 5826701<\/p><p>Gewaesser: Gosener Kanal<\/p><p>Auspraegung: DMA (US)<\/p><p>Betreiber: Land Berlin<\/p>","<p>Nummer: 5862811<\/p><p>Gewaesser: Zeuthener See<\/p><p>Auspraegung: DMA (US)<\/p><p>Betreiber: Land Berlin<\/p>"],{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null,null]},{"method":"addLegend","args":[{"colors":["red","darkblue"],"labels":["SVM Modellgrenze","OW-Stand (Wasserportal)"],"na_color":null,"na_label":"NA","opacity":0.5,"position":"topright","type":"unknown","title":"Legende","extra":null,"layerId":null,"className":"info legend","group":null}]}],"limits":{"lat":[52.33409505334338,52.45714527695588],"lng":[13.49052331303309,13.75223786802176]}},"evals":[],"jsHooks":[]}</script>
+<script type="application/htmlwidget-sizing" data-for="htmlwidget-312817b0da241b808aa4">{"viewer":{"width":"100%","height":400,"padding":0,"fill":true},"browser":{"width":"100%","height":400,"padding":0,"fill":true}}</script>
 </body>
 </html>
diff --git a/pkgdown.yml b/pkgdown.yml
index f3241275..e7f96997 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -8,7 +8,7 @@ articles:
   measurement-chains: measurement-chains.html
   wasserportal: wasserportal.html
   workflow: workflow.html
-last_built: 2023-10-05T07:05Z
+last_built: 2023-10-06T07:04Z
 urls:
   reference: https://kwb-r.github.io/kwb.geosalz/reference
   article: https://kwb-r.github.io/kwb.geosalz/articles
diff --git a/search.json b/search.json
index 87ead2eb..6fff8024 100644
--- a/search.json
+++ b/search.json
@@ -1 +1 @@
-[{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"install-r-packages","dir":"Articles","previous_headings":"","what":"1 Install R packages","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"if (! require(\"remotes\")) {   install.packages(\"remotes\", repos = \"https://cloud.r-project.org\") }  remotes::install_github(\"kwb-r/kwb.geosalz\", dependencies = TRUE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"define-paths","dir":"Articles","previous_headings":"","what":"2 Define paths","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"# Define paths and resolve placeholders paths <- kwb.utils::resolve(list(   servername = Sys.getenv(\"servername\"),   root_server = \"//<servername>\",   project = \"geosalz\",   rawdata = \"<root_server>/rawdata/<project>/BWB_labor\",   processing = \"<root_server>/processing/<project>\",   cleaned_data_dir = \"<processing>/labor/cleaned-data\",   cleaned_data_rds = \"<cleaned_data_dir>/cleaned-data.Rds\",   foerdermengen = \"<rawdata>/2018-04-27 Rohwasser Bericht - Galeriefördermengen.xlsx\",   parameters = \"<rawdata>/2018-06-01 Lab Parameter.xlsx\",   figures_dir = \"<processing>/figures\" ))"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"input-data","dir":"Articles","previous_headings":"","what":"3 Input data","title":"Data Availability Waterworks Friedrichshagen","text":"Checkout Workflow vignette reproducing creation cleaned-data.Rds.","code":"library(kwb.geosalz)  ## Load water quality data (<= 2000, prepared within first phase of Geosalz ## project!); for creation see the \"workflow.Rmd\" vignette load(file = paths$cleaned_data_rds)  foerdermengen_ww <- kwb.geosalz::get_foerdermengen(paths$foerdermengen)  foerdermengen_fri_gal <- paths$foerdermengen %>%   kwb.geosalz::get_foerdermengen_gal_fri() %>%    dplyr::filter(!is.na(!.data$foerdermenge_m3))  readr::write_csv2(   foerdermengen_fri_gal,    file = file.path(paths$figures_dir, \"foerdermengen_fri_gal.csv\") )  para_info <- kwb.geosalz::get_parameters_meta(paths$parameters)  labordaten_ww_timeseries <- labordaten_ww %>%   dplyr::filter(     prufgegenstand == \"Rohwasser\",      werk == \"FRI\"   )   readr::write_csv2(   labordaten_ww_timeseries,   file = file.path(paths$figures_dir, \"Zeitreihen_FRI_Guete_Rohwasser.csv\") )  labordaten_ww_stats <- labordaten_ww_timeseries %>%   dplyr::group_by(     .data$para_id,     .data$para_kuerzel,      .data$para_kurzname,     .data$werk,      .data$galerie   ) %>%    dplyr::summarise(     date_min = as.Date(min(.data$Date)),     date_max = as.Date(max(.data$Date)),     period_days = diff(c(.data$date_min, .data$date_max)),     number_of_samples = dplyr::n(),      mean_sampling_intervall_days = round(       .data$period_days/.data$number_of_samples     )   ) %>%    dplyr::arrange(.data$para_id, .data$galerie)  readr::write_csv2(   labordaten_ww_stats,   file = file.path(paths$figures_dir, \"Stats_FRI_Guete_Rohwasser.csv\") )"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"water-quality","dir":"Articles","previous_headings":"4 Visualisation","what":"4.1 Water quality","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"#Check and in case the export directory is not available create it: fs::dir_create(paths$figures_dir, recurse = TRUE)  print(sprintf(\"Export figures/plots to: %s\", paths$figures_dir))  water_types <- c(\"Rohwasser\")  for (water_type in water_types) {      pdf_file <- file.path(     paths$figures_dir,     sprintf(\"Zeitreihen_FRI_%s_Guete.pdf\", water_type)   )      cat(sprintf(\"Creating plot:\\n%s\\n\", pdf_file))      pdf(file = pdf_file, width = 14, height = 9)      for (sel_para_id in unique(labordaten_ww$para_id)) {          my_selection <- sprintf(       \"%s (%s)\",       para_info$para_kurzname[para_info$para_id == sel_para_id],       water_type     )          tmp <- labordaten_ww %>%       dplyr::filter(         prufgegenstand == water_type,         para_id == sel_para_id,          werk == \"FRI\"       ) %>%       dplyr::filter(         stringr::str_detect(.data$galerie, pattern = \"GWW\", negate = TRUE)       )          y_label <-  sprintf(       \"%s (%s)\",       para_info$para_kurzname[para_info$para_id == sel_para_id],       paste0(unique(tmp$UnitName_org), collapse = \", \")     )          if (nrow(tmp) > 0) {              cat(sprintf(\"for %s\\n\", my_selection))              g <- ggplot2::ggplot(tmp, mapping = ggplot2::aes_string(         x = \"Date\",         y = \"DataValue\",         col = \"galerie\"       )) +         ggplot2::geom_point() +         ggplot2::geom_line() +         ggplot2::theme_bw() +         ggplot2::ggtitle(label = my_selection) +         ggplot2::labs(x = \"\", y = y_label)              print(g)            } else {              cat(sprintf(\"not data availabe for %s\\n\", my_selection))     }   }      dev.off() }"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"total","dir":"Articles","previous_headings":"4 Visualisation > 4.2 Yearly Abstraction Volume","what":"4.2.1 Total","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"pdf_file <- file.path(   paths$figures_dir,   \"Zeitreihen_FRI_Gesamt_Jahresfoerdermengen.pdf\" )  pdf(file = pdf_file, width = 14, height = 9)  foerdermengen_ww %>%   dplyr::filter(.data$Wasserwerk == \"Friedrichshagen\") %>%    ggplot2::ggplot(mapping = ggplot2::aes_string(     x = \"year\",     y = \"Foerdermenge_m3\",     col = \"werk\"   )) +    ggplot2::geom_point() +   ggplot2::geom_line() +   ggplot2::theme_bw() +   ggplot2::ggtitle(label = \"Wasserwerk Friedrichshagen\") +   ggplot2::labs(x = \"Datum\", y = \"Jahresf\\u00F6rdermenge (m3)\")  dev.off()"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"by-well-galeries","dir":"Articles","previous_headings":"4 Visualisation > 4.2 Yearly Abstraction Volume","what":"4.2.2 By Well Galeries","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"pdf_file <- file.path(   paths$figures_dir,   \"Zeitreihen_FRI_Galerien_Jahresfoerdermengen.pdf\" )  pdf(file = pdf_file, width = 14, height = 9)  foerdermengen_fri_gal %>%     ggplot2::ggplot(mapping = ggplot2::aes_string(     x = \"date\",     y = \"foerdermenge_m3\",      col = \"galerie\"   )) +    ggplot2::geom_point() +   ggplot2::geom_line() +   ggplot2::theme_bw() +   ggplot2::ggtitle(label = \"Brunnengalerien FRI\") +   ggplot2::labs(x = \"Datum\", y = \"Jahresf\\u00F6rdermenge (m3)\")  dev.off()  pdf_file <- file.path(   paths$figures_dir,   \"Zeitreihen_FRI_Galerien_Jahresfoerdermengen_multipage.pdf\" )  pdf(file = pdf_file, width = 14, height = 9)  tmp <- foerdermengen_fri_gal %>%     dplyr::mutate(foerdermenge_million_m3 = .data$foerdermenge_m3/1000000)  n_pages <- tmp %>%    dplyr::count(.data$galerie) %>%    dplyr::pull(.data$galerie) %>%    length()  for (page in seq_len(n_pages)) {   print(     tmp %>%        ggplot2::ggplot(mapping = ggplot2::aes_string(         x = \"date\",          y = \"foerdermenge_million_m3\"       )) +        ggforce::facet_wrap_paginate(~ galerie, ncol = 1, nrow = 1, page = page) +       #ggplot2::facet_wrap(~ galerie, ncol = 1) +        ggplot2::geom_point() +       ggplot2::geom_line() +       ggplot2::labs(x = \"Datum\", y = \"Foerdermenge (m3/Jahr)\") +       ggplot2::theme_bw()   ) }  #dev.off()  kwb.utils::finishAndShowPdf(PDF = pdf_file)"},{"path":[]},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"packages","dir":"Articles","previous_headings":"5 Session Info","what":"Packages","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"#>  package     * version date (UTC) lib source #>  bslib         0.5.1   2023-08-11 [1] RSPM (R 4.3.0) #>  cachem        1.0.8   2023-05-01 [1] RSPM (R 4.3.0) #>  cli           3.6.1   2023-03-23 [1] RSPM (R 4.3.0) #>  desc          1.4.2   2022-09-08 [1] RSPM (R 4.3.0) #>  digest        0.6.33  2023-07-07 [1] RSPM (R 4.3.0) #>  dplyr       * 1.1.3   2023-09-03 [1] RSPM (R 4.3.0) #>  evaluate      0.22    2023-09-29 [1] CRAN (R 4.3.1) #>  fansi         1.0.4   2023-01-22 [1] RSPM (R 4.3.0) #>  fastmap       1.1.1   2023-02-24 [1] RSPM (R 4.3.0) #>  fs            1.6.3   2023-07-20 [1] RSPM (R 4.3.0) #>  generics      0.1.3   2022-07-05 [1] RSPM (R 4.3.0) #>  glue          1.6.2   2022-02-24 [1] RSPM (R 4.3.0) #>  htmltools     0.5.6   2023-08-10 [1] RSPM (R 4.3.0) #>  jquerylib     0.1.4   2021-04-26 [1] RSPM (R 4.3.0) #>  jsonlite      1.8.7   2023-06-29 [1] RSPM (R 4.3.0) #>  knitr         1.44    2023-09-11 [1] RSPM (R 4.3.0) #>  kwb.utils     0.14.1  2023-09-23 [1] Github (kwb-r/kwb.utils@0930eae) #>  lifecycle     1.0.3   2022-10-07 [1] RSPM (R 4.3.0) #>  magrittr      2.0.3   2022-03-30 [1] RSPM (R 4.3.0) #>  memoise       2.0.1   2021-11-26 [1] RSPM (R 4.3.0) #>  pillar        1.9.0   2023-03-22 [1] RSPM (R 4.3.0) #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM (R 4.3.0) #>  pkgdown       2.0.7   2022-12-14 [1] RSPM (R 4.3.0) #>  purrr         1.0.2   2023-08-10 [1] RSPM (R 4.3.0) #>  R6            2.5.1   2021-08-19 [1] RSPM (R 4.3.0) #>  ragg          1.2.5   2023-01-12 [1] RSPM (R 4.3.0) #>  rlang         1.1.1   2023-04-28 [1] RSPM (R 4.3.0) #>  rmarkdown     2.25    2023-09-18 [1] RSPM (R 4.3.0) #>  rprojroot     2.0.3   2022-04-02 [1] RSPM (R 4.3.0) #>  sass          0.4.7   2023-07-15 [1] RSPM (R 4.3.0) #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM (R 4.3.0) #>  stringi       1.7.12  2023-01-11 [1] RSPM (R 4.3.0) #>  stringr       1.5.0   2022-12-02 [1] RSPM (R 4.3.0) #>  systemfonts   1.0.4   2022-02-11 [1] RSPM (R 4.3.0) #>  textshaping   0.3.6   2021-10-13 [1] RSPM (R 4.3.0) #>  tibble        3.2.1   2023-03-20 [1] RSPM (R 4.3.0) #>  tidyr       * 1.3.0   2023-01-24 [1] RSPM (R 4.3.0) #>  tidyselect    1.2.0   2022-10-10 [1] RSPM (R 4.3.0) #>  utf8          1.2.3   2023-01-31 [1] RSPM (R 4.3.0) #>  vctrs         0.6.3   2023-06-14 [1] RSPM (R 4.3.0) #>  xfun          0.40    2023-08-09 [1] RSPM (R 4.3.0) #>  yaml          2.3.7   2023-01-23 [1] RSPM (R 4.3.0) #>  #>  [1] D:/a/_temp/Library #>  [2] C:/R/library"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"pandoc","dir":"Articles","previous_headings":"5 Session Info","what":"Pandoc","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"#>                                           pandoc_directory pandoc_version #> 1 C:/HOSTED~1/windows/pandoc/219~1.2/x64/PANDOC~1.2/pandoc         2.19.2"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"install-r-packages","dir":"Articles","previous_headings":"","what":"1 Install R packages","title":"Emshoff 91","text":"","code":"if (! require(\"remotes\")) {   install.packages(\"remotes\", repos = \"https://cloud.r-project.org\") }  remotes::install_github(\"kwb-r/kwb.geosalz\", dependencies = TRUE)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"define-paths","dir":"Articles","previous_headings":"2 Setup the project","what":"2.1 Define paths","title":"Emshoff 91","text":"","code":"# Define paths and resolve placeholders paths <- kwb.utils::resolve(list(   servername = Sys.getenv(\"servername\"),   project = \"geosalz\",    processing_dir = \"//<servername>/processing/<project>\",   ods_dir = \"<processing_dir>/archiv/precleaned-data/emshoff91/converted_ods\",    version = \"0.9.0\",   export_xlsx_name = \"emshoff91_v<version>.xlsx\",   export_xlsx_dir = \"<processing_dir>/archiv/cleaned-data\",   export_xlsx_path = \"<export_xlsx_dir>/<export_xlsx_name>\" ))  #paths <- kwb.utils::resolve(paths, root = \"C:/projects\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"data-import","dir":"Articles","previous_headings":"","what":"3 Data import","title":"Emshoff 91","text":"","code":"emshoff91_import <- kwb.geosalz::create_emshoff91_import(ods_dir = paths$ods_dir)  emshoff91_list <- kwb.geosalz::read_multiple_emshoff91_ods(emshoff91_import)  emshoff91_df <- kwb.geosalz::emshoff91_list_to_df(emshoff91_list)  emshoff91_df_remapped <- kwb.geosalz::emshoff91_remap_values(emshoff91_df)  emshoff91_df_remapped <- emshoff91_import %>%     dplyr::right_join(     emshoff91_df_remapped,     by = \"ods_names_clean\"   ) %>%    dplyr::mutate(     datum = as.Date(sprintf(\"19%s\",.data$datum), format = \"%Y/%m/%d\"),     rohr = stringr::str_replace(.data$rohr, \"^0\", \"O\"))  messstelle_split <- stringr::str_split_fixed(   emshoff91_df_remapped$messstelle,    pattern = \"\\\\s{1,9}\",   n = 3 ) %>%    as.data.frame()  names(messstelle_split) <- c(\"objekt\", \"bhrgs_nr-jahr\", \"rohr\")    messstelle_split <- messstelle_split %>%    tibble::as_tibble() %>%    tidyr::separate(     col = \"bhrgs_nr-jahr\",      into = c(\"bhrgs_nr\", \"jahr\"),     sep = \"/\",     remove = FALSE   ) %>%    dplyr::mutate(     rohr = stringr::str_replace(.data$rohr, \"^0\", \"O\"),      ms = kwb.utils::multiSubstitute(       messstelle_split$objekt,       replacements = list(         \"GF|F-Gal.\" = \"Gal_F\",         \"GE|E-Gal\" = \"Gal_E\",         \"GI|I-Gal.\" = \"Gal_I\",         \"GG|G-Gal.|G-Gal\" = \"Gal_G\",         \"GK|K-Gal.\" = \"Gal_K\",         \"^Go$\" = \"Gal_O\",         \"GH|H-Gal.\" = \"Gal_H\",          \"GO\" = \"Gal_O\",         \"GL|L-Gal.\" = \"Gal_L\",          \"GM|M-Gal.\" = \"Gal_M\",         \",,\" = \",\"       )     )   )   messstelle_split2 <- messstelle_split$ms %>%   stringr::str_split_fixed(pattern = \",\", n = 2) %>%     as.data.frame()  names(messstelle_split2) <- c(\"brunnen_galerie\", \"brunnen_id\")  messstelle_split2 <- messstelle_split2 %>%    dplyr::mutate(     brunnen_id = stringr::str_remove(.data$brunnen_id, pattern = \"^Br\")   )  ms_split <- dplyr::bind_cols(messstelle_split, messstelle_split2)  ms_split  samples_per_moni_id <- emshoff91_df_remapped %>%     dplyr::count(.data$messstelle)   samples_per_moni_id_master <- emshoff91_df_remapped %>%     dplyr::count(     .data$messstelle,      .data$rohr,     .data$fi_mi,      .data$strat,     .data$progr   )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"export-to-excel","dir":"Articles","previous_headings":"3 Data import","what":"4 Export to Excel","title":"Emshoff 91","text":"","code":"openxlsx::write.xlsx(   list(     samples_per_moni_id = samples_per_moni_id,      samples_per_moni_id_master = samples_per_moni_id_master,     data = emshoff91_df_remapped   ),   file = paths$export_xlsx_path,   overwrite = TRUE )"},{"path":[]},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"packages","dir":"Articles","previous_headings":"5 Session Info","what":"Packages","title":"Emshoff 91","text":"","code":"#>  package     * version date (UTC) lib source #>  bslib         0.5.1   2023-08-11 [1] RSPM (R 4.3.0) #>  cachem        1.0.8   2023-05-01 [1] RSPM (R 4.3.0) #>  cli           3.6.1   2023-03-23 [1] RSPM (R 4.3.0) #>  desc          1.4.2   2022-09-08 [1] RSPM (R 4.3.0) #>  digest        0.6.33  2023-07-07 [1] RSPM (R 4.3.0) #>  dplyr       * 1.1.3   2023-09-03 [1] RSPM (R 4.3.0) #>  evaluate      0.22    2023-09-29 [1] CRAN (R 4.3.1) #>  fansi         1.0.4   2023-01-22 [1] RSPM (R 4.3.0) #>  fastmap       1.1.1   2023-02-24 [1] RSPM (R 4.3.0) #>  fs            1.6.3   2023-07-20 [1] RSPM (R 4.3.0) #>  generics      0.1.3   2022-07-05 [1] RSPM (R 4.3.0) #>  glue          1.6.2   2022-02-24 [1] RSPM (R 4.3.0) #>  htmltools     0.5.6   2023-08-10 [1] RSPM (R 4.3.0) #>  jquerylib     0.1.4   2021-04-26 [1] RSPM (R 4.3.0) #>  jsonlite      1.8.7   2023-06-29 [1] RSPM (R 4.3.0) #>  knitr         1.44    2023-09-11 [1] RSPM (R 4.3.0) #>  kwb.utils     0.14.1  2023-09-23 [1] Github (kwb-r/kwb.utils@0930eae) #>  lifecycle     1.0.3   2022-10-07 [1] RSPM (R 4.3.0) #>  magrittr      2.0.3   2022-03-30 [1] RSPM (R 4.3.0) #>  memoise       2.0.1   2021-11-26 [1] RSPM (R 4.3.0) #>  pillar        1.9.0   2023-03-22 [1] RSPM (R 4.3.0) #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM (R 4.3.0) #>  pkgdown       2.0.7   2022-12-14 [1] RSPM (R 4.3.0) #>  purrr         1.0.2   2023-08-10 [1] RSPM (R 4.3.0) #>  R6            2.5.1   2021-08-19 [1] RSPM (R 4.3.0) #>  ragg          1.2.5   2023-01-12 [1] RSPM (R 4.3.0) #>  rlang         1.1.1   2023-04-28 [1] RSPM (R 4.3.0) #>  rmarkdown     2.25    2023-09-18 [1] RSPM (R 4.3.0) #>  rprojroot     2.0.3   2022-04-02 [1] RSPM (R 4.3.0) #>  sass          0.4.7   2023-07-15 [1] RSPM (R 4.3.0) #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM (R 4.3.0) #>  stringi       1.7.12  2023-01-11 [1] RSPM (R 4.3.0) #>  stringr       1.5.0   2022-12-02 [1] RSPM (R 4.3.0) #>  systemfonts   1.0.4   2022-02-11 [1] RSPM (R 4.3.0) #>  textshaping   0.3.6   2021-10-13 [1] RSPM (R 4.3.0) #>  tibble        3.2.1   2023-03-20 [1] RSPM (R 4.3.0) #>  tidyr       * 1.3.0   2023-01-24 [1] RSPM (R 4.3.0) #>  tidyselect    1.2.0   2022-10-10 [1] RSPM (R 4.3.0) #>  utf8          1.2.3   2023-01-31 [1] RSPM (R 4.3.0) #>  vctrs         0.6.3   2023-06-14 [1] RSPM (R 4.3.0) #>  xfun          0.40    2023-08-09 [1] RSPM (R 4.3.0) #>  yaml          2.3.7   2023-01-23 [1] RSPM (R 4.3.0) #>  #>  [1] D:/a/_temp/Library #>  [2] C:/R/library"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"pandoc","dir":"Articles","previous_headings":"5 Session Info > Packages","what":"Pandoc","title":"Emshoff 91","text":"","code":"#>                                           pandoc_directory pandoc_version #> 1 C:/HOSTED~1/windows/pandoc/219~1.2/x64/PANDOC~1.2/pandoc         2.19.2"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"install-r-packages","dir":"Articles","previous_headings":"","what":"1 Install R packages","title":"Hydrochemistry","text":"","code":"if (! require(\"remotes\")) {   install.packages(\"remotes\", repos = \"https://cloud.r-project.org\") }  remotes::install_github(\"kwb-r/kwb.geosalz\", dependencies = TRUE)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"define-paths","dir":"Articles","previous_headings":"2 Setup the project","what":"2.1 Define paths","title":"Hydrochemistry","text":"","code":"# Define paths and resolve placeholders paths_list <- list(   servername = Sys.getenv(\"servername\"),   root_server = \"//<servername>/projekte$/GRW_Department/PROJECTS\",   project = \"geosalz\",   root_project = \"<root_server>/<project>\",   monitoring = \"<root_project>/Work-packages/AP2_Monitoring\",   samples_bwb_dir = \"<monitoring>/Beprobung\",   version = \"1.12\",   samples_bwb = \"<samples_bwb_dir>/Hydrochemie_Gesamt_Geosalz_v<version>.xlsx\",   master_data = \"<samples_bwb>\",   isotopes_dir =  \"<monitoring>/Isotope/data\",   isotopes = \"<isotopes_dir>/Isotope.csv\",   phreeqc_dir = \"<samples_bwb_dir>/phreeqc\",   phreeqc_txt = \"<phreeqc_dir>/phreeqc_output_v%s.txt\",   phreeqc_xlsx = \"<phreeqc_dir>/phreeqc_output_v%s.xlsx\" )  paths <- kwb.utils::resolve(paths_list) #paths <- kwb.utils::resolve(paths, root = \"C:/projects\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"data-import","dir":"Articles","previous_headings":"","what":"3 Data import","title":"Hydrochemistry","text":"","code":"master_data <- kwb.geosalz::read_master_data(paths$master_data)  lab_bwb <- kwb.geosalz::read_lab_bwb(paths$samples_bwb, sheet = 'phreeqc_analysen')  lab_ufz <- kwb.geosalz::read_isotopes(paths$isotopes)  lab_data <- lab_bwb %>%    dplyr::mutate(probe_nr = as.character(.data$probe_nr)) %>%   dplyr::bind_rows(     lab_ufz %>%         dplyr::mutate(par_val_org = as.character(.data$par_val_org))   )  str(lab_data)  lab_data_master <- dplyr::left_join(lab_data, master_data, by = \"messstelle\")  str(lab_data_master)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"prepare-phreeqc-input-file","dir":"Articles","previous_headings":"4 PhreeqC","what":"4.1 Prepare PHREEQC Input File","title":"Hydrochemistry","text":"Content solutions_input shown :","code":"phreeqc_input <- kwb.geosalz::get_phreeqc_data(lab_data_master) phreeqc_input  phreeqc_input_wide <- kwb.geosalz::convert_phreeqc_input_to_wide(phreeqc_input) phreeqc_input_wide   solutions_input <-  kwb.geosalz::prepare_phreeqc_input(   phreeqc_input,   title = sprintf(\"Based on '%s'\", paths$samples_bwb) )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"run-phreeqc","dir":"Articles","previous_headings":"4 PhreeqC","what":"4.2 Run PHREEQC","title":"Hydrochemistry","text":"content phreeqc_output","code":"fs::dir_create(paths$phreeqc_dir)  ### Load PHREEQC database \"phreeqc.dat\" phreeqc::phrLoadDatabaseString(phreeqc::phreeqc.dat)  ### Capture PHREEQC output normally sent to output file into a buffer phreeqc::phrSetOutputStringsOn(TRUE)  ## Run PHREEQC with \"solutions_input\" phreeqc::phrRunString(input = solutions_input)  ### Retrieves the phreeqc output as a character vector phreeqc_output <- phreeqc::phrGetOutputStrings() writeLines(phreeqc_output, paths$phreeqc_txt)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"get-results","dir":"Articles","previous_headings":"4 PhreeqC","what":"4.3 Get Results","title":"Hydrochemistry","text":"","code":"sims <- geosalz.phreeqc::read_simulations(phreeqc_output) str(sims)  sims_list <- geosalz.phreeqc::convert_simulations_to_list(sims) str(sims_list)  n_components <- length(names(sims_list))  masters_lab <- lab_data %>%    dplyr::count(     .data$probe_nr,     .data$probenahme_datum,      .data$messstelle   ) %>%    dplyr::select(- .data$n) %>%    dplyr::left_join(master_data)  sims_list_master <- stats::setNames(      lapply(seq_len(n_components), function(i) {          if (i %in% 1:2) {              sims_list[[i]]            } else {              dplyr::left_join(         sims_list[[i]],         masters_lab,         by = c(\"solution_name\" = \"probe_nr\")       )     }   }),    names(sims_list) )  # View(sims_list_master$solution_composition) # View(sims_list_master$description_of_solution) # View(sims_list_master$redox_couples) # View(sims_list_master$distribution_of_species) # View(sims_list_master$saturation_indices)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"export-to-excel","dir":"Articles","previous_headings":"4 PhreeqC","what":"5 Export to Excel","title":"Hydrochemistry","text":"","code":"export_data <- c(   list(     \"master_data\" = master_data,      \"lab_bwb\" = lab_bwb,     \"lab_ufz\" = lab_ufz,     \"phreeqc_input\" = phreeqc_input_wide   ),   sims_list )  openxlsx::write.xlsx(   x = export_data,   file = paths$phreeqc_xlsx,   overwrite = TRUE )"},{"path":[]},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"packages","dir":"Articles","previous_headings":"6 Session Info","what":"Packages","title":"Hydrochemistry","text":"","code":"#>  package     * version date (UTC) lib source #>  bslib         0.5.1   2023-08-11 [1] RSPM (R 4.3.0) #>  cachem        1.0.8   2023-05-01 [1] RSPM (R 4.3.0) #>  cli           3.6.1   2023-03-23 [1] RSPM (R 4.3.0) #>  desc          1.4.2   2022-09-08 [1] RSPM (R 4.3.0) #>  digest        0.6.33  2023-07-07 [1] RSPM (R 4.3.0) #>  dplyr       * 1.1.3   2023-09-03 [1] RSPM (R 4.3.0) #>  evaluate      0.22    2023-09-29 [1] CRAN (R 4.3.1) #>  fansi         1.0.4   2023-01-22 [1] RSPM (R 4.3.0) #>  fastmap       1.1.1   2023-02-24 [1] RSPM (R 4.3.0) #>  fs            1.6.3   2023-07-20 [1] RSPM (R 4.3.0) #>  generics      0.1.3   2022-07-05 [1] RSPM (R 4.3.0) #>  glue          1.6.2   2022-02-24 [1] RSPM (R 4.3.0) #>  htmltools     0.5.6   2023-08-10 [1] RSPM (R 4.3.0) #>  jquerylib     0.1.4   2021-04-26 [1] RSPM (R 4.3.0) #>  jsonlite      1.8.7   2023-06-29 [1] RSPM (R 4.3.0) #>  knitr         1.44    2023-09-11 [1] RSPM (R 4.3.0) #>  kwb.utils     0.14.1  2023-09-23 [1] Github (kwb-r/kwb.utils@0930eae) #>  lifecycle     1.0.3   2022-10-07 [1] RSPM (R 4.3.0) #>  magrittr      2.0.3   2022-03-30 [1] RSPM (R 4.3.0) #>  memoise       2.0.1   2021-11-26 [1] RSPM (R 4.3.0) #>  pillar        1.9.0   2023-03-22 [1] RSPM (R 4.3.0) #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM (R 4.3.0) #>  pkgdown       2.0.7   2022-12-14 [1] RSPM (R 4.3.0) #>  purrr         1.0.2   2023-08-10 [1] RSPM (R 4.3.0) #>  R6            2.5.1   2021-08-19 [1] RSPM (R 4.3.0) #>  ragg          1.2.5   2023-01-12 [1] RSPM (R 4.3.0) #>  rlang         1.1.1   2023-04-28 [1] RSPM (R 4.3.0) #>  rmarkdown     2.25    2023-09-18 [1] RSPM (R 4.3.0) #>  rprojroot     2.0.3   2022-04-02 [1] RSPM (R 4.3.0) #>  sass          0.4.7   2023-07-15 [1] RSPM (R 4.3.0) #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM (R 4.3.0) #>  stringi       1.7.12  2023-01-11 [1] RSPM (R 4.3.0) #>  stringr       1.5.0   2022-12-02 [1] RSPM (R 4.3.0) #>  systemfonts   1.0.4   2022-02-11 [1] RSPM (R 4.3.0) #>  textshaping   0.3.6   2021-10-13 [1] RSPM (R 4.3.0) #>  tibble        3.2.1   2023-03-20 [1] RSPM (R 4.3.0) #>  tidyr       * 1.3.0   2023-01-24 [1] RSPM (R 4.3.0) #>  tidyselect    1.2.0   2022-10-10 [1] RSPM (R 4.3.0) #>  utf8          1.2.3   2023-01-31 [1] RSPM (R 4.3.0) #>  vctrs         0.6.3   2023-06-14 [1] RSPM (R 4.3.0) #>  xfun          0.40    2023-08-09 [1] RSPM (R 4.3.0) #>  yaml          2.3.7   2023-01-23 [1] RSPM (R 4.3.0) #>  #>  [1] D:/a/_temp/Library #>  [2] C:/R/library"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"pandoc","dir":"Articles","previous_headings":"6 Session Info > Packages","what":"Pandoc","title":"Hydrochemistry","text":"","code":"#>                                           pandoc_directory pandoc_version #> 1 C:/HOSTED~1/windows/pandoc/219~1.2/x64/PANDOC~1.2/pandoc         2.19.2"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"background","dir":"Articles","previous_headings":"","what":"Background","title":"Measurement Chains","text":"One measurement chain consists six sensors placed one production well, different filter depths. total, three measurement chains installed three different production wells. Table 1 lists individual sensors. number sensor within well given column sensor_endnummer. identifier production well sensor located given column brunnen_nummer. sensor (type: WLF05, TODO: add-link--factsheet--kwb-cloud) measures two parameters following characteristics: measurement range: 0 - 20 mS measurement range detection: automatic typical accuracy: +/- 1.5 % measurement value measurement range: 0 - 50 degree Celsius measurement resolution: 0.1 Kelvin typical accuracy: <= 0.1 Kelvin maximum temporal resolution sensor can provide “every second”. Within GeoSalz project, measurements taken every 5 minutes. sufficient detect potential salinity shifts caused changes pumping regime.","code":""},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"define-paths","dir":"Articles","previous_headings":"Data Management","what":"Define Paths","title":"Measurement Chains","text":"","code":"# Define paths to directories, using <placeholder> replacements paths <- kwb.utils::resolve(list(      # Local temporary directory   local_dir = kwb.geosalz:::temp_dir(),      # Target directory for downloaded measurement chain files (.csv)   download_dir = \"<local_dir>/download\",      # Local directory for aggregated data (.csv and .zip)   export_dir = \"<local_dir>/export\",      # KWB cloud directory to which data in \"export_dir\" is uploaded   upload_dir = \"projects/GeoSalz/Monitoring/messketten\" )) #> The directory \"C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz\" was created.  # Print all paths paths #> $local_dir #> [1] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz\" #>  #> $download_dir #> [1] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz/download\" #>  #> $export_dir #> [1] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz/export\" #>  #> $upload_dir #> [1] \"projects/GeoSalz/Monitoring/messketten\""},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"define-sftp-login","dir":"Articles","previous_headings":"Data Management","what":"Define SFTP Login","title":"Measurement Chains","text":"Run usethis::edit_r_environ() edit .Renviron file. file defines environment variables made accessible R session. Add following three rows, defining three environment variables, file. environment variables required log SFTP server input data downloaded. Replace placeholders <sftp_url>, <sftp_username>, <sftp_userpassword> URL, user name, password, respectively, required get access SFTP server. Save .Renviron file restart R session (e.g. “Session/Restart R” menu RStudio) make environment variables available R. case SFTP login credentials correct, code work. downloads measurement chains data (.e. parameters electrical conductivity temperature) SFTP server user-defined directory local device.","code":"MESSKETTEN_SERVER=<sftp_url> MESSKETTEN_USER=<sftp_username> MESSKETTEN_PASSWORD=<sftp_userpassword>"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"what-files-are-available-on-the-sftp-server","dir":"Articles","previous_headings":"Data Management > Data Download","what":"What files are available on the SFTP server?","title":"Measurement Chains","text":"","code":"# Metadata of measurement chains (see also Table 1 above) metadata <- kwb.geosalz::get_measurementchains_metadata() str(metadata) #> spc_tbl_ [18 × 10] (S3: spec_tbl_df/tbl_df/tbl/data.frame) #>  $ galerie               : chr [1:18] \"K\" \"K\" \"K\" \"K\" ... #>  $ brunnen_nummer        : int [1:18] 9 9 9 9 9 9 10 10 10 10 ... #>  $ dn                    : int [1:18] 400 400 400 400 400 400 600 600 600 600 ... #>  $ einbau_pumpe          : chr [1:18] \"über Filter\" \"über Filter\" \"über Filter\" \"über Filter\" ... #>  $ einbau_messkette      : chr [1:18] \"unter Pumpe\" \"unter Pumpe\" \"unter Pumpe\" \"unter Pumpe\" ... #>  $ filteroberkante_muGOK : num [1:18] 21 21 21 21 21 21 11 11 11 11 ... #>  $ filterunterkante_muGOK: num [1:18] 27 27 27 27 27 27 18 18 18 18 ... #>  $ sensor_id             : int [1:18] 4182018 4182017 4182016 4182015 4182014 4182013 4182006 4182005 4182004 4182003 ... #>  $ sensor_endnummer      : int [1:18] 8 7 6 5 4 3 6 5 4 3 ... #>  $ einbau_sensor_muGOK   : num [1:18] 21.5 22.5 23.5 24.5 25.5 26.5 11.5 12.7 13.9 15.1 ... #>  - attr(*, \"spec\")= #>   .. cols( #>   ..   galerie = col_character(), #>   ..   brunnen_nummer = col_integer(), #>   ..   dn = col_integer(), #>   ..   einbau_pumpe = col_character(), #>   ..   einbau_messkette = col_character(), #>   ..   filteroberkante_muGOK = col_double(), #>   ..   filterunterkante_muGOK = col_double(), #>   ..   sensor_id = col_integer(), #>   ..   sensor_endnummer = col_integer(), #>   ..   einbau_sensor_muGOK = col_double() #>   .. ) #>  - attr(*, \"problems\")=<externalptr>  # Information on available measurement chain files on SFTP server mc_files <- kwb.geosalz::get_measurementchains_files()  str(mc_files) #> 'data.frame':    6385 obs. of  16 variables: #>  $ rights          : chr  \"-rw-r--r--\" \"-rw-r--r--\" \"-rw-r--r--\" \"-rw-r--r--\" ... #>  $ links           : chr  \"1\" \"1\" \"1\" \"1\" ... #>  $ ownername       : chr  \"1011\" \"1011\" \"1011\" \"1011\" ... #>  $ ownergroup      : chr  \"1002\" \"1002\" \"1002\" \"1002\" ... #>  $ filesize        : chr  \"4559\" \"4559\" \"4559\" \"4559\" ... #>  $ t1              : chr  \"Oct\" \"Oct\" \"Oct\" \"Oct\" ... #>  $ t2              : chr  \"24\" \"24\" \"24\" \"25\" ... #>  $ t3              : chr  \"2022\" \"2022\" \"2022\" \"2022\" ... #>  $ sftp_path       : chr  \"K09/4182013-2022-10-22-0606.csv\" \"K09/4182013-2022-10-23-0606.csv\" \"K09/4182013-2022-10-24-0606.csv\" \"K09/4182013-2022-10-25-0606.csv\" ... #>  $ type            : chr  \"file\" \"file\" \"file\" \"file\" ... #>  $ galerie         : chr  \"K\" \"K\" \"K\" \"K\" ... #>  $ brunnen_nummer  : int  9 9 9 9 9 9 9 9 9 9 ... #>  $ prefix          : chr  \"\" \"\" \"\" \"\" ... #>  $ sensor_id       : int  4182013 4182013 4182013 4182013 4182013 4182013 4182013 4182013 4182013 4182013 ... #>  $ sensor_endnummer: int  3 3 3 3 3 3 3 3 3 3 ... #>  $ datum_uhrzeit   : POSIXct, format: \"2022-10-22 06:06:00\" \"2022-10-23 06:06:00\" ... head(mc_files) #>       rights links ownername ownergroup filesize  t1 t2   t3 #> 1 -rw-r--r--     1      1011       1002     4559 Oct 24 2022 #> 2 -rw-r--r--     1      1011       1002     4559 Oct 24 2022 #> 3 -rw-r--r--     1      1011       1002     4559 Oct 24 2022 #> 4 -rw-r--r--     1      1011       1002     4559 Oct 25 2022 #> 5 -rw-r--r--     1      1011       1002     4559 Oct 26 2022 #> 6 -rw-r--r--     1      1011       1002     4559 Oct 27 2022 #>                         sftp_path type galerie brunnen_nummer prefix sensor_id #> 1 K09/4182013-2022-10-22-0606.csv file       K              9          4182013 #> 2 K09/4182013-2022-10-23-0606.csv file       K              9          4182013 #> 3 K09/4182013-2022-10-24-0606.csv file       K              9          4182013 #> 4 K09/4182013-2022-10-25-0606.csv file       K              9          4182013 #> 5 K09/4182013-2022-10-26-0606.csv file       K              9          4182013 #> 6 K09/4182013-2022-10-27-0606.csv file       K              9          4182013 #>   sensor_endnummer       datum_uhrzeit #> 1                3 2022-10-22 06:06:00 #> 2                3 2022-10-23 06:06:00 #> 3                3 2022-10-24 06:06:00 #> 4                3 2022-10-25 06:06:00 #> 5                3 2022-10-26 06:06:00 #> 6                3 2022-10-27 06:06:00  # All paths to files on the SFTP server all_paths <- kwb.utils::selectColumns(mc_files, \"sftp_path\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"what-data-are-already-available-on-the-nextcloud-server","dir":"Articles","previous_headings":"Data Management > Data Download","what":"What data are already available on the Nextcloud server?","title":"Measurement Chains","text":"","code":"# Download existing data from the Nextcloud server. NULL is returned if there is # no file \"mc_data.zip\" in the Nextcloud folder  # \"projects/GeoSalz/Monitoring/messketten\" old_data <- kwb.geosalz::get_measurement_chain_data_on_cloud() #> The directory \"~/../Downloads/nextcloud_15701eed3af\" was created. #> Downloading remote.php/dav/files/hsonne/projects/GeoSalz/Monitoring/messketten/mc_data.zip ... ok. (1.02 secs) #old_data <- NULL"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"what-files-need-to-be-downloaded-from-the-sftp-server","dir":"Articles","previous_headings":"Data Management > Data Download","what":"What files need to be downloaded from the SFTP server?","title":"Measurement Chains","text":"","code":"# Determine the SFTP paths of the files to be downloaded. Download all available # files if there was no data on the Nextcloud yet. Otherwise, download only # those files that have been added to the SFTP server since when this script was # run the last time. new_paths <- if (is.null(old_data)) {      all_paths    } else {      # Get SFTP paths from which data were originally retrieved   old_paths <- unique(kwb.utils::selectColumns(old_data, \"file\"))      # Determine the paths to the new files that need to be downloaded   setdiff(all_paths, old_paths) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"download-the-new-files-from-the-sftp-server","dir":"Articles","previous_headings":"Data Management > Data Download","what":"Download the new files from the SFTP server","title":"Measurement Chains","text":"","code":"# If there are new files to download, download them. csv_files <- if (length(new_paths)) {      # Download only the new measurement chain files (.csv) from the SFTP server   kwb.geosalz::download_measurementchains_data(     sftp_paths = new_paths,     target_directory = paths$download_dir,     debug = TRUE   )    } # else NULL implicitly #> The directory \"C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download\" was created. #> Download 18 measurement chains files (using 1 CPU core) to C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download ... #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> Creating folder C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/download/K09 #> K09/4182013-2023-10-05-0606.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182014-2023-10-05-0616.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182015-2023-10-05-0625.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182016-2023-10-05-0611.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182017-2023-10-05-0621.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182018-2023-10-05-0631.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> Creating folder C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/download/K10 #> K10/LF_4182001_2023-10-05-0601.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182002_2023-10-05-0605.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182003_2023-10-05-0610.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182004_2023-10-05-0636.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182005_2023-10-05-0641.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182006_2023-10-05-0631.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> Creating folder C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/download/K13 #> K13/4182007-2023-10-05-0605.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182008-2023-10-05-0615.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182009-2023-10-05-0626.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182010-2023-10-05-0610.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182011-2023-10-05-0620.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182012-2023-10-05-0630.csv downloaded #> 1 file(s) downloaded. #> ok. (46.06 secs)  str(csv_files) #>  chr [1:18] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz/download/K09/4182013-2023-10-05-0606.csv\" ..."},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"data-import","dir":"Articles","previous_headings":"Data Management","what":"Data Import","title":"Measurement Chains","text":"following code imports downloaded measurement chains files (.csv) R: following datasets imported R already available R: cover time period 2022-09-27 11:00:00 2023-10-04 23:00:00 total 135000 samples.","code":"# Set the current data to the old data (may be NULL) mc_data <- old_data  # If new files have been downloaded, import them into R if (length(csv_files)) {      # Import csv files using multiple CPU cores   new_data <- kwb.geosalz::read_measurementchains_data(     csv_files,     run_parallel = TRUE,     debug = TRUE   )      # Combine the new data with the existing data and reorder   mc_data <- mc_data %>%     rbind(new_data) %>%     kwb.geosalz::order_measurement_chain_data() } #> Importing 18 measurement chains files (using 1 CPU core) ... ok. (2.27 secs)  #> Filtering out 'lab' measurements before '2022-09-27 11:00:00' (installation in K10) ... ok. (0.00 secs) mc_data_stats <- mc_data %>%   kwb.geosalz::get_measurmentchains_data_stats() %>%    dplyr::arrange(     .data$parameter,      dplyr::desc(.data$sensor_id)   )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"data-export","dir":"Articles","previous_headings":"Data Management","what":"Data Export","title":"Measurement Chains","text":"file size mc_data_20220927-110000TZ+01_20231004-230000TZ+01.csv file 22 times larger compared compressing mc_data.zip.","code":"debug <- TRUE  # Export \"mc_data\" to csv file data_csv_path <- kwb.geosalz::write_measurementchains_data(   mc_data,   target_directory = paths$export_dir,   to_zip = FALSE,   debug = debug ) #> Exporting provided dataset 'mc_data' to 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231004-230000TZ+01.csv' ... ok. (3.15 secs)  size_data_csv <- fs::file_size(data_csv_path)  # Export \"mc_data\" to zip file (~10x less disk space for test dataset) data_zip_path <- kwb.geosalz::write_measurementchains_data(   mc_data,   target_directory = paths$export_dir,   to_zip = TRUE,   debug = debug ) #> Exporting provided dataset 'mc_data' to 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231004-230000TZ+01.csv' ... ok. (3.24 secs)  #> Exporting provided dataset 'mc_data' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data.zip' and delete intermediate 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231004-230000TZ+01.csv' ... ok. (0.22 secs)  size_data_zip <- fs::file_size(data_zip_path) size_data_csv / size_data_zip #> 22  extract_data_timeperiod <- function(file) {   basename(file) %>%      kwb.utils::replaceFileExtension(\"\") %>%       stringr::str_remove(\"^mc[-|_]data\") }  # Define helper function to write a csv file in a target directory write_csv <- function(df, postfix = \"\", target_dir) {   fs::dir_create(target_dir)   name <- deparse(substitute(df))   file <- file.path(target_dir, paste0(name, postfix,  \".csv\"))   readr::write_csv(df, file)   file }  postfix <- extract_data_timeperiod(data_zip_path) target_dir <- paths$export_dir  # Export data and metadata to csv files stats_path <- write_csv(mc_data_stats, postfix, target_dir) metadata_path <- write_csv(metadata, postfix, target_dir) files_path <- write_csv(mc_files, postfix, target_dir)  # Define function that plots data to a pdf file plot_to_pdf <- function(mc_data, para, target_dir = \".\", debug = TRUE) {      plots <- kwb.geosalz::plot_measurementchains(mc_data, para)      sapply(names(plots), function(name) {     path <-  file.path(target_dir, sprintf(\"mc_data_%s.pdf\", name))     kwb.utils::catAndRun(       sprintf(\"Writting '%s' to '%s'\", name, path),       expr = {         kwb.utils::preparePdf(path, width.cm = 25, height.cm = 15)         on.exit(dev.off())         print(plots[[name]])         path       },        dbg = debug     )   }) }  pdf_files <- c(   plot_to_pdf(mc_data, \"Leitfaehigkeit\", paths$export_dir),    plot_to_pdf(mc_data, \"Temperatur\", paths$export_dir) ) #> Writting 'Leitfaehigkeit_K10' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K10.pdf' ... #> ok. (1.49 secs)  #> Writting 'Leitfaehigkeit_K13' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K13.pdf' ... #> ok. (0.88 secs)  #> Writting 'Leitfaehigkeit_K09' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K09.pdf' ... #> ok. (0.87 secs)  #> Writting 'Temperatur_K10' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K10.pdf' ... #> ok. (1.14 secs)  #> Writting 'Temperatur_K13' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K13.pdf' ... #> ok. (0.80 secs)  #> Writting 'Temperatur_K09' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K09.pdf' ... #> ok. (0.87 secs)  data_zip_path #> [1] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz/export/mc_data.zip\""},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"data-upload","dir":"Articles","previous_headings":"Data Management","what":"Data Upload","title":"Measurement Chains","text":"order automate data management process exported data data uploaded restricted shared folder KWB cloud. following environment variables need defined case code run client computer. However, variables defined GitHub actions workflow need locally. Subsequently following code run uploading data:","code":"NEXTCLOUD_URL = \"https://<replace-with-kwb-cloud-url>\" NEXTCLOUD_USER = \"<your-kwb-cloud-username>\" # your username NEXTCLOUD_PASSWORD = \"your-nextcloud-app-password\" ### see details below # List paths of files to upload explicitly upload_files <- kwb.geosalz:::exclude_missing_files(c(   stats_path,    pdf_files,   metadata_path,    files_path,   data_zip_path ))  for (file in upload_files) {      kwb.utils::catAndRun(     messageText = paste(\"Uploading file\", file),     expr = try(kwb.nextcloud::upload_file(       file = file,        target_path = paths$upload_dir     )),     dbg = TRUE   ) } #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_stats.csv ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_stats.csv #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.42 secs)  #> ok. (2.14 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K10.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K10.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (2.07 secs)  #> ok. (2.46 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K13.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K13.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.42 secs)  #> ok. (1.81 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K09.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K09.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.59 secs)  #> ok. (1.97 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K10.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K10.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.67 secs)  #> ok. (2.07 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K13.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K13.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.62 secs)  #> ok. (2.02 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K09.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K09.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.55 secs)  #> ok. (1.94 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/metadata.csv ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/metadata.csv #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.43 secs)  #> ok. (1.81 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_files.csv ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_files.csv #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.48 secs)  #> ok. (1.88 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data.zip ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data.zip #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.64 secs)  #> ok. (2.03 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"define-helper-functions","dir":"Articles","previous_headings":"","what":"Define Helper Functions","title":"Wasserportal","text":"","code":"library(kwb.geosalz)  add_label <- function(df, columns) {   df %>%     dplyr::mutate(label = wasserportal::columns_to_labels(       data = df,       columns = columns,       fmt = \"<p>%s: %s<\/p>\",       sep = \"\"     )) }  add_interval_label <- function(df) {   add_label(df, c(\"Nummer\", \"start\", \"end\", \"n\", \"interval\")) }  add_waterbody_label <- function(df) {   add_label(df, c(\"Nummer\", \"Gewaesser\", \"Auspraegung\", \"Betreiber\")) }  get_data_stats <- function(df, group_col = \"Messstellennummer\") {   df %>%     dplyr::group_by(.data[[group_col]]) %>%     dplyr::summarise(       start = min(as.Date(.data$Datum)),       end = max(as.Date(.data$Datum)),       period = diff(c(.data$start, .data$end)),       n = dplyr::n(),       interval = round(.data$period / .data$n)     ) }  difftime_to_numeric <- function(df) {   df %>%       dplyr::rename(       period_days = \"period\",        interval_days = \"interval\"     ) %>%      dplyr::mutate(       period_days = as.numeric(.data$period_days),       interval_days = as.numeric(.data$interval_days)     ) }  remove_na_and_geometry <- function(df) {   df %>%     kwb.utils::removeColumns(\"label\") %>%     kwb.utils::removeEmptyColumns(dbg = FALSE) %>%     remove_geometry() }  remove_geometry <- function(df) {   sf::st_geometry(df) <- NULL   df }  write_csv <- function(x, file) {   kwb.utils::catAndRun(     sprintf(\"Writing %s to %s\", deparse(substitute(x)), file),     readr::write_csv2(x, file)   ) }  # Function to create a map create_map <- function(     basemap, data, labels, legend_label, legend_color, circle_color ) {   basemap %>%     leaflet::addCircles(       data = data,       color = circle_color,       opacity = 0.4,       label = lapply(labels, htmltools::HTML)     ) %>%     leaflet::addLegend(       position = \"topright\",       colors = c(\"red\", legend_color),       labels = c(\"SVM Modellgrenze\", legend_label),       title = \"Legende\"     ) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"initialise-objects","dir":"Articles","previous_headings":"","what":"Initialise objects","title":"Wasserportal","text":"","code":"swl_data_stats_export <- NULL gwl_data_stats_export <- NULL gwq_chloride_data_stats_export <- NULL # Load SVM boundaries and transform coordinate reference system (CRS) svm <- \"extdata/gis/shapefiles/svm_south.shp\" %>%   system.file(package = \"kwb.geosalz\") %>%   sf::st_read() %>%   sf::st_transform(crs = 4326) #> Reading layer `svm_south' from data source  #>   `D:\\a\\_temp\\Library\\kwb.geosalz\\extdata\\gis\\shapefiles\\svm_south.shp'  #>   using driver `ESRI Shapefile' #> Simple feature collection with 1 feature and 2 fields #> Geometry type: POLYGON #> Dimension:     XY #> Bounding box:  xmin: 13.49052 ymin: 52.3341 xmax: 13.75224 ymax: 52.45715 #> Geodetic CRS:  WGS 84  # Print information on the CRS sf::st_crs(svm) #> Coordinate Reference System: #>   User input: EPSG:4326  #>   wkt: #> GEOGCRS[\"WGS 84\", #>     ENSEMBLE[\"World Geodetic System 1984 ensemble\", #>         MEMBER[\"World Geodetic System 1984 (Transit)\"], #>         MEMBER[\"World Geodetic System 1984 (G730)\"], #>         MEMBER[\"World Geodetic System 1984 (G873)\"], #>         MEMBER[\"World Geodetic System 1984 (G1150)\"], #>         MEMBER[\"World Geodetic System 1984 (G1674)\"], #>         MEMBER[\"World Geodetic System 1984 (G1762)\"], #>         MEMBER[\"World Geodetic System 1984 (G2139)\"], #>         ELLIPSOID[\"WGS 84\",6378137,298.257223563, #>             LENGTHUNIT[\"metre\",1]], #>         ENSEMBLEACCURACY[2.0]], #>     PRIMEM[\"Greenwich\",0, #>         ANGLEUNIT[\"degree\",0.0174532925199433]], #>     CS[ellipsoidal,2], #>         AXIS[\"geodetic latitude (Lat)\",north, #>             ORDER[1], #>             ANGLEUNIT[\"degree\",0.0174532925199433]], #>         AXIS[\"geodetic longitude (Lon)\",east, #>             ORDER[2], #>             ANGLEUNIT[\"degree\",0.0174532925199433]], #>     USAGE[ #>         SCOPE[\"Horizontal component of 3D system.\"], #>         AREA[\"World.\"], #>         BBOX[-90,-180,90,180]], #>     ID[\"EPSG\",4326]]  # Function to filter for study area filter_for_study_area <- function(x) {   sf::st_filter(x, y = svm$geometry[svm$name == \"Friedrichshagen\"]) }  # Get information on \"Wasserportal\"-stations  stations <- wasserportal::get_stations() #> Importing 9 station overviews from Wasserportal Berlin ... ok. (12.37 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"download-and-process-surface-water-level-data","dir":"Articles","previous_headings":"","what":"Download and Process Surface Water Level Data","title":"Wasserportal","text":"","code":"try({      swl_master <- wasserportal::get_wasserportal_masters_data(     master_urls = stations$overview_list$surface_water.water_level %>%       dplyr::filter(.data$Betreiber == \"Land Berlin\") %>%       dplyr::pull(.data$stammdaten_link)   )       swl_master_sf <- swl_master %>%     kwb.geosalz::convert_to_sf() %>%     filter_for_study_area() %>%     add_waterbody_label()      swl_master <- swl_master %>%      dplyr::filter(.data$Nummer %in% swl_master_sf$Nummer)       write_csv(swl_master, \"swl_master.csv\")      swl_data_list <- lapply(     X = stats::setNames(nm = swl_master$Nummer),     FUN = wasserportal::read_wasserportal,     from_date = \"1900-01-01\",     variables = \"ows\",      type = \"daily\",     stations_crosstable = stations$crosstable   )      column_level_zero <- \"Pegelnullpunkt_m_NHN\"   key_columns <- c(\"Nummer\", column_level_zero)    swl_data <- stats::setNames(nm = names(swl_data_list)) %>%     lapply(function(name) swl_data_list[[name]][[1]]) %>%      dplyr::bind_rows(.id = \"Messstellennummer\") %>%      dplyr::mutate(Datum = as.Date(.data$Datum, format = \"%d.%m.%Y\")) %>%      dplyr::filter(.data$Tagesmittelwert != -777) %>%      dplyr::rename(       Tagesmittelwert_cm_ueber_Pegelnullpunkt = \"Tagesmittelwert\"     ) %>%      dplyr::left_join(       swl_master[, ..key_columns],       by = c(Messstellennummer = \"Nummer\")     ) %>%       dplyr::mutate(       Tagesmittelwert_Pegelstand_mNN = as.numeric(.data[[column_level_zero]]) +         .data$Tagesmittelwert_cm_ueber_Pegelnullpunkt / 100     ) %>%      kwb.utils::removeColumns(column_level_zero)      write_csv(swl_data, \"swl_data.csv\")      swl_data_stats <- get_data_stats(swl_data)      swl_data_stats_export <- swl_master_sf %>%      remove_na_and_geometry() %>%     dplyr::left_join(       difftime_to_numeric(swl_data_stats),       by = c(\"Nummer\" = \"Messstellennummer\")     )      write_csv(swl_data_stats_export, \"swl_data_stats.csv\") }) #> Importing 62 station metadata from Wasserportal Berlin ... ok. (1.13 mins)  #> Writing swl_master to swl_master.csv ... ok. (0.16 secs)  #> Reading 'NA' for station 5827103 (station_5827103) ... ok. (1.04 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Reading 'NA' for station 5827101 (station_5827101) ... ok. (1.02 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Reading 'NA' for station 5826702 (station_5826702) ... ok. (0.81 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Reading 'NA' for station 5826701 (station_5826701) ... ok. (0.77 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Reading 'NA' for station 5862811 (station_5862811) ... ok. (0.66 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Writing swl_data to swl_data.csv ... ok. (0.20 secs)  #> Writing swl_data_stats_export to swl_data_stats.csv ... ok. (0.01 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"download-and-process-groundwater-level-data","dir":"Articles","previous_headings":"","what":"Download and Process Groundwater Level Data","title":"Wasserportal","text":"","code":"try({    gwl_master <- jsonlite::fromJSON(     \"https://kwb-r.github.io/wasserportal/stations_gwl_master.json\"   )      gwl_master_sf <- gwl_master %>%     kwb.geosalz::convert_to_sf() %>%     filter_for_study_area()      gwl_master <- gwl_master %>%      dplyr::filter(.data$Nummer %in% gwl_master_sf$Nummer)      write_csv(gwl_master, \"gwl_master.csv\")      gwl_data <- lapply(     X = gwl_master$Nummer,     FUN = wasserportal::read_wasserportal_raw_gw,      stype = \"gwl\"   ) %>%      data.table::rbindlist()      write_csv(gwl_data, \"gwl_data.csv\")      gwl_data_stats <- get_data_stats(gwl_data)       gwl_data_stats_export <- gwl_master_sf %>%      remove_na_and_geometry() %>%     dplyr::left_join(       difftime_to_numeric(gwl_data_stats),       by = c(\"Nummer\" = \"Messstellennummer\")     )      write_csv(gwl_data_stats_export, \"gwl_data_stats.csv\")      gwl_master_stats <- gwl_master %>%     dplyr::left_join(gwl_data_stats, by = c(Nummer = \"Messstellennummer\")) %>%     add_interval_label()    }) #> Writing gwl_master to gwl_master.csv ... ok. (0.01 secs)  #> Writing gwl_data to gwl_data.csv ... ok. (0.69 secs)  #> Writing gwl_data_stats_export to gwl_data_stats.csv ... ok. (0.02 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"download-and-process-groundwater-quality-data","dir":"Articles","previous_headings":"","what":"Download and Process Groundwater Quality Data","title":"Wasserportal","text":"","code":"try({      gwq_master <- jsonlite::fromJSON(     \"https://kwb-r.github.io/wasserportal/stations_gwq_master.json\"   )    gwq_master_sf <- gwq_master %>%     kwb.geosalz::convert_to_sf() %>%     filter_for_study_area()      gwq_master <- gwq_master %>%      dplyr::filter(.data$Nummer %in% gwq_master_sf$Nummer)      write_csv(gwq_master, \"gwq_master.csv\")      gw_master <- gwl_master %>%       dplyr::full_join(gwq_master) %>%      dplyr::mutate(Nummer = as.integer(.data$Nummer)) %>%      dplyr::arrange(.data$Nummer)      write_csv(gw_master, \"gw_master.csv\")      gwq_data <- jsonlite::fromJSON(     \"https://kwb-r.github.io/wasserportal/stations_gwq_data.json\"   ) %>%     dplyr::filter(.data$Messstellennummer %in% gwq_master$Nummer)      write_csv(gwq_data, \"gwq_data.csv\")      gwq_chloride_data <- gwq_data %>%     dplyr::filter(.data$Parameter == \"Chlorid\")      write_csv(gwq_chloride_data, \"gwq_chloride_data.csv\")      gwq_chloride_master <- gwq_master %>%      dplyr::filter(.data$Nummer %in% gwq_chloride_data$Messstellennummer)      write_csv(gwq_chloride_master, \"gwq_chloride_master.csv\")      gwq_chloride_data_stats <- gwq_chloride_data %>%     get_data_stats()      gwq_chloride_data_stats_export <- gwq_chloride_master %>%     kwb.geosalz::convert_to_sf() %>%      remove_na_and_geometry() %>%     dplyr::mutate(Nummer = as.integer(.data$Nummer)) %>%      dplyr::left_join(       difftime_to_numeric(gwq_chloride_data_stats),       by = c(\"Nummer\" = \"Messstellennummer\")     )      write_csv(gwq_chloride_data_stats_export, \"gwq_chloride_data_stats.csv\")      gwq_chloride_master_stats <- gwq_chloride_master %>%     dplyr::mutate(Nummer = as.integer(.data$Nummer)) %>%     dplyr::left_join(       gwq_chloride_data_stats,        by = c(\"Nummer\" = \"Messstellennummer\")     ) %>%     add_interval_label()      write_csv(gwq_chloride_master_stats, \"gwq_chloride_master_stats.csv\") }) #> Writing gwq_master to gwq_master.csv ... ok. (0.01 secs) #> Joining with `by = join_by(Nummer, Bezirk, Betreiber, Auspraegung, #> Grundwasserleiter, Gelaendeoberkante_GOK_m_ue_NHN, Rohroberkante_m_ue_NHN, #> Filteroberkante_m_u_GOK, Filterunterkante_m_u_GOK, Rechtswert_UTM_33_N, #> Hochwert_UTM_33_N)` #> Writing gw_master to gw_master.csv ... ok. (0.02 secs)  #> Writing gwq_data to gwq_data.csv ... ok. (0.13 secs)  #> Writing gwq_chloride_data to gwq_chloride_data.csv ... ok. (0.07 secs)  #> Writing gwq_chloride_master to gwq_chloride_master.csv ... ok. (0.01 secs)  #> Writing gwq_chloride_data_stats_export to gwq_chloride_data_stats.csv ... ok. (0.01 secs)  #> Writing gwq_chloride_master_stats to gwq_chloride_master_stats.csv ... ok. (0.01 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"create-maps","dir":"Articles","previous_headings":"","what":"Create Maps","title":"Wasserportal","text":"","code":"basemap <- svm %>%   leaflet::leaflet() %>%   leaflet::addTiles() %>%   leaflet::addProviderTiles(leaflet::providers$CartoDB.Positron) %>%   leaflet::addPolygons(color = \"red\", fill = FALSE)  swl_map <- try(create_map(   basemap,   data = swl_master_sf,    labels = swl_master_sf$label,   legend_label = \"OW-Stand (Wasserportal)\",   legend_color = \"darkblue\",   circle_color = \"blue\" ))  gwl_map <- try(create_map(   basemap,   data = kwb.geosalz::convert_to_sf(gwl_master_stats),   labels = gwl_master_stats$label,   legend_label = \"GW-Stand (Wasserportal)\",   legend_color = \"blue\",   circle_color = \"blue\" ))  gwq_map <- try(create_map(   basemap,   data = kwb.geosalz::convert_to_sf(gwq_chloride_master_stats),   labels = gwq_chloride_master_stats$label,   legend_label = \"GW-G\\u00FCte (Wasserportal)\",   legend_color = \"orange\",   circle_color = \"orange\" ))  print(swl_map) print(gwl_map) print(gwq_map)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"save-maps","dir":"Articles","previous_headings":"","what":"Save Maps","title":"Wasserportal","text":"Save maps full page view: Links full-page view maps: https://kwb-r.github.io/kwb.geosalz/map_swl.html https://kwb-r.github.io/kwb.geosalz/map_gwl.html https://kwb-r.github.io/kwb.geosalz/map_gwq.html","code":"htmlwidgets::saveWidget(   swl_map,    \"./map_swl.html\",    title = \"SW level\" ) htmlwidgets::saveWidget(   gwl_map,    \"./map_gwl.html\",    title = \"GW level\" ) htmlwidgets::saveWidget(   gwq_map,    \"./map_gwq.html\",    title = \"GW quality (Chloride)\" )"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"surface-water","dir":"Articles","previous_headings":"Datasets","what":"Surface Water","title":"Wasserportal","text":"https://kwb-r.github.io/kwb.geosalz/swl_master.csv https://kwb-r.github.io/kwb.geosalz/swl_data.csv https://kwb-r.github.io/kwb.geosalz/swl_data_stats.csv","code":""},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"master-data","dir":"Articles","previous_headings":"Datasets > Groundwater","what":"Master Data","title":"Wasserportal","text":"Groundwater Levels Groundwater Levels https://kwb-r.github.io/kwb.geosalz/gw_master.csv","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"groundwater-levels","dir":"Articles","previous_headings":"Datasets > Groundwater","what":"Groundwater Levels","title":"Wasserportal","text":"https://kwb-r.github.io/kwb.geosalz/gwl_master.csv https://kwb-r.github.io/kwb.geosalz/gwl_data.csv https://kwb-r.github.io/kwb.geosalz/gwl_data_stats.csv","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"groundwater-quality","dir":"Articles","previous_headings":"Datasets > Groundwater","what":"Groundwater Quality","title":"Wasserportal","text":"https://kwb-r.github.io/kwb.geosalz/gwq_master.csv https://kwb-r.github.io/kwb.geosalz/gwq_data.csv https://kwb-r.github.io/kwb.geosalz/gwq_chloride_master.csv https://kwb-r.github.io/kwb.geosalz/gwq_chloride_master_stats.csv https://kwb-r.github.io/kwb.geosalz/gwq_chloride_data.csv","code":""},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"sw-levels","dir":"Articles","previous_headings":"Datasets > Tables","what":"SW Levels","title":"Wasserportal","text":"","code":"DT::datatable(swl_data_stats_export)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"gw-levels","dir":"Articles","previous_headings":"Datasets > Tables","what":"GW Levels","title":"Wasserportal","text":"stats groundwater levels","code":"DT::datatable(gwl_data_stats_export)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"gw-quality","dir":"Articles","previous_headings":"Datasets > Tables","what":"GW Quality","title":"Wasserportal","text":"stats Chloride","code":"DT::datatable(gwq_chloride_data_stats_export)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"install-r-packages","dir":"Articles","previous_headings":"","what":"1 Install R packages","title":"Workflow","text":"","code":"if (! require(\"remotes\")) {   install.packages(\"remotes\", repos = \"https://cloud.r-project.org\") }  remotes::install_github(\"kwb-r/kwb.geosalz\", dependencies = TRUE)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"define-paths","dir":"Articles","previous_headings":"2 Setup the project","what":"2.1 Define paths","title":"Workflow","text":"","code":"# Define paths and resolve placeholders paths <- list(   servername = Sys.getenv(\"servername\"),   root_server = \"//<servername>/processing\",   project = \"geosalz\",   task = \"labor\",   processing = \"<root>/<project>/<task>\",   input_dir = \"<processing>/precleaned-data/v0.2\",   input_dir_meta = \"<input_dir>/META\",   export_dir = \"<processing>/precleaned-data/v0.3\",   export_dir_meta = \"<export_dir>/META\",   cleaned_data_dir = \"<processing>/cleaned-data\",   figures_dir = \"<processing>/figures\",   foerdermengen = \"<export_dir>/2018-04-27 Rohwasser Bericht - Galeriefördermengen.xlsx\",   parameters = \"<export_dir_meta>/2018-06-01 Lab Parameter.xlsx\",   lookup_para = \"<export_dir_meta>/lookup_para.csv\",   sites = \"<export_dir_meta>/Info-Altdaten.xlsx\" )  paths <- kwb.utils::resolve(paths, root = \"root_server\") #paths <- kwb.utils::resolve(paths, root = \"C:/projects\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"check-input-directory","dir":"Articles","previous_headings":"2 Setup the project","what":"2.2 Check input directory","title":"Workflow","text":"Check input directory selected exists:","code":"# Check if input directory exists input_dir <- kwb.utils::safePath(kwb.utils::selectElements(paths, \"input_dir\"))"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"check-export-directory","dir":"Articles","previous_headings":"2 Setup the project","what":"2.3 Check export directory","title":"Workflow","text":"Check case export directory available create :","code":"# Check if exists and if not create it export_dir <- paths %>%   kwb.utils::selectElements(\"export_dir\") %>%   kwb.utils::createDirectory() %>%   kwb.utils::safePath() ## Convert xls to xlsx files kwb.geosalz::convert_xls_as_xlsx(input_dir, export_dir)  ## Copy xlsx files  kwb.geosalz::copy_xlsx_files(input_dir, export_dir, overwrite = TRUE)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"categorise-the-excel-files","dir":"Articles","previous_headings":"3 Data import","what":"3.1 Categorise the Excel Files","title":"Workflow","text":"Select files consist : Header 1 (meta): manually added metadata extra sheet Header 1: single header tables Header 2: two-row header tables Header 4: four row header tables","code":"# Get all xlsx files to be imported files <- dir(export_dir, \".xlsx\", recursive = TRUE, full.names = TRUE)  files_meta <- c(   \"Meta Info\",   \"Header ident\",   \"Parameter ident\",   \"Parameter\",   \"Info-Altdaten\",   \"Brandenburg_Parameter_BWB_Stolpe\",   \"Kopie von Brandenburg_Parameter_BWB_Stolpe\",   \"2005-10BeschilderungProbenahmestellenGWWIII\",   \"Bezeichnungen der Reinwasserstellen\",   \"ReinwasserNomenklatur\",   \"Info zu Altdaten 1970-1998\",   \"2018-06-01 Lab Parameter\" )  files_header1_meta <- c(   \"FRI_Br_GAL_C_Einzelparameter\",   \"FRI_Roh_Rein_NH4+NO3_2001-2003\",   \"MTBE_2003-11_2004\",   \"Reinwasser_2003_Fe_Mn\", ## unclean   \"VC_CN_in Brunnen bis Aug_2005 \", ## unclean   \"Wuhlheide_Beelitzhof_Teildaten\" ## unclean )  files_header1 <- c(   \"2018-04-11 Chlorid in Brunnen - Übersicht\",   \"2018-04-27 LIMS Reiw & Rohw Sammel \",   \"2018-04-27 Rohwasser Bericht - Galeriefördermengen\" )  files_header4 <- c(   \"STO Rohw_1999-6_2004\",   \"Wuhlheide_1999-2003_Okt - Neu\",   \"KAU_1999-Okt2003\" )  files_archive <- \"Siebert\"  files_to_ignore <- c(   files_meta, files_header1, files_header1_meta,   files_header4, files_archive )  in_files_to_ignore <- kwb.utils::removeExtension(basename(files)) %in%    files_to_ignore  filepaths_header2 <- files[!in_files_to_ignore]"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"header-1-with-metadata","dir":"Articles","previous_headings":"3 Data import","what":"3.2 Header 1 (with metadata)","title":"Workflow","text":"","code":"cond1 <- kwb.utils::removeExtension(basename(files)) %in% files_header1_meta  filepaths_header1_meta <- files[cond1]  labor_list_1meta <- kwb.geosalz::import_labor(   filepaths_header1_meta ,   export_dir,   func = kwb.geosalz::read_bwb_header1_meta )  has_errors <- sapply(labor_list_1meta, kwb.utils::isTryError) #has_errors  labor_df_1meta <- data.table::rbindlist(   l = labor_list_1meta[!has_errors],   fill = TRUE ) library(dplyr)  cond2 <- labor_df_1meta$OriginalName %in% c(   \"el. Leitfähigkeit (25 °C)\", \"Chlorid\", \"Sulfat\" )  labor_df_1meta[cond2 & !is.na(labor_df_1meta$DataValue), ] %>%   dplyr::group_by_(\"OriginalName\", \"Meßstelle\") %>%   dplyr::summarise(n = n())"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"header-2","dir":"Articles","previous_headings":"3 Data import","what":"3.3 Header 2","title":"Workflow","text":"","code":"labor_header2_list <- kwb.geosalz::import_labor(   files = filepaths_header2,   export_dir = export_dir,   func = kwb.geosalz::read_bwb_header2 )  has_errors <- sapply(labor_header2_list, kwb.utils::isTryError) #has_errors  labor_header2_df <- data.table::rbindlist(   l = labor_header2_list[!has_errors],   fill = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"header-4","dir":"Articles","previous_headings":"3 Data import","what":"3.4 Header 4","title":"Workflow","text":"","code":"cond3 <- kwb.utils::removeExtension(basename(files)) %in% files_header4  filepaths_header4 <- files[cond3]  labor_header4_list <- kwb.geosalz::import_labor(   files = filepaths_header4,   export_dir = export_dir,   func = kwb.geosalz::read_bwb_header4 )  has_errors <- sapply(labor_header4_list, inherits, \"try-error\") has_errors  labor_header4_df <- data.table::rbindlist(   l = labor_header4_list[!has_errors],   fill = TRUE )"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"merging-header2-and-header4","dir":"Articles","previous_headings":"4 Data cleaning","what":"4.1 Merging Header2 and Header4","title":"Workflow","text":"","code":"labor_all <- data.table::rbindlist(   l = list(     x1 = labor_header2_df,     x2 = labor_header4_df   ),   fill = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"filtering","dir":"Articles","previous_headings":"4 Data cleaning","what":"4.2 Filtering","title":"Workflow","text":"","code":"labor_all <- labor_all %>%   dplyr::filter(!is.na(.data$DataValue)) %>%   dplyr::mutate(     Date = dplyr::if_else(       condition = !is.na(.data$Datum),       true = .data$Datum,       false = .data$Probenahme     )   ) %>%   ### Some \"Datum\" rentries are missing in;   ### K-TL_LSW-Altdaten-Werke Teil 1\\Werke Teil 1\\Kaulsdorf\\KAU_1999-Okt2003.xlsx   ### sheets: 66 KAU Rein 1999-2000, 65 KAU NordSüd 1999-2000   dplyr::filter(!is.na(.data$Date)) %>%   dplyr::filter(!is.na(.data$VariableName_org))  nrow(labor_all)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"reducing-dataset-by-adding-metadata","dir":"Articles","previous_headings":"4 Data cleaning","what":"4.3 Reducing dataset by adding metadata","title":"Workflow","text":"","code":"labordaten_ww <- kwb.geosalz::add_para_metadata(   df = labor_all,   lookup_para_path = paths$lookup_para,   parameters_path = paths$parameters )  labordaten_ww <- kwb.geosalz::add_site_metadata(   df = labordaten_ww,   site_path = paths$sites ) %>%   dplyr::mutate(     year = as.numeric(format(.data$Date,format = '%Y')),     DataValue = as.numeric(.data$DataValue)   )  nrow(labordaten_ww)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"exporting-cleaned-dataset","dir":"Articles","previous_headings":"4 Data cleaning","what":"5. Exporting cleaned dataset","title":"Workflow","text":"","code":"fs::dir_create(paths$cleaned_data_dir, recursive = TRUE) print(sprintf(\"Export cleaned data to: %s\", paths$cleaned_data_dir)) foerdermengen_ww <- kwb.geosalz::get_foerdermengen(paths$foerdermengen)  save(   labordaten_ww,    foerdermengen_ww,   file = file.path(paths$cleaned_data_dir, \"cleaned-data.Rds\") )  write.csv2(   labordaten_ww,   file.path(paths$cleaned_data_dir, \"labordaten_ww.csv\"),   row.names = FALSE )  write.csv2(   foerdermengen_ww,   file = file.path(paths$cleaned_data_dir, \"foerdermengen_ww.csv\"),   row.names = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"visualisation","dir":"Articles","previous_headings":"4 Data cleaning","what":"6. Visualisation","title":"Workflow","text":"","code":"library(ggplot2)  fs::dir_create(paths$figures_dir, recursive = TRUE) print(sprintf(\"Export figures/plots to: %s\", paths$figures_dir))  para_info <- kwb.geosalz::get_parameters_meta(paths$parameters) water_types <- c(\"Reinwasser\", \"Rohwasser\")  plot_to_pdf <- function(pdf_file, labordaten_ww, para_info, water_type, paths) {   pdf(file = pdf_file, width = 14, height = 9)   on.exit(dev.off())      for (sel_para_id in unique(labordaten_ww$para_id)) {          my_selection <- sprintf(       \"%s (%s)\",       para_info$para_kurzname[para_info$para_id == sel_para_id],       water_type     )          tmp <- labordaten_ww %>%       dplyr::filter(prufgegenstand == water_type) %>%       dplyr::filter(para_id == sel_para_id) %>%       dplyr::group_by(.data$para_kurzname, .data$werk, .data$year) %>%       dplyr::summarise(         mean_DataValue = mean(as.numeric(.data$DataValue), na.rm = TRUE)       ) %>%       dplyr::filter(!is.na(.data$werk)) %>%       dplyr::left_join(         y = kwb.geosalz::get_foerdermengen(paths$foerdermengen),         by = c(\"werk\", \"year\")       )          if (nrow(tmp) > 0) {              cat(sprintf(\"for %s\\n\", my_selection))              g <- ggplot2::ggplot(tmp, mapping = ggplot2::aes_string(         x = \"year\",         y = \"mean_DataValue\",         col = \"werk\"       )) +         ggplot2::geom_point() +         ggplot2::geom_line() +         ggplot2::theme_bw() +         ggplot2::ggtitle(label = my_selection) +         ggplot2::labs(x = \"\", y = \"Jahresmittelwert\")              print(g)            } else {              cat(sprintf(\"not data availabe for %s\\n\", my_selection))     }   } }   for (water_type in water_types) {      pdf_file <- file.path(     paths$figures_dir,     sprintf(       \"Zeitreihen_Jahresmittelwerte_Werke_%s.pdf\",       water_type     )   )      cat(sprintf(\"Creating plot:\\n%s\\n\", pdf_file))   plot_to_pdf(pdf_file, labordaten_ww, para_info, water_type, paths) }"},{"path":[]},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"packages","dir":"Articles","previous_headings":"7 Session Info","what":"Packages","title":"Workflow","text":"","code":"#>  package     * version date (UTC) lib source #>  bslib         0.5.1   2023-08-11 [1] RSPM (R 4.3.0) #>  cachem        1.0.8   2023-05-01 [1] RSPM (R 4.3.0) #>  cli           3.6.1   2023-03-23 [1] RSPM (R 4.3.0) #>  desc          1.4.2   2022-09-08 [1] RSPM (R 4.3.0) #>  digest        0.6.33  2023-07-07 [1] RSPM (R 4.3.0) #>  dplyr       * 1.1.3   2023-09-03 [1] RSPM (R 4.3.0) #>  evaluate      0.22    2023-09-29 [1] CRAN (R 4.3.1) #>  fansi         1.0.4   2023-01-22 [1] RSPM (R 4.3.0) #>  fastmap       1.1.1   2023-02-24 [1] RSPM (R 4.3.0) #>  fs            1.6.3   2023-07-20 [1] RSPM (R 4.3.0) #>  generics      0.1.3   2022-07-05 [1] RSPM (R 4.3.0) #>  glue          1.6.2   2022-02-24 [1] RSPM (R 4.3.0) #>  htmltools     0.5.6   2023-08-10 [1] RSPM (R 4.3.0) #>  jquerylib     0.1.4   2021-04-26 [1] RSPM (R 4.3.0) #>  jsonlite      1.8.7   2023-06-29 [1] RSPM (R 4.3.0) #>  knitr         1.44    2023-09-11 [1] RSPM (R 4.3.0) #>  kwb.utils     0.14.1  2023-09-23 [1] Github (kwb-r/kwb.utils@0930eae) #>  lifecycle     1.0.3   2022-10-07 [1] RSPM (R 4.3.0) #>  magrittr      2.0.3   2022-03-30 [1] RSPM (R 4.3.0) #>  memoise       2.0.1   2021-11-26 [1] RSPM (R 4.3.0) #>  pillar        1.9.0   2023-03-22 [1] RSPM (R 4.3.0) #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM (R 4.3.0) #>  pkgdown       2.0.7   2022-12-14 [1] RSPM (R 4.3.0) #>  purrr         1.0.2   2023-08-10 [1] RSPM (R 4.3.0) #>  R6            2.5.1   2021-08-19 [1] RSPM (R 4.3.0) #>  ragg          1.2.5   2023-01-12 [1] RSPM (R 4.3.0) #>  rlang         1.1.1   2023-04-28 [1] RSPM (R 4.3.0) #>  rmarkdown     2.25    2023-09-18 [1] RSPM (R 4.3.0) #>  rprojroot     2.0.3   2022-04-02 [1] RSPM (R 4.3.0) #>  sass          0.4.7   2023-07-15 [1] RSPM (R 4.3.0) #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM (R 4.3.0) #>  stringi       1.7.12  2023-01-11 [1] RSPM (R 4.3.0) #>  stringr       1.5.0   2022-12-02 [1] RSPM (R 4.3.0) #>  systemfonts   1.0.4   2022-02-11 [1] RSPM (R 4.3.0) #>  textshaping   0.3.6   2021-10-13 [1] RSPM (R 4.3.0) #>  tibble        3.2.1   2023-03-20 [1] RSPM (R 4.3.0) #>  tidyr       * 1.3.0   2023-01-24 [1] RSPM (R 4.3.0) #>  tidyselect    1.2.0   2022-10-10 [1] RSPM (R 4.3.0) #>  utf8          1.2.3   2023-01-31 [1] RSPM (R 4.3.0) #>  vctrs         0.6.3   2023-06-14 [1] RSPM (R 4.3.0) #>  xfun          0.40    2023-08-09 [1] RSPM (R 4.3.0) #>  yaml          2.3.7   2023-01-23 [1] RSPM (R 4.3.0) #>  #>  [1] D:/a/_temp/Library #>  [2] C:/R/library"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"pandoc","dir":"Articles","previous_headings":"7 Session Info > Packages","what":"Pandoc","title":"Workflow","text":"","code":"#>                                           pandoc_directory pandoc_version #> 1 C:/HOSTED~1/windows/pandoc/219~1.2/x64/PANDOC~1.2/pandoc         2.19.2"},{"path":"https://kwb-r.github.io/kwb.geosalz/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Michael Rustler. Author, maintainer. Hauke Sonnenberg. Contributor. . Funder. . Copyright holder.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Rustler M (2023). kwb.geosalz: R Package Documenting Workflow Used Project \"geosalz\". R package version 0.6.0, https://github.com/KWB-R/kwb.geosalz.","code":"@Manual{,   title = {kwb.geosalz: R Package for Documenting Workflow Used in Project \"geosalz\"},   author = {Michael Rustler},   year = {2023},   note = {R package version 0.6.0},   url = {https://github.com/KWB-R/kwb.geosalz}, }"},{"path":"https://kwb-r.github.io/kwb.geosalz/index.html","id":"installation","dir":"","previous_headings":"","what":"Installation","title":"R Package for Documenting Workflow Used in Project ","text":"installing latest release R package run following code :","code":"# Enable repository from kwb-r options(repos = c(   kwbr = 'https://kwb-r.r-universe.dev',   CRAN = 'https://cloud.r-project.org'))    # Download and install kwb.geosalz in R install.packages('kwb.geosalz')  # Browse the kwb.geosalz manual pages help(package = 'kwb.geosalz')"},{"path":"https://kwb-r.github.io/kwb.geosalz/index.html","id":"usage","dir":"","previous_headings":"","what":"Usage","title":"R Package for Documenting Workflow Used in Project ","text":"Checkout Workflow article use R package.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/LICENSE.html","id":null,"dir":"","previous_headings":"","what":"MIT License","title":"MIT License","text":"Copyright (c) 2018-2022 Kompetenzzentrum Wasser Berlin gGmbH (KWB) Permission hereby granted, free charge, person obtaining copy software associated documentation files (“Software”), deal Software without restriction, including without limitation rights use, copy, modify, merge, publish, distribute, sublicense, /sell copies Software, permit persons Software furnished , subject following conditions: copyright notice permission notice shall included copies substantial portions Software. SOFTWARE PROVIDED “”, WITHOUT WARRANTY KIND, EXPRESS IMPLIED, INCLUDING LIMITED WARRANTIES MERCHANTABILITY, FITNESS PARTICULAR PURPOSE NONINFRINGEMENT. EVENT SHALL AUTHORS COPYRIGHT HOLDERS LIABLE CLAIM, DAMAGES LIABILITY, WHETHER ACTION CONTRACT, TORT OTHERWISE, ARISING , CONNECTION SOFTWARE USE DEALINGS SOFTWARE.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_para_metadata.html","id":null,"dir":"Reference","previous_headings":"","what":"add_para_metadata — add_para_metadata","title":"add_para_metadata — add_para_metadata","text":"add_para_metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_para_metadata.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"add_para_metadata — add_para_metadata","text":"","code":"add_para_metadata(df, lookup_para_path, parameters_path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_para_metadata.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"add_para_metadata — add_para_metadata","text":"df df lookup_para_path lookup_para_path parameters_path parameters_path","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_para_metadata.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"add_para_metadata — add_para_metadata","text":"return \"df\" added parameter metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_site_metadata.html","id":null,"dir":"Reference","previous_headings":"","what":"add_site_metadata — add_site_metadata","title":"add_site_metadata — add_site_metadata","text":"add_site_metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_site_metadata.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"add_site_metadata — add_site_metadata","text":"","code":"add_site_metadata(df, site_path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_site_metadata.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"add_site_metadata — add_site_metadata","text":"df df site_path site_path","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_site_metadata.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"add_site_metadata — add_site_metadata","text":"data frame added site metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/all_defined.html","id":null,"dir":"Reference","previous_headings":"","what":"Check if all strings are not empty — all_defined","title":"Check if all strings are not empty — all_defined","text":"Check strings empty","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/all_defined.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check if all strings are not empty — all_defined","text":"","code":"all_defined(x)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/all_defined.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check if all strings are not empty — all_defined","text":"x vector character","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/all_defined.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check if all strings are not empty — all_defined","text":"TRUE FALSE","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_green_bold_0.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: cat_green_bold_0 — cat_green_bold_0","title":"Helper function: cat_green_bold_0 — cat_green_bold_0","text":"Helper function: cat_green_bold_0","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_green_bold_0.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: cat_green_bold_0 — cat_green_bold_0","text":"","code":"cat_green_bold_0(...)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_green_bold_0.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: cat_green_bold_0 — cat_green_bold_0","text":"... text passed crayon::green()","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_green_bold_0.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: cat_green_bold_0 — cat_green_bold_0","text":"formatted text output","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_red_bold_0.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: cat_red_bold_0 — cat_red_bold_0","title":"Helper function: cat_red_bold_0 — cat_red_bold_0","text":"Helper function: cat_red_bold_0","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_red_bold_0.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: cat_red_bold_0 — cat_red_bold_0","text":"","code":"cat_red_bold_0(...)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_red_bold_0.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: cat_red_bold_0 — cat_red_bold_0","text":"... text passed crayon::red","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_red_bold_0.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: cat_red_bold_0 — cat_red_bold_0","text":"formatted text output","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","title":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","text":"Helper function: column_pattern_gather_ignore","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","text":"","code":"column_pattern_gather_ignore(   fields = c(\"Datum\", \"KN\", \"[iI]nterne Nr.\", \"Name der\", \"Ort\", \"Probe\", \"Prü\",     \"Untersuchung\", \"Labor\", \"Jahr\", \"Galer\", \"Detail\", \"Meß\", \"Zeit\", \"Bezei\", \"Monat\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","text":"fields column names ignored gathering (default: c( \"Datum\", \"KN\", \"[iI]nterne Nr.\", \"Name der\", \"Ort\", \"Probe\", \"Pr\\u00FC\", \"Untersuchung\", \"Labor\", \"Jahr\", \"Galer\", \"Detail\", \"\\u00DF\", \"Zeit\", \"Bezei\", \"Monat\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","text":"vector ignored columns gathering","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore_clean.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","title":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","text":"Helper function: column_pattern_gather_ignore_clean","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore_clean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","text":"","code":"column_pattern_gather_ignore_clean(   fields = c(\"LabSampleCode\", \"Date\", \"Time\", \"Waterbody\", \"ExSiteCode\", \"Site\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore_clean.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","text":"fields column names ignored gathering (default: c(\"LabSampleCode\", \"Date\", \"Time\", \"Waterbody\", \"ExSiteCode\", Site\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore_clean.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","text":"vector ignored columns gathering","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_phreeqc_input_to_wide.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert PhreeqC input to ","title":"Convert PhreeqC input to ","text":"Convert PhreeqC input \"wide\" format","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_phreeqc_input_to_wide.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert PhreeqC input to ","text":"","code":"convert_phreeqc_input_to_wide(phreeqc_input)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_phreeqc_input_to_wide.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert PhreeqC input to ","text":"phreeqc_input PhreeqC input retrieved get_phreeqc_data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_phreeqc_input_to_wide.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert PhreeqC input to ","text":"PhreeqC input \"wide\" format","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert to SF — convert_to_sf","title":"Convert to SF — convert_to_sf","text":"Convert SF","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert to SF — convert_to_sf","text":"","code":"convert_to_sf(   df,   crs_source = 25833,   crs_target = 4326,   col_coord_x = \"Rechtswert_UTM_33_N\",   col_cood_y = \"Hochwert_UTM_33_N\" )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert to SF — convert_to_sf","text":"df data frame tibble spatial data crs_source origingal CRS (default: 25833) crs_target target CRS (default: 4326) col_coord_x column name latitude (default: \"Rechtswert_UTM_33_N\") col_cood_y column name longitude (default: \"Hochwert_UTM_33_N\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert to SF — convert_to_sf","text":"data frame tibble converted sf","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert to SF — convert_to_sf","text":"","code":"gwl_master <- jsonlite::fromJSON(\"https://kwb-r.github.io/wasserportal/stations_gwl_master.json\") convert_to_sf(gwl_master) #> Simple feature collection with 887 features and 9 fields #> Geometry type: POINT #> Dimension:     XY #> Bounding box:  xmin: 13.09291 ymin: 52.34336 xmax: 13.75514 ymax: 52.66925 #> Geodetic CRS:  WGS 84 #> First 10 features: #>    Nummer        Bezirk Betreiber            Auspraegung #> 1       1 Reinickendorf     Senat               GW-Stand #> 2       2 Reinickendorf     Senat               GW-Stand #> 3       3 Reinickendorf     Senat     GW-Stand + GW-Güte #> 4       4 Reinickendorf     Senat               GW-Stand #> 5       9 Reinickendorf     Senat               GW-Stand #> 6      21 Reinickendorf     Senat               GW-Stand #> 7      24 Reinickendorf     Senat               GW-Stand #> 8      25 Reinickendorf     Senat               GW-Stand #> 9      26 Reinickendorf     Senat GW-Stand, tagesaktuell #> 10     30 Reinickendorf     Senat               GW-Stand #>                        Grundwasserleiter Gelaendeoberkante_GOK_m_ue_NHN #> 1   Hauptgrundwasserleiter (GWL 1.3 + 2)                          49.20 #> 2   Hauptgrundwasserleiter (GWL 1.3 + 2)                          37.65 #> 3   Hauptgrundwasserleiter (GWL 1.3 + 2)                          37.87 #> 4   Hauptgrundwasserleiter (GWL 1.3 + 2)                          39.88 #> 5  lokal ausgebildeter Grundwasserkörper                          42.14 #> 6   Hauptgrundwasserleiter (GWL 1.3 + 2)                          37.25 #> 7   Hauptgrundwasserleiter (GWL 1.3 + 2)                          40.25 #> 8   Hauptgrundwasserleiter (GWL 1.3 + 2)                          41.98 #> 9   Hauptgrundwasserleiter (GWL 1.3 + 2)                          42.70 #> 10  Hauptgrundwasserleiter (GWL 1.3 + 2)                          39.63 #>    Rohroberkante_m_ue_NHN Filteroberkante_m_u_GOK Filterunterkante_m_u_GOK #> 1                   49.49                   37.34                    39.34 #> 2                   38.06                   15.59                    17.59 #> 3                   38.65                   12.27                    13.27 #> 4                   40.36                   16.00                    18.00 #> 5                   42.67                   17.70                    18.70 #> 6                   38.00                    8.10                     9.10 #> 7                   40.43                   10.88                    11.88 #> 8                   42.26                    5.47                     6.47 #> 9                   43.56                   11.74                    12.74 #> 10                  39.90                   12.00                    13.00 #>                     geometry #> 1  POINT (13.29247 52.62308) #> 2  POINT (13.31921 52.62262) #> 3   POINT (13.3131 52.61407) #> 4  POINT (13.29259 52.60773) #> 5   POINT (13.35574 52.6204) #> 6  POINT (13.32453 52.57572) #> 7  POINT (13.35288 52.56763) #> 8  POINT (13.36019 52.57023) #> 9  POINT (13.36547 52.57433) #> 10 POINT (13.35974 52.56318)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_as_xlsx.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert xls to xlsx — convert_xls_as_xlsx","title":"Convert xls to xlsx — convert_xls_as_xlsx","text":"Convert xls xlsx","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_as_xlsx.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert xls to xlsx — convert_xls_as_xlsx","text":"","code":"convert_xls_as_xlsx(   input_dir,   export_dir = tempdir(),   office_folder = safe_office_folder(),   dbg = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_as_xlsx.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert xls to xlsx — convert_xls_as_xlsx","text":"input_dir input directory containing .xls files export_dir export directory (default: tempdir()) office_folder office folder path (default: safe_office_folder) dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_to_xlsx.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: convert_xls_to_xlsx — convert_xls_to_xlsx","title":"Helper function: convert_xls_to_xlsx — convert_xls_to_xlsx","text":"Helper function: convert_xls_to_xlsx","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_to_xlsx.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: convert_xls_to_xlsx — convert_xls_to_xlsx","text":"","code":"convert_xls_to_xlsx(exe, xls, xlsx, i, n_files, dbg = TRUE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_to_xlsx.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: convert_xls_to_xlsx — convert_xls_to_xlsx","text":"exe exe xls xls xlsx xlsx n_files n_files dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_lookup_para_file.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: copy_lookup_para_file — copy_lookup_para_file","title":"Helper function: copy_lookup_para_file — copy_lookup_para_file","text":"Helper function: copy_lookup_para_file","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_lookup_para_file.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: copy_lookup_para_file — copy_lookup_para_file","text":"","code":"copy_lookup_para_file(   from_dir,   to_dir,   overwrite = FALSE,   recursive = TRUE,   file_pattern = \"^lookup_para\\\\.csv$\" )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_lookup_para_file.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: copy_lookup_para_file — copy_lookup_para_file","text":"from_dir input directory xlsx files to_dir target directory copy xlsx files overwrite existing files overwritten (TRUE) otherwise (FALSE) ? (default: FALSE) recursive TRUE recursively find xlsx files directory specified parameter \"from_dir\" (default: TRUE) file_pattern pattern identifying lookup_para file (default: \"^lookup_para\\.csv$\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_xlsx_files.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: copy_xlsx_files — copy_xlsx_files","title":"Helper function: copy_xlsx_files — copy_xlsx_files","text":"Helper function: copy_xlsx_files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_xlsx_files.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: copy_xlsx_files — copy_xlsx_files","text":"","code":"copy_xlsx_files(   from_dir,   to_dir,   overwrite = FALSE,   recursive = TRUE,   file_pattern = \"[xX][lL][sS][xX]\" )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_xlsx_files.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: copy_xlsx_files — copy_xlsx_files","text":"from_dir input directory xlsx files to_dir target directory copy xlsx files overwrite existing files overwritten (TRUE) otherwise (FALSE) ? (default: FALSE) recursive TRUE recursively find xlsx files directory specified parameter \"from_dir\" (default: TRUE) file_pattern pattern identifying xlsx fles (default: \"[xX][lL][sS][xX]\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":null,"dir":"Reference","previous_headings":"","what":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"Create EMSHOFF91 Import Data Frame","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"","code":"create_emshoff91_import(   ods_dir,   files_to_ignore = c(\"cl25\", \"clliste\", \"rupelauf\", \"salzlast\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"ods_dir directory \".ods\" files created manually importing original \".wq1\" files LibreOffice 7.0 Ubuntu encoding (Western Europe (DOS/OS2-437/US)) exporting \".ods\" format files_to_ignore tidied names files ignore due complex data input structure yet covered importer (default: c(\"cl25\", \"clliste\", \"gwnguete\", \"rupelauf\", \"salzlast\"))","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"data frame columns \"ods_paths\" (full paths \".ods\" files), \"ods_files\" (\"basenames\") \"ods_names_clean\" (tidied names used identifier)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"","code":"if (FALSE) { ods_dir <- \"<replace-with-path-to-files>/emshoff91/converted_ods\" emshoff91_import <- create_emshoff91_import(ods_dir) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_sftp_connection.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: Create an SFTP Connection — create_sftp_connection","title":"Measurement Chains: Create an SFTP Connection — create_sftp_connection","text":"Measurement Chains: Create SFTP Connection","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_sftp_connection.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: Create an SFTP Connection — create_sftp_connection","text":"","code":"create_sftp_connection()"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_sftp_connection.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: Create an SFTP Connection — create_sftp_connection","text":"sftp connection","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/delete_registry.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: delete_registry — delete_registry","title":"Helper function: delete_registry — delete_registry","text":"Helper function: delete_registry","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/delete_registry.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: delete_registry — delete_registry","text":"","code":"delete_registry(office_folder = safe_office_folder(), dbg = TRUE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/delete_registry.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: delete_registry — delete_registry","text":"office_folder office folder path (default: safe_office_folder) dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: download data — download_measurementchains_data","title":"Measurement Chains: download data — download_measurementchains_data","text":"Measurement Chains: download data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: download data — download_measurementchains_data","text":"","code":"download_measurementchains_data(   sftp_paths,   target_directory = temp_dir(),   sftp_connection = create_sftp_connection(),   run_parallel = TRUE,   debug = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: download data — download_measurementchains_data","text":"sftp_paths character vector paths files downloaded. retrieved get_measurementchains_files column \"sftp_path\" target_directory target directory sftp_connection SFTP connnection retrieved create_sftp_connection run_parallel default: TRUE debug show debug messages (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: download data — download_measurementchains_data","text":"tibble columns file_id, sftp_path local_path csv files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Measurement Chains: download data — download_measurementchains_data","text":"","code":"if (FALSE) { mc_files <- kwb.geosalz::get_measurementchains_files() target_directory <- tempdir() local_paths <- kwb.geosalz::download_measurementchains_data( sftp_paths = mc_files$sftp_path, target_directory) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_list_to_df.html","id":null,"dir":"Reference","previous_headings":"","what":"Emshoff 91: list to data frame — emshoff91_list_to_df","title":"Emshoff 91: list to data frame — emshoff91_list_to_df","text":"Emshoff 91: list data frame","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_list_to_df.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Emshoff 91: list to data frame — emshoff91_list_to_df","text":"","code":"emshoff91_list_to_df(emshoff91_list)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_list_to_df.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Emshoff 91: list to data frame — emshoff91_list_to_df","text":"emshoff91_list list retrieved read_multiple_emshoff91_ods","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_list_to_df.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Emshoff 91: list to data frame — emshoff91_list_to_df","text":"tibble","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_remap_values.html","id":null,"dir":"Reference","previous_headings":"","what":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","title":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","text":"Emshoff 91: remap values imported tibble","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_remap_values.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","text":"","code":"emshoff91_remap_values(   emshoff91_df,   remap_list = list(fi_mi = \"fi_mi_m_nn\", ku_sto = \"kupp_st\", lf = \"el_lf\", progr =     \"beprob_progr\", strat = \"stratigr\", uv254 = \"uv_ext\"),   delete_cols = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_remap_values.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","text":"emshoff91_df tibble retrieved emshoff91_list_to_df remap_list list values remapped. Names list columns  values contained list values mapped (default: list(fi_mi = \"fi_mi_m_nn\",  ku_sto = \"kupp_st\", lf = \"el_lf\", progr = \"beprob_progr\", strat = \"stratigr\",  uv254 = \"uv_ext\")) delete_cols unneeded columns deleted, .e. ones data  mapped (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_remap_values.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","text":"data frame remapped values deleted columns values  copied (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_1.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: gather_and_join_1 — gather_and_join_1","title":"Helper function: gather_and_join_1 — gather_and_join_1","text":"Helper function: gather_and_join_1","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_1.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: gather_and_join_1 — gather_and_join_1","text":"","code":"gather_and_join_1(tmp_data, columns_keep, metadata, dbg = FALSE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_1.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: gather_and_join_1 — gather_and_join_1","text":"tmp_data tmp_data columns_keep columns_keep metadata metadata dbg dbg (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_1.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: gather_and_join_1 — gather_and_join_1","text":"gathered joined data frame","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_2.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: gather_and_join_2 — gather_and_join_2","title":"Helper function: gather_and_join_2 — gather_and_join_2","text":"Helper function: gather_and_join_2","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_2.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: gather_and_join_2 — gather_and_join_2","text":"","code":"gather_and_join_2(tmp_content, columns_keep, header)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_2.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: gather_and_join_2 — gather_and_join_2","text":"tmp_content tmp_content columns_keep columns_keep header header","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_2.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: gather_and_join_2 — gather_and_join_2","text":"gathered joined data frame","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: gather_ignore — gather_ignore","title":"Helper function: gather_ignore — gather_ignore","text":"Helper function: gather_ignore","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: gather_ignore — gather_ignore","text":"","code":"gather_ignore(   fields = c(\"Datum\", \"KN\", \"[iI]nterne Nr.\", \"Name der\", \"Ort\", \"Probe\", \"Prü\",     \"Untersuchung\", \"Labor\", \"Jahr\", \"Galer\", \"Detail\", \"Meß\", \"Zeit\", \"Bezei\", \"Monat\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: gather_ignore — gather_ignore","text":"fields column names ignored gathering (default: c( \"Datum\", \"KN\", \"[iI]nterne Nr.\", \"Name der\", \"Ort\", \"Probe\", \"Pr\\u00FC\", \"Untersuchung\", \"Labor\", \"Jahr\", \"Galer\", \"Detail\", \"\\u00DF\", \"Zeit\", \"Bezei\", \"Monat\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: gather_ignore — gather_ignore","text":"vector ignored columns gathering","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore_clean.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: gather_ignore_clean — gather_ignore_clean","title":"Helper function: gather_ignore_clean — gather_ignore_clean","text":"Helper function: gather_ignore_clean","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore_clean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: gather_ignore_clean — gather_ignore_clean","text":"","code":"gather_ignore_clean(   fields = c(\"LabSampleCode\", \"Date\", \"Time\", \"Waterbody\", \"ExSiteCode\", \"Site\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore_clean.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: gather_ignore_clean — gather_ignore_clean","text":"fields column names ignored gathering (default: c(\"LabSampleCode\", \"Date\", \"Time\", \"Waterbody\", \"ExSiteCode\", Site\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore_clean.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: gather_ignore_clean — gather_ignore_clean","text":"vector ignored columns gathering","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_excelcnv_exe.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: get_excelcnv_exe — get_excelcnv_exe","title":"Helper function: get_excelcnv_exe — get_excelcnv_exe","text":"Helper function: get_excelcnv_exe","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_excelcnv_exe.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: get_excelcnv_exe — get_excelcnv_exe","text":"","code":"get_excelcnv_exe(office_folder = safe_office_folder())"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_excelcnv_exe.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: get_excelcnv_exe — get_excelcnv_exe","text":"office_folder office folder path (default: safe_office_folder","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_excelcnv_exe.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: get_excelcnv_exe — get_excelcnv_exe","text":"path containing 'excelcnv.exe'","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen.html","id":null,"dir":"Reference","previous_headings":"","what":"get_foerdermengen — get_foerdermengen","title":"get_foerdermengen — get_foerdermengen","text":"get_foerdermengen","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"get_foerdermengen — get_foerdermengen","text":"","code":"get_foerdermengen(   xlsx_path,   sheet_name = \"WW Q Rhow \",   sheet_range = \"A4:S127\" )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"get_foerdermengen — get_foerdermengen","text":"xlsx_path path xlsx file pumping rates sheet_name sheet_name (default: \"WW Q Rhow \") sheet_range sheet_range  (default: \"A4:S127\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"get_foerdermengen — get_foerdermengen","text":"data frame annual pumping rates per waterworks","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen_gal_fri.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","title":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","text":"Get Abtraction Friedrichshagen Well Galleries","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen_gal_fri.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","text":"","code":"get_foerdermengen_gal_fri(path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen_gal_fri.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","text":"path path \"2018-04-27 Rohwasser Bericht - Galeriefördermengen.xlsx\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen_gal_fri.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","text":"tidy data frame abstraction rates waterworks Friedrichshagen","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"Measurement Chains: Get Tidied Files Metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"","code":"get_measurementchains_files(   sftp_connection = create_sftp_connection(),   debug = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"sftp_connection SFTP connnection retrieved create_sftp_connection debug show debug messages (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"tibble information available files tidied meta-information based file naming","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"","code":"if (FALSE) { mc_files <- kwb.geosalz::get_measurementchains_files() str(mc_files) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: Get Metadata — get_measurementchains_metadata","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"Measurement Chains: Get Metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"","code":"get_measurementchains_metadata(file = extdata_file(\"metadata_messketten.csv\"))"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"file path measurement chains metadata file. Default: kwb.geosalz:::extdata_file(\"metadata_messketten.csv\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"tibble measurement chains metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"","code":"mc_metadata <- kwb.geosalz::get_measurementchains_metadata() str(mc_metadata) #> spc_tbl_ [18 × 10] (S3: spec_tbl_df/tbl_df/tbl/data.frame) #>  $ galerie               : chr [1:18] \"K\" \"K\" \"K\" \"K\" ... #>  $ brunnen_nummer        : int [1:18] 9 9 9 9 9 9 10 10 10 10 ... #>  $ dn                    : int [1:18] 400 400 400 400 400 400 600 600 600 600 ... #>  $ einbau_pumpe          : chr [1:18] \"über Filter\" \"über Filter\" \"über Filter\" \"über Filter\" ... #>  $ einbau_messkette      : chr [1:18] \"unter Pumpe\" \"unter Pumpe\" \"unter Pumpe\" \"unter Pumpe\" ... #>  $ filteroberkante_muGOK : num [1:18] 21 21 21 21 21 21 11 11 11 11 ... #>  $ filterunterkante_muGOK: num [1:18] 27 27 27 27 27 27 18 18 18 18 ... #>  $ sensor_id             : int [1:18] 4182018 4182017 4182016 4182015 4182014 4182013 4182006 4182005 4182004 4182003 ... #>  $ sensor_endnummer      : int [1:18] 8 7 6 5 4 3 6 5 4 3 ... #>  $ einbau_sensor_muGOK   : num [1:18] 21.5 22.5 23.5 24.5 25.5 26.5 11.5 12.7 13.9 15.1 ... #>  - attr(*, \"spec\")= #>   .. cols( #>   ..   galerie = col_character(), #>   ..   brunnen_nummer = col_integer(), #>   ..   dn = col_integer(), #>   ..   einbau_pumpe = col_character(), #>   ..   einbau_messkette = col_character(), #>   ..   filteroberkante_muGOK = col_double(), #>   ..   filterunterkante_muGOK = col_double(), #>   ..   sensor_id = col_integer(), #>   ..   sensor_endnummer = col_integer(), #>   ..   einbau_sensor_muGOK = col_double() #>   .. ) #>  - attr(*, \"problems\")=<externalptr>  mc_metadata #> # A tibble: 18 × 10 #>    galerie brunnen_nummer    dn einbau_pumpe einbau_messkette          #>    <chr>            <int> <int> <chr>        <chr>                     #>  1 K                    9   400 über Filter  unter Pumpe               #>  2 K                    9   400 über Filter  unter Pumpe               #>  3 K                    9   400 über Filter  unter Pumpe               #>  4 K                    9   400 über Filter  unter Pumpe               #>  5 K                    9   400 über Filter  unter Pumpe               #>  6 K                    9   400 über Filter  unter Pumpe               #>  7 K                   10   600 unter Filter über Pumpe (am Steigrohr) #>  8 K                   10   600 unter Filter über Pumpe (am Steigrohr) #>  9 K                   10   600 unter Filter über Pumpe (am Steigrohr) #> 10 K                   10   600 unter Filter über Pumpe (am Steigrohr) #> 11 K                   10   600 unter Filter über Pumpe (am Steigrohr) #> 12 K                   10   600 unter Filter über Pumpe (am Steigrohr) #> 13 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 14 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 15 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 16 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 17 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 18 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> # ℹ 5 more variables: filteroberkante_muGOK <dbl>, #> #   filterunterkante_muGOK <dbl>, sensor_id <int>, sensor_endnummer <int>, #> #   einbau_sensor_muGOK <dbl>"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurement_chain_data_on_cloud.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","title":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","text":"Get Measurement Chain Data KWB Cloud","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurement_chain_data_on_cloud.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","text":"","code":"get_measurement_chain_data_on_cloud(dbg = TRUE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurement_chain_data_on_cloud.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","text":"dbg logical indicating whether show debug messages","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurement_chain_data_on_cloud.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","text":"data frame content \"mc_data.zip\" GeoSalz project   folder Nextcloud server. SFTP paths files   data \"mc_data.zip\" originate returned attribute \"sftp_paths\".   either files \"mc_data.zip\" \"mc_files.csv\" exist,  NULL returned.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurmentchains_data_stats.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","title":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","text":"Measurement Chains: get statistics data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurmentchains_data_stats.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","text":"","code":"get_measurmentchains_data_stats(mc_data)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurmentchains_data_stats.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","text":"mc_data tibble measurement chains data retrieved  read_measurementchains_data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurmentchains_data_stats.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","text":"tibble colunns datetime min/max, q10 (10 median, q90 (90","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_meta_sheet_or_stop.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","title":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","text":"Helper function: get_meta_sheet_or_stop","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_meta_sheet_or_stop.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","text":"","code":"get_meta_sheet_or_stop(sheets, pattern, file)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_meta_sheet_or_stop.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","text":"sheets sheets pattern pattern file file","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_meta_sheet_or_stop.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","text":"meta sheet name","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_pandoc_info.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Information on Pandoc — get_pandoc_info","title":"Get Information on Pandoc — get_pandoc_info","text":"Get Information Pandoc","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_pandoc_info.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Information on Pandoc — get_pandoc_info","text":"","code":"get_pandoc_info()"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_pandoc_info.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Information on Pandoc — get_pandoc_info","text":"data frame columns pandoc_directory,  pandoc_version Pandoc installed, otherwise message   printed pandoc installed.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_parameters_meta.html","id":null,"dir":"Reference","previous_headings":"","what":"get_parameters_meta — get_parameters_meta","title":"get_parameters_meta — get_parameters_meta","text":"get_parameters_meta","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_parameters_meta.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"get_parameters_meta — get_parameters_meta","text":"","code":"get_parameters_meta(xlsx_path, sheet_name = \"nur Parameterliste\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_parameters_meta.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"get_parameters_meta — get_parameters_meta","text":"xlsx_path path EXCEL spreadsheet parameter metadata sheet_name name sheet containing metadata table (default: \"nur Parameterliste\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_parameters_meta.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"get_parameters_meta — get_parameters_meta","text":"imported parameter metadata cleaned columns names","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_phreeqc_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Get PhreeqC data — get_phreeqc_data","title":"Get PhreeqC data — get_phreeqc_data","text":"Get PhreeqC data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_phreeqc_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get PhreeqC data — get_phreeqc_data","text":"","code":"get_phreeqc_data(lab_bwb)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_phreeqc_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get PhreeqC data — get_phreeqc_data","text":"lab_bwb imported BWB lab data retrieved read_lab_bwb","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_phreeqc_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get PhreeqC data — get_phreeqc_data","text":"tibble columns solution, par_name_phreeqc (empty  NA) numeric_value","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_site_id.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: get_site_id — get_site_id","title":"Helper function: get_site_id — get_site_id","text":"Helper function: get_site_id","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_site_id.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: get_site_id — get_site_id","text":"","code":"get_site_id(string, pattern = \"^[0-9]{1,4}\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_site_id.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: get_site_id — get_site_id","text":"string vector character strings pattern pattern used identifying site_id (default: \"^[0-9]1,4\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_site_id.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: get_site_id — get_site_id","text":"extracted site_id`s input string","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/import_labor.html","id":null,"dir":"Reference","previous_headings":"","what":"import_labor — import_labor","title":"import_labor — import_labor","text":"import_labor","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/import_labor.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"import_labor — import_labor","text":"","code":"import_labor(files, export_dir, func = read_bwb_header2)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/import_labor.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"import_labor — import_labor","text":"files vector full paths xlsx input files export_dir export directory func function used (default: read_bwb_header2)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/import_labor.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"import_labor — import_labor","text":"list length equal number input files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/order_measurement_chain_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Order Measurement Chain Data — order_measurement_chain_data","title":"Order Measurement Chain Data — order_measurement_chain_data","text":"Order Measurement Chain Data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/order_measurement_chain_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Order Measurement Chain Data — order_measurement_chain_data","text":"","code":"order_measurement_chain_data(data)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/order_measurement_chain_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Order Measurement Chain Data — order_measurement_chain_data","text":"data data frame retrieved read_measurementchains_data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/order_measurement_chain_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Order Measurement Chain Data — order_measurement_chain_data","text":"data, ordered \"parameter\", \"sensor_id\", \"datum_uhrzeit\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/pipe.html","id":null,"dir":"Reference","previous_headings":"","what":"Pipe operator — %>%","title":"Pipe operator — %>%","text":"See magrittr::%>% details.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/pipe.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Pipe operator — %>%","text":"","code":"lhs %>% rhs"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/plot_measurementchains.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: plott — plot_measurementchains","title":"Measurement Chains: plott — plot_measurementchains","text":"Measurement Chains: plott","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/plot_measurementchains.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: plott — plot_measurementchains","text":"","code":"plot_measurementchains(mc_data, para = \"Leitfaehigkeit\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/plot_measurementchains.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: plott — plot_measurementchains","text":"mc_data retrieved read_measurementchains_data para parameter plot \"Leitfaehigkeit\" \"Temperatur\" (default:  Leitfaehigkeit\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/plot_measurementchains.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: plott — plot_measurementchains","text":"plot selected measurement chain parameter","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/prepare_phreeqc_input.html","id":null,"dir":"Reference","previous_headings":"","what":"Prepare PhreeqC input — prepare_phreeqc_input","title":"Prepare PhreeqC input — prepare_phreeqc_input","text":"Prepare PhreeqC input","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/prepare_phreeqc_input.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Prepare PhreeqC input — prepare_phreeqc_input","text":"","code":"prepare_phreeqc_input(lab_bwb_phreeqc, title = \"\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/prepare_phreeqc_input.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Prepare PhreeqC input — prepare_phreeqc_input","text":"lab_bwb_phreeqc selected BWB lab data retrieved get_phreeqc_data title user defined title (default: \"\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/prepare_phreeqc_input.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Prepare PhreeqC input — prepare_phreeqc_input","text":"data frame input structure kwb.phreeqc","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/print_datatype_info_if.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: print_datatype_info_if — print_datatype_info_if","title":"Helper function: print_datatype_info_if — print_datatype_info_if","text":"Helper function: print_datatype_info_if","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/print_datatype_info_if.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: print_datatype_info_if — print_datatype_info_if","text":"","code":"print_datatype_info_if(dbg, tbl_datatypes, columns_keep)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/print_datatype_info_if.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: print_datatype_info_if — print_datatype_info_if","text":"dbg dbg tbl_datatypes tbl_datatypes columns_keep columns_keep","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Import: read_bwb_data — read_bwb_data","title":"Import: read_bwb_data — read_bwb_data","text":"wrapper around read_bwb_header2 read_bwb_header1_meta","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import: read_bwb_data — read_bwb_data","text":"","code":"read_bwb_data(   files,   meta_pattern = \"META\",   keep_pattern = column_pattern_gather_ignore(),   site_id_pattern = \"^[0-9]{1,4}\",   dbg = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Import: read_bwb_data — read_bwb_data","text":"files file path(s) EXCEL spreadsheet meta_pattern (default: \"META\") keep_pattern (default: column_pattern_gather_ignore) site_id_pattern (default: \"^[0-9]1,4\") dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Import: read_bwb_data — read_bwb_data","text":"data.table imported xls(x) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header1_meta.html","id":null,"dir":"Reference","previous_headings":"","what":"Import: read_bwb_header1_meta — read_bwb_header1_meta","title":"Import: read_bwb_header1_meta — read_bwb_header1_meta","text":"Import: read_bwb_header1_meta","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header1_meta.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import: read_bwb_header1_meta — read_bwb_header1_meta","text":"","code":"read_bwb_header1_meta(   file,   meta_pattern = \"META\",   keep_pattern = column_pattern_gather_ignore(),   dbg = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header1_meta.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Import: read_bwb_header1_meta — read_bwb_header1_meta","text":"file path(s) EXCEL spreadsheet meta_pattern meta_pattern default(\"META\") keep_pattern keep_pattern (default: column_pattern_gather_ignore) dbg debug (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header1_meta.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Import: read_bwb_header1_meta — read_bwb_header1_meta","text":"data.table imported xls(x) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header2.html","id":null,"dir":"Reference","previous_headings":"","what":"Import: read_bwb_header2 — read_bwb_header2","title":"Import: read_bwb_header2 — read_bwb_header2","text":"Import: read_bwb_header2","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header2.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import: read_bwb_header2 — read_bwb_header2","text":"","code":"read_bwb_header2(   file,   skip = 2,   keep_pattern = column_pattern_gather_ignore(),   site_id_pattern = \"^[0-9]{1,4}\",   dbg = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header2.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Import: read_bwb_header2 — read_bwb_header2","text":"file file path(s) EXCEL spreadsheet skip number rows skip sheet (default: 2) keep_pattern (default: column_pattern_gather_ignore()) site_id_pattern (default: \"^[0-9]1,4\") dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header2.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Import: read_bwb_header2 — read_bwb_header2","text":"data.table imported xls(x) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header4.html","id":null,"dir":"Reference","previous_headings":"","what":"Import: read_bwb_header4 — read_bwb_header4","title":"Import: read_bwb_header4 — read_bwb_header4","text":"Import: read_bwb_header4","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header4.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import: read_bwb_header4 — read_bwb_header4","text":"","code":"read_bwb_header4(   file,   skip = 4,   keep_pattern = column_pattern_gather_ignore(),   site_id_pattern = \"^[0-9]{1,4}\",   dbg = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header4.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Import: read_bwb_header4 — read_bwb_header4","text":"file file path(s) EXCEL spreadsheet skip number rows skip sheet (default: 4) keep_pattern (default: column_pattern_gather_ignore()) site_id_pattern (default: \"^[0-9]1,4\") dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header4.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Import: read_bwb_header4 — read_bwb_header4","text":"data.table imported xls(x) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_emshoff91_ods.html","id":null,"dir":"Reference","previous_headings":"","what":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","title":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","text":"Reads Single EMSHOFF 91 ODS File Tibble","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_emshoff91_ods.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","text":"","code":"read_emshoff91_ods(emshoff91_import_selected)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_emshoff91_ods.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","text":"emshoff91_import_selected row retrieved create_emshoff91_import","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_emshoff91_ods.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","text":"imports ods file tibble","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_isotopes.html","id":null,"dir":"Reference","previous_headings":"","what":"Read Isotopes — read_isotopes","title":"Read Isotopes — read_isotopes","text":"Read Isotopes","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_isotopes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read Isotopes — read_isotopes","text":"","code":"read_isotopes(path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_isotopes.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read Isotopes — read_isotopes","text":"path path Isotopes delim (field separator \";\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_isotopes.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Read Isotopes — read_isotopes","text":"imported isotopes data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_lab_bwb.html","id":null,"dir":"Reference","previous_headings":"","what":"Read Lab BWB — read_lab_bwb","title":"Read Lab BWB — read_lab_bwb","text":"Read Lab BWB","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_lab_bwb.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read Lab BWB — read_lab_bwb","text":"","code":"read_lab_bwb(path, sheet = \"Analysen\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_lab_bwb.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read Lab BWB — read_lab_bwb","text":"path path file lab BWB data sheet name sheet containing analysis data. Default: \"Analysen\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_lab_bwb.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Read Lab BWB — read_lab_bwb","text":"cleaned data frame master data lab values samples  selected parameters (columns -BA HB-HC)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_master_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Read Master Data — read_master_data","title":"Read Master Data — read_master_data","text":"Read Master Data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_master_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read Master Data — read_master_data","text":"","code":"read_master_data(path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_master_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read Master Data — read_master_data","text":"path path file master data (currently file: lab BWB data)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_master_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Read Master Data — read_master_data","text":"imported master data contained sheet \"Stammdaten\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"Measurement Chains: read csv data multiple files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"","code":"read_measurementchains_data(   csv_files,   datetime_installation = as_gmt_plus_one(\"2022-09-27 11:00:00\"),   run_parallel = TRUE,   debug = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"csv_files vector paths retrieved download_measurementchains_data datetime_installation datetime first logger installation well K10.  Used filter older measurement data! Default:  kwb.geosalz:::as_gmt_plus_one(\"2022-09-27 11:00:00\") run_parallel default: TRUE debug show debug messages (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"data frame imported data csv files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"","code":"if (FALSE) { mc_files <- kwb.geosalz::get_measurementchains_files() target_directory <- tempdir() csv_files <- kwb.geosalz::download_measurementchains_data(   sftp_paths = mc_files$sftp_path,   target_directory ) mc_data <- kwb.geosalz::read_measurementchains_data(csv_files) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":null,"dir":"Reference","previous_headings":"","what":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"Reads Multiple EMSHOFF 91 ODS Files List","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"","code":"read_multiple_emshoff91_ods(emshoff91_import)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"emshoff91_import tibble retrieved create_emshoff91_import","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"imports mulitple ods files list tibbles","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"","code":"if (FALSE) { ods_dir <- \"<replace-with-path-to-files>/emshoff91/emshoff91/converted_ods\" ods_dir <- \"C:/users/mrustl/Downloads/emshoff91/emshoff91/converted_ods\" emshoff91_import <- create_emshoff91_import(ods_dir) read_multiple_emshoff91_ods(emshoff91_import) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":null,"dir":"Reference","previous_headings":"","what":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"Replace n.. (available) n.b. (determined) lab data NA","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"","code":"replace_nanb_with_na(string)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"string string","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"string NA instead \"n..\" \"n.b.\" (including 0-10 spaces  \"n\" \"\"/\"b\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"","code":"string <- c(\"19.2\", \"n.b.\", \"n. b.\", \"n.  b.\", \"n.a.\", \"n. a.\", \"n.  a.\") replace_nanb_with_na(string) #> [1] \"19.2\" NA     NA     NA     NA     NA     NA"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/safe_office_folder.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: safe_office_folder — safe_office_folder","title":"Helper function: safe_office_folder — safe_office_folder","text":"Helper function: safe_office_folder","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/safe_office_folder.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: safe_office_folder — safe_office_folder","text":"","code":"safe_office_folder(office_path = \"C:/Program Files (x86)/Microsoft Office\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/safe_office_folder.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: safe_office_folder — safe_office_folder","text":"office_path office folder path (default: \"C:/Program Files (x86)/Microsoft Office\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/safe_office_folder.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: safe_office_folder — safe_office_folder","text":"path office folder (existing)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_formatted.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: stop_formatted — stop_formatted","title":"Helper function: stop_formatted — stop_formatted","text":"Helper function: stop_formatted","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_formatted.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: stop_formatted — stop_formatted","text":"","code":"stop_formatted(fmt, ...)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_formatted.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: stop_formatted — stop_formatted","text":"fmt fmt ... arguments passed fmt","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_formatted.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: stop_formatted — stop_formatted","text":"calls stop fmt additional arguments defined ...","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_if_duplicated_samples_found.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","title":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","text":"Helper function: stop duplicated sample ids found","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_if_duplicated_samples_found.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","text":"","code":"stop_if_duplicated_samples_found(df, col_sampleid, path, sheet = \"\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_if_duplicated_samples_found.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","text":"df data frame samples wide format col_sampleid column name sample id path path file df read (information ) sheet optional case EXCEL used (default: \"\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_if_duplicated_samples_found.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","text":"error case duplicated samples found","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_on_missing_or_inform_on_extra_sheets.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: stop_on_missing_or_inform_on_extra_sheets — stop_on_missing_or_inform_on_extra_sheets","title":"Helper function: stop_on_missing_or_inform_on_extra_sheets — stop_on_missing_or_inform_on_extra_sheets","text":"Helper function: stop_on_missing_or_inform_on_extra_sheets","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_on_missing_or_inform_on_extra_sheets.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: stop_on_missing_or_inform_on_extra_sheets — stop_on_missing_or_inform_on_extra_sheets","text":"","code":"stop_on_missing_or_inform_on_extra_sheets(has_site_id, file, sheets)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_on_missing_or_inform_on_extra_sheets.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: stop_on_missing_or_inform_on_extra_sheets — stop_on_missing_or_inform_on_extra_sheets","text":"has_site_id has_site_id file file sheets sheets","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_2.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: to_full_metadata2 — to_full_metadata_2","title":"Helper function: to_full_metadata2 — to_full_metadata_2","text":"Helper function: to_full_metadata2","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_2.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: to_full_metadata2 — to_full_metadata_2","text":"","code":"to_full_metadata_2(header, file, sheet)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_2.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: to_full_metadata2 — to_full_metadata_2","text":"header header file file sheet sheet","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_2.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: to_full_metadata2 — to_full_metadata_2","text":"data frame metadata header2 (EXCEL) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_4.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: to_full_metadata_4 — to_full_metadata_4","title":"Helper function: to_full_metadata_4 — to_full_metadata_4","text":"Helper function: to_full_metadata_4","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_4.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: to_full_metadata_4 — to_full_metadata_4","text":"","code":"to_full_metadata_4(header, file, sheet)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_4.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: to_full_metadata_4 — to_full_metadata_4","text":"header header file file sheet sheet","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_4.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: to_full_metadata_4 — to_full_metadata_4","text":"data frame metadata header4 (EXCEL) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/write_measurementchains_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: write csv data — write_measurementchains_data","title":"Measurement Chains: write csv data — write_measurementchains_data","text":"Measurement Chains: write csv data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/write_measurementchains_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: write csv data — write_measurementchains_data","text":"","code":"write_measurementchains_data(   mc_data,   target_directory,   to_zip = FALSE,   debug = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/write_measurementchains_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: write csv data — write_measurementchains_data","text":"mc_data measurement chains data retrieved  read_measurementchains_data target_directory target directory to_zip data zipped? (default: FALSE), TRUE  temporary csv file created subsequently zipped deleted debug print debug messages (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/write_measurementchains_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: write csv data — write_measurementchains_data","text":"writes csv data path","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-060-2023-04-14","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.6.0 2023-04-14","title":"kwb.geosalz 0.6.0 2023-04-14","text":"Add dependency kwb.nextcloud (required vignette measurement-chains.Rmd) Consider change variable name new Wasserportal API vignette wasserportal.Rmd Fix bug create_sftp_connection(): provide variable con_vars () Add error handling vignette measurement-chains.Rmd","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-050-2022-10-11","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.5.0 2022-10-11","title":"kwb.geosalz 0.5.0 2022-10-11","text":"Bugfix: fix read_lab_bwb() leading crash case importing Hydrochemie_Gesamt_Geosalz_v1.0.6.xlsx (see fix Add stop_if_duplicated_samples_found() read_lab_bwb() read_isotopes() throw error case imported dataset contains duplicated sample_id Articles Added Measurement Chains data import workflow electrical conductivity temperature, installed productions wells September (K10: 2022-09-27) October 2022 (K9: 2022-10-17, K13: 2022-10-16). Data SFTP server downloaded, aggregated exported restricted KWB cloud weekday 07:00:00 UTC. (see .github/pkgdown.yml#L11).","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-040-2022-08-25","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.4.0 2022-08-25","title":"kwb.geosalz 0.4.0 2022-08-25","text":"Functions Emshoff 91 .ods Import: create_emshoff91_import() read_emshoff91_ods() reads single .ods files read_multiple_emshoff91_ods() wrapper around read_emshoff91_ods() reading multiple .ods files returning list Hydrochemistry: added read_lab_bwb() import lab data BWB read_isotopes() import isotope data analysed UFZ added get_phreeqc_data() filter parameters imported read_lab_bwb() required PhreeqC. order transform filtered data function convert_phreeqc_input_to_wide() can used. Finally filtered data (retrieved get_phreeqc_data()) used prepare_phreeqc_input() creating PhreeqC input file. Wasserportal: added convert_to_sf() convert xy-coordinates (.e. UTM_33N crs = 25833) spatial feature object (crs = 4326) Articles Added Emshoff 91 data import ods files (formerly saved Quattro Pro (converted help LibreOffice (7.0) Ubuntu .ods .xlsx. However, latter used due possible mis-translation! Added Hydrochemistry data preparation workflow lab data PhreeqC Added Wasserportal data availability southern part SVM Friedrichshagen","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-030-2022-06-20","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.3.0 2022-06-20","title":"kwb.geosalz 0.3.0 2022-06-20","text":"Adding functionality checking data availability SVM Friedrichshagen based available BWB data pre-project phase (digitalised KWB) open-data Wasserportal Berlin Functions Add convert_to_sf() converting different CRS projections 4326 (OSM map used background map) Workflows Added new workflow Wasserportal checking available data Wasserportal Berlin Updated workflow Data Availability WW Friedrichshagen checking available data pre-project phase (see: workflow article)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-020-2022-06-01","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.2.0 2022-06-01","title":"kwb.geosalz 0.2.0 2022-06-01","text":"Add get_foerdermengen_gal_fri() getting annual abstraction values well field galeries waterworks Friedrichshagen Add workflow Data Availability WW Friedrichshagen checking available data pre-project phase (see: workflow article)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-010-2019-02-13","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.1.0 2019-02-13","title":"kwb.geosalz 0.1.0 2019-02-13","text":"Release Zenodo","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-0109000-unreleased","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.1.0.9000 unreleased","title":"kwb.geosalz 0.1.0.9000 unreleased","text":"Wrapped KWB-R/GeoSalz@88ae17 R package “kwb.geosalz” better workflow documentation Note: Formalising R scripts R package lead major improvements (bug removal) due build-“Check” functionality R packages! Integrated R functions Integrated “main.R” “vignettes/workflow.Rmd” documenting workflow see http://style.tidyverse.org/news.html writing good NEWS.md","code":""}]
+[{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"install-r-packages","dir":"Articles","previous_headings":"","what":"1 Install R packages","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"if (! require(\"remotes\")) {   install.packages(\"remotes\", repos = \"https://cloud.r-project.org\") }  remotes::install_github(\"kwb-r/kwb.geosalz\", dependencies = TRUE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"define-paths","dir":"Articles","previous_headings":"","what":"2 Define paths","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"# Define paths and resolve placeholders paths <- kwb.utils::resolve(list(   servername = Sys.getenv(\"servername\"),   root_server = \"//<servername>\",   project = \"geosalz\",   rawdata = \"<root_server>/rawdata/<project>/BWB_labor\",   processing = \"<root_server>/processing/<project>\",   cleaned_data_dir = \"<processing>/labor/cleaned-data\",   cleaned_data_rds = \"<cleaned_data_dir>/cleaned-data.Rds\",   foerdermengen = \"<rawdata>/2018-04-27 Rohwasser Bericht - Galeriefördermengen.xlsx\",   parameters = \"<rawdata>/2018-06-01 Lab Parameter.xlsx\",   figures_dir = \"<processing>/figures\" ))"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"input-data","dir":"Articles","previous_headings":"","what":"3 Input data","title":"Data Availability Waterworks Friedrichshagen","text":"Checkout Workflow vignette reproducing creation cleaned-data.Rds.","code":"library(kwb.geosalz)  ## Load water quality data (<= 2000, prepared within first phase of Geosalz ## project!); for creation see the \"workflow.Rmd\" vignette load(file = paths$cleaned_data_rds)  foerdermengen_ww <- kwb.geosalz::get_foerdermengen(paths$foerdermengen)  foerdermengen_fri_gal <- paths$foerdermengen %>%   kwb.geosalz::get_foerdermengen_gal_fri() %>%    dplyr::filter(!is.na(!.data$foerdermenge_m3))  readr::write_csv2(   foerdermengen_fri_gal,    file = file.path(paths$figures_dir, \"foerdermengen_fri_gal.csv\") )  para_info <- kwb.geosalz::get_parameters_meta(paths$parameters)  labordaten_ww_timeseries <- labordaten_ww %>%   dplyr::filter(     prufgegenstand == \"Rohwasser\",      werk == \"FRI\"   )   readr::write_csv2(   labordaten_ww_timeseries,   file = file.path(paths$figures_dir, \"Zeitreihen_FRI_Guete_Rohwasser.csv\") )  labordaten_ww_stats <- labordaten_ww_timeseries %>%   dplyr::group_by(     .data$para_id,     .data$para_kuerzel,      .data$para_kurzname,     .data$werk,      .data$galerie   ) %>%    dplyr::summarise(     date_min = as.Date(min(.data$Date)),     date_max = as.Date(max(.data$Date)),     period_days = diff(c(.data$date_min, .data$date_max)),     number_of_samples = dplyr::n(),      mean_sampling_intervall_days = round(       .data$period_days/.data$number_of_samples     )   ) %>%    dplyr::arrange(.data$para_id, .data$galerie)  readr::write_csv2(   labordaten_ww_stats,   file = file.path(paths$figures_dir, \"Stats_FRI_Guete_Rohwasser.csv\") )"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"water-quality","dir":"Articles","previous_headings":"4 Visualisation","what":"4.1 Water quality","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"#Check and in case the export directory is not available create it: fs::dir_create(paths$figures_dir, recurse = TRUE)  print(sprintf(\"Export figures/plots to: %s\", paths$figures_dir))  water_types <- c(\"Rohwasser\")  for (water_type in water_types) {      pdf_file <- file.path(     paths$figures_dir,     sprintf(\"Zeitreihen_FRI_%s_Guete.pdf\", water_type)   )      cat(sprintf(\"Creating plot:\\n%s\\n\", pdf_file))      pdf(file = pdf_file, width = 14, height = 9)      for (sel_para_id in unique(labordaten_ww$para_id)) {          my_selection <- sprintf(       \"%s (%s)\",       para_info$para_kurzname[para_info$para_id == sel_para_id],       water_type     )          tmp <- labordaten_ww %>%       dplyr::filter(         prufgegenstand == water_type,         para_id == sel_para_id,          werk == \"FRI\"       ) %>%       dplyr::filter(         stringr::str_detect(.data$galerie, pattern = \"GWW\", negate = TRUE)       )          y_label <-  sprintf(       \"%s (%s)\",       para_info$para_kurzname[para_info$para_id == sel_para_id],       paste0(unique(tmp$UnitName_org), collapse = \", \")     )          if (nrow(tmp) > 0) {              cat(sprintf(\"for %s\\n\", my_selection))              g <- ggplot2::ggplot(tmp, mapping = ggplot2::aes_string(         x = \"Date\",         y = \"DataValue\",         col = \"galerie\"       )) +         ggplot2::geom_point() +         ggplot2::geom_line() +         ggplot2::theme_bw() +         ggplot2::ggtitle(label = my_selection) +         ggplot2::labs(x = \"\", y = y_label)              print(g)            } else {              cat(sprintf(\"not data availabe for %s\\n\", my_selection))     }   }      dev.off() }"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"total","dir":"Articles","previous_headings":"4 Visualisation > 4.2 Yearly Abstraction Volume","what":"4.2.1 Total","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"pdf_file <- file.path(   paths$figures_dir,   \"Zeitreihen_FRI_Gesamt_Jahresfoerdermengen.pdf\" )  pdf(file = pdf_file, width = 14, height = 9)  foerdermengen_ww %>%   dplyr::filter(.data$Wasserwerk == \"Friedrichshagen\") %>%    ggplot2::ggplot(mapping = ggplot2::aes_string(     x = \"year\",     y = \"Foerdermenge_m3\",     col = \"werk\"   )) +    ggplot2::geom_point() +   ggplot2::geom_line() +   ggplot2::theme_bw() +   ggplot2::ggtitle(label = \"Wasserwerk Friedrichshagen\") +   ggplot2::labs(x = \"Datum\", y = \"Jahresf\\u00F6rdermenge (m3)\")  dev.off()"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"by-well-galeries","dir":"Articles","previous_headings":"4 Visualisation > 4.2 Yearly Abstraction Volume","what":"4.2.2 By Well Galeries","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"pdf_file <- file.path(   paths$figures_dir,   \"Zeitreihen_FRI_Galerien_Jahresfoerdermengen.pdf\" )  pdf(file = pdf_file, width = 14, height = 9)  foerdermengen_fri_gal %>%     ggplot2::ggplot(mapping = ggplot2::aes_string(     x = \"date\",     y = \"foerdermenge_m3\",      col = \"galerie\"   )) +    ggplot2::geom_point() +   ggplot2::geom_line() +   ggplot2::theme_bw() +   ggplot2::ggtitle(label = \"Brunnengalerien FRI\") +   ggplot2::labs(x = \"Datum\", y = \"Jahresf\\u00F6rdermenge (m3)\")  dev.off()  pdf_file <- file.path(   paths$figures_dir,   \"Zeitreihen_FRI_Galerien_Jahresfoerdermengen_multipage.pdf\" )  pdf(file = pdf_file, width = 14, height = 9)  tmp <- foerdermengen_fri_gal %>%     dplyr::mutate(foerdermenge_million_m3 = .data$foerdermenge_m3/1000000)  n_pages <- tmp %>%    dplyr::count(.data$galerie) %>%    dplyr::pull(.data$galerie) %>%    length()  for (page in seq_len(n_pages)) {   print(     tmp %>%        ggplot2::ggplot(mapping = ggplot2::aes_string(         x = \"date\",          y = \"foerdermenge_million_m3\"       )) +        ggforce::facet_wrap_paginate(~ galerie, ncol = 1, nrow = 1, page = page) +       #ggplot2::facet_wrap(~ galerie, ncol = 1) +        ggplot2::geom_point() +       ggplot2::geom_line() +       ggplot2::labs(x = \"Datum\", y = \"Foerdermenge (m3/Jahr)\") +       ggplot2::theme_bw()   ) }  #dev.off()  kwb.utils::finishAndShowPdf(PDF = pdf_file)"},{"path":[]},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"packages","dir":"Articles","previous_headings":"5 Session Info","what":"Packages","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"#>  package     * version date (UTC) lib source #>  bslib         0.5.1   2023-08-11 [1] RSPM (R 4.3.0) #>  cachem        1.0.8   2023-05-01 [1] RSPM (R 4.3.0) #>  cli           3.6.1   2023-03-23 [1] RSPM (R 4.3.0) #>  desc          1.4.2   2022-09-08 [1] RSPM (R 4.3.0) #>  digest        0.6.33  2023-07-07 [1] RSPM (R 4.3.0) #>  dplyr       * 1.1.3   2023-09-03 [1] RSPM (R 4.3.0) #>  evaluate      0.22    2023-09-29 [1] CRAN (R 4.3.1) #>  fansi         1.0.4   2023-01-22 [1] RSPM (R 4.3.0) #>  fastmap       1.1.1   2023-02-24 [1] RSPM (R 4.3.0) #>  fs            1.6.3   2023-07-20 [1] RSPM (R 4.3.0) #>  generics      0.1.3   2022-07-05 [1] RSPM (R 4.3.0) #>  glue          1.6.2   2022-02-24 [1] RSPM (R 4.3.0) #>  htmltools     0.5.6   2023-08-10 [1] RSPM (R 4.3.0) #>  jquerylib     0.1.4   2021-04-26 [1] RSPM (R 4.3.0) #>  jsonlite      1.8.7   2023-06-29 [1] RSPM (R 4.3.0) #>  knitr         1.44    2023-09-11 [1] RSPM (R 4.3.0) #>  kwb.utils     0.14.1  2023-09-23 [1] Github (kwb-r/kwb.utils@0930eae) #>  lifecycle     1.0.3   2022-10-07 [1] RSPM (R 4.3.0) #>  magrittr      2.0.3   2022-03-30 [1] RSPM (R 4.3.0) #>  memoise       2.0.1   2021-11-26 [1] RSPM (R 4.3.0) #>  pillar        1.9.0   2023-03-22 [1] RSPM (R 4.3.0) #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM (R 4.3.0) #>  pkgdown       2.0.7   2022-12-14 [1] RSPM (R 4.3.0) #>  purrr         1.0.2   2023-08-10 [1] RSPM (R 4.3.0) #>  R6            2.5.1   2021-08-19 [1] RSPM (R 4.3.0) #>  ragg          1.2.5   2023-01-12 [1] RSPM (R 4.3.0) #>  rlang         1.1.1   2023-04-28 [1] RSPM (R 4.3.0) #>  rmarkdown     2.25    2023-09-18 [1] RSPM (R 4.3.0) #>  rprojroot     2.0.3   2022-04-02 [1] RSPM (R 4.3.0) #>  sass          0.4.7   2023-07-15 [1] RSPM (R 4.3.0) #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM (R 4.3.0) #>  stringi       1.7.12  2023-01-11 [1] RSPM (R 4.3.0) #>  stringr       1.5.0   2022-12-02 [1] RSPM (R 4.3.0) #>  systemfonts   1.0.4   2022-02-11 [1] RSPM (R 4.3.0) #>  textshaping   0.3.6   2021-10-13 [1] RSPM (R 4.3.0) #>  tibble        3.2.1   2023-03-20 [1] RSPM (R 4.3.0) #>  tidyr       * 1.3.0   2023-01-24 [1] RSPM (R 4.3.0) #>  tidyselect    1.2.0   2022-10-10 [1] RSPM (R 4.3.0) #>  utf8          1.2.3   2023-01-31 [1] RSPM (R 4.3.0) #>  vctrs         0.6.3   2023-06-14 [1] RSPM (R 4.3.0) #>  xfun          0.40    2023-08-09 [1] RSPM (R 4.3.0) #>  yaml          2.3.7   2023-01-23 [1] RSPM (R 4.3.0) #>  #>  [1] D:/a/_temp/Library #>  [2] C:/R/library"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/data-availability_fri.html","id":"pandoc","dir":"Articles","previous_headings":"5 Session Info","what":"Pandoc","title":"Data Availability Waterworks Friedrichshagen","text":"","code":"#>                                           pandoc_directory pandoc_version #> 1 C:/HOSTED~1/windows/pandoc/219~1.2/x64/PANDOC~1.2/pandoc         2.19.2"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"install-r-packages","dir":"Articles","previous_headings":"","what":"1 Install R packages","title":"Emshoff 91","text":"","code":"if (! require(\"remotes\")) {   install.packages(\"remotes\", repos = \"https://cloud.r-project.org\") }  remotes::install_github(\"kwb-r/kwb.geosalz\", dependencies = TRUE)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"define-paths","dir":"Articles","previous_headings":"2 Setup the project","what":"2.1 Define paths","title":"Emshoff 91","text":"","code":"# Define paths and resolve placeholders paths <- kwb.utils::resolve(list(   servername = Sys.getenv(\"servername\"),   project = \"geosalz\",    processing_dir = \"//<servername>/processing/<project>\",   ods_dir = \"<processing_dir>/archiv/precleaned-data/emshoff91/converted_ods\",    version = \"0.9.0\",   export_xlsx_name = \"emshoff91_v<version>.xlsx\",   export_xlsx_dir = \"<processing_dir>/archiv/cleaned-data\",   export_xlsx_path = \"<export_xlsx_dir>/<export_xlsx_name>\" ))  #paths <- kwb.utils::resolve(paths, root = \"C:/projects\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"data-import","dir":"Articles","previous_headings":"","what":"3 Data import","title":"Emshoff 91","text":"","code":"emshoff91_import <- kwb.geosalz::create_emshoff91_import(ods_dir = paths$ods_dir)  emshoff91_list <- kwb.geosalz::read_multiple_emshoff91_ods(emshoff91_import)  emshoff91_df <- kwb.geosalz::emshoff91_list_to_df(emshoff91_list)  emshoff91_df_remapped <- kwb.geosalz::emshoff91_remap_values(emshoff91_df)  emshoff91_df_remapped <- emshoff91_import %>%     dplyr::right_join(     emshoff91_df_remapped,     by = \"ods_names_clean\"   ) %>%    dplyr::mutate(     datum = as.Date(sprintf(\"19%s\",.data$datum), format = \"%Y/%m/%d\"),     rohr = stringr::str_replace(.data$rohr, \"^0\", \"O\"))  messstelle_split <- stringr::str_split_fixed(   emshoff91_df_remapped$messstelle,    pattern = \"\\\\s{1,9}\",   n = 3 ) %>%    as.data.frame()  names(messstelle_split) <- c(\"objekt\", \"bhrgs_nr-jahr\", \"rohr\")    messstelle_split <- messstelle_split %>%    tibble::as_tibble() %>%    tidyr::separate(     col = \"bhrgs_nr-jahr\",      into = c(\"bhrgs_nr\", \"jahr\"),     sep = \"/\",     remove = FALSE   ) %>%    dplyr::mutate(     rohr = stringr::str_replace(.data$rohr, \"^0\", \"O\"),      ms = kwb.utils::multiSubstitute(       messstelle_split$objekt,       replacements = list(         \"GF|F-Gal.\" = \"Gal_F\",         \"GE|E-Gal\" = \"Gal_E\",         \"GI|I-Gal.\" = \"Gal_I\",         \"GG|G-Gal.|G-Gal\" = \"Gal_G\",         \"GK|K-Gal.\" = \"Gal_K\",         \"^Go$\" = \"Gal_O\",         \"GH|H-Gal.\" = \"Gal_H\",          \"GO\" = \"Gal_O\",         \"GL|L-Gal.\" = \"Gal_L\",          \"GM|M-Gal.\" = \"Gal_M\",         \",,\" = \",\"       )     )   )   messstelle_split2 <- messstelle_split$ms %>%   stringr::str_split_fixed(pattern = \",\", n = 2) %>%     as.data.frame()  names(messstelle_split2) <- c(\"brunnen_galerie\", \"brunnen_id\")  messstelle_split2 <- messstelle_split2 %>%    dplyr::mutate(     brunnen_id = stringr::str_remove(.data$brunnen_id, pattern = \"^Br\")   )  ms_split <- dplyr::bind_cols(messstelle_split, messstelle_split2)  ms_split  samples_per_moni_id <- emshoff91_df_remapped %>%     dplyr::count(.data$messstelle)   samples_per_moni_id_master <- emshoff91_df_remapped %>%     dplyr::count(     .data$messstelle,      .data$rohr,     .data$fi_mi,      .data$strat,     .data$progr   )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"export-to-excel","dir":"Articles","previous_headings":"3 Data import","what":"4 Export to Excel","title":"Emshoff 91","text":"","code":"openxlsx::write.xlsx(   list(     samples_per_moni_id = samples_per_moni_id,      samples_per_moni_id_master = samples_per_moni_id_master,     data = emshoff91_df_remapped   ),   file = paths$export_xlsx_path,   overwrite = TRUE )"},{"path":[]},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"packages","dir":"Articles","previous_headings":"5 Session Info","what":"Packages","title":"Emshoff 91","text":"","code":"#>  package     * version date (UTC) lib source #>  bslib         0.5.1   2023-08-11 [1] RSPM (R 4.3.0) #>  cachem        1.0.8   2023-05-01 [1] RSPM (R 4.3.0) #>  cli           3.6.1   2023-03-23 [1] RSPM (R 4.3.0) #>  desc          1.4.2   2022-09-08 [1] RSPM (R 4.3.0) #>  digest        0.6.33  2023-07-07 [1] RSPM (R 4.3.0) #>  dplyr       * 1.1.3   2023-09-03 [1] RSPM (R 4.3.0) #>  evaluate      0.22    2023-09-29 [1] CRAN (R 4.3.1) #>  fansi         1.0.4   2023-01-22 [1] RSPM (R 4.3.0) #>  fastmap       1.1.1   2023-02-24 [1] RSPM (R 4.3.0) #>  fs            1.6.3   2023-07-20 [1] RSPM (R 4.3.0) #>  generics      0.1.3   2022-07-05 [1] RSPM (R 4.3.0) #>  glue          1.6.2   2022-02-24 [1] RSPM (R 4.3.0) #>  htmltools     0.5.6   2023-08-10 [1] RSPM (R 4.3.0) #>  jquerylib     0.1.4   2021-04-26 [1] RSPM (R 4.3.0) #>  jsonlite      1.8.7   2023-06-29 [1] RSPM (R 4.3.0) #>  knitr         1.44    2023-09-11 [1] RSPM (R 4.3.0) #>  kwb.utils     0.14.1  2023-09-23 [1] Github (kwb-r/kwb.utils@0930eae) #>  lifecycle     1.0.3   2022-10-07 [1] RSPM (R 4.3.0) #>  magrittr      2.0.3   2022-03-30 [1] RSPM (R 4.3.0) #>  memoise       2.0.1   2021-11-26 [1] RSPM (R 4.3.0) #>  pillar        1.9.0   2023-03-22 [1] RSPM (R 4.3.0) #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM (R 4.3.0) #>  pkgdown       2.0.7   2022-12-14 [1] RSPM (R 4.3.0) #>  purrr         1.0.2   2023-08-10 [1] RSPM (R 4.3.0) #>  R6            2.5.1   2021-08-19 [1] RSPM (R 4.3.0) #>  ragg          1.2.5   2023-01-12 [1] RSPM (R 4.3.0) #>  rlang         1.1.1   2023-04-28 [1] RSPM (R 4.3.0) #>  rmarkdown     2.25    2023-09-18 [1] RSPM (R 4.3.0) #>  rprojroot     2.0.3   2022-04-02 [1] RSPM (R 4.3.0) #>  sass          0.4.7   2023-07-15 [1] RSPM (R 4.3.0) #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM (R 4.3.0) #>  stringi       1.7.12  2023-01-11 [1] RSPM (R 4.3.0) #>  stringr       1.5.0   2022-12-02 [1] RSPM (R 4.3.0) #>  systemfonts   1.0.4   2022-02-11 [1] RSPM (R 4.3.0) #>  textshaping   0.3.6   2021-10-13 [1] RSPM (R 4.3.0) #>  tibble        3.2.1   2023-03-20 [1] RSPM (R 4.3.0) #>  tidyr       * 1.3.0   2023-01-24 [1] RSPM (R 4.3.0) #>  tidyselect    1.2.0   2022-10-10 [1] RSPM (R 4.3.0) #>  utf8          1.2.3   2023-01-31 [1] RSPM (R 4.3.0) #>  vctrs         0.6.3   2023-06-14 [1] RSPM (R 4.3.0) #>  xfun          0.40    2023-08-09 [1] RSPM (R 4.3.0) #>  yaml          2.3.7   2023-01-23 [1] RSPM (R 4.3.0) #>  #>  [1] D:/a/_temp/Library #>  [2] C:/R/library"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/emshoff91.html","id":"pandoc","dir":"Articles","previous_headings":"5 Session Info > Packages","what":"Pandoc","title":"Emshoff 91","text":"","code":"#>                                           pandoc_directory pandoc_version #> 1 C:/HOSTED~1/windows/pandoc/219~1.2/x64/PANDOC~1.2/pandoc         2.19.2"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"install-r-packages","dir":"Articles","previous_headings":"","what":"1 Install R packages","title":"Hydrochemistry","text":"","code":"if (! require(\"remotes\")) {   install.packages(\"remotes\", repos = \"https://cloud.r-project.org\") }  remotes::install_github(\"kwb-r/kwb.geosalz\", dependencies = TRUE)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"define-paths","dir":"Articles","previous_headings":"2 Setup the project","what":"2.1 Define paths","title":"Hydrochemistry","text":"","code":"# Define paths and resolve placeholders paths_list <- list(   servername = Sys.getenv(\"servername\"),   root_server = \"//<servername>/projekte$/GRW_Department/PROJECTS\",   project = \"geosalz\",   root_project = \"<root_server>/<project>\",   monitoring = \"<root_project>/Work-packages/AP2_Monitoring\",   samples_bwb_dir = \"<monitoring>/Beprobung\",   version = \"1.12\",   samples_bwb = \"<samples_bwb_dir>/Hydrochemie_Gesamt_Geosalz_v<version>.xlsx\",   master_data = \"<samples_bwb>\",   isotopes_dir =  \"<monitoring>/Isotope/data\",   isotopes = \"<isotopes_dir>/Isotope.csv\",   phreeqc_dir = \"<samples_bwb_dir>/phreeqc\",   phreeqc_txt = \"<phreeqc_dir>/phreeqc_output_v%s.txt\",   phreeqc_xlsx = \"<phreeqc_dir>/phreeqc_output_v%s.xlsx\" )  paths <- kwb.utils::resolve(paths_list) #paths <- kwb.utils::resolve(paths, root = \"C:/projects\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"data-import","dir":"Articles","previous_headings":"","what":"3 Data import","title":"Hydrochemistry","text":"","code":"master_data <- kwb.geosalz::read_master_data(paths$master_data)  lab_bwb <- kwb.geosalz::read_lab_bwb(paths$samples_bwb, sheet = 'phreeqc_analysen')  lab_ufz <- kwb.geosalz::read_isotopes(paths$isotopes)  lab_data <- lab_bwb %>%    dplyr::mutate(probe_nr = as.character(.data$probe_nr)) %>%   dplyr::bind_rows(     lab_ufz %>%         dplyr::mutate(par_val_org = as.character(.data$par_val_org))   )  str(lab_data)  lab_data_master <- dplyr::left_join(lab_data, master_data, by = \"messstelle\")  str(lab_data_master)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"prepare-phreeqc-input-file","dir":"Articles","previous_headings":"4 PhreeqC","what":"4.1 Prepare PHREEQC Input File","title":"Hydrochemistry","text":"Content solutions_input shown :","code":"phreeqc_input <- kwb.geosalz::get_phreeqc_data(lab_data_master) phreeqc_input  phreeqc_input_wide <- kwb.geosalz::convert_phreeqc_input_to_wide(phreeqc_input) phreeqc_input_wide   solutions_input <-  kwb.geosalz::prepare_phreeqc_input(   phreeqc_input,   title = sprintf(\"Based on '%s'\", paths$samples_bwb) )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"run-phreeqc","dir":"Articles","previous_headings":"4 PhreeqC","what":"4.2 Run PHREEQC","title":"Hydrochemistry","text":"content phreeqc_output","code":"fs::dir_create(paths$phreeqc_dir)  ### Load PHREEQC database \"phreeqc.dat\" phreeqc::phrLoadDatabaseString(phreeqc::phreeqc.dat)  ### Capture PHREEQC output normally sent to output file into a buffer phreeqc::phrSetOutputStringsOn(TRUE)  ## Run PHREEQC with \"solutions_input\" phreeqc::phrRunString(input = solutions_input)  ### Retrieves the phreeqc output as a character vector phreeqc_output <- phreeqc::phrGetOutputStrings() writeLines(phreeqc_output, paths$phreeqc_txt)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"get-results","dir":"Articles","previous_headings":"4 PhreeqC","what":"4.3 Get Results","title":"Hydrochemistry","text":"","code":"sims <- geosalz.phreeqc::read_simulations(phreeqc_output) str(sims)  sims_list <- geosalz.phreeqc::convert_simulations_to_list(sims) str(sims_list)  n_components <- length(names(sims_list))  masters_lab <- lab_data %>%    dplyr::count(     .data$probe_nr,     .data$probenahme_datum,      .data$messstelle   ) %>%    dplyr::select(- .data$n) %>%    dplyr::left_join(master_data)  sims_list_master <- stats::setNames(      lapply(seq_len(n_components), function(i) {          if (i %in% 1:2) {              sims_list[[i]]            } else {              dplyr::left_join(         sims_list[[i]],         masters_lab,         by = c(\"solution_name\" = \"probe_nr\")       )     }   }),    names(sims_list) )  # View(sims_list_master$solution_composition) # View(sims_list_master$description_of_solution) # View(sims_list_master$redox_couples) # View(sims_list_master$distribution_of_species) # View(sims_list_master$saturation_indices)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"export-to-excel","dir":"Articles","previous_headings":"4 PhreeqC","what":"5 Export to Excel","title":"Hydrochemistry","text":"","code":"export_data <- c(   list(     \"master_data\" = master_data,      \"lab_bwb\" = lab_bwb,     \"lab_ufz\" = lab_ufz,     \"phreeqc_input\" = phreeqc_input_wide   ),   sims_list )  openxlsx::write.xlsx(   x = export_data,   file = paths$phreeqc_xlsx,   overwrite = TRUE )"},{"path":[]},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"packages","dir":"Articles","previous_headings":"6 Session Info","what":"Packages","title":"Hydrochemistry","text":"","code":"#>  package     * version date (UTC) lib source #>  bslib         0.5.1   2023-08-11 [1] RSPM (R 4.3.0) #>  cachem        1.0.8   2023-05-01 [1] RSPM (R 4.3.0) #>  cli           3.6.1   2023-03-23 [1] RSPM (R 4.3.0) #>  desc          1.4.2   2022-09-08 [1] RSPM (R 4.3.0) #>  digest        0.6.33  2023-07-07 [1] RSPM (R 4.3.0) #>  dplyr       * 1.1.3   2023-09-03 [1] RSPM (R 4.3.0) #>  evaluate      0.22    2023-09-29 [1] CRAN (R 4.3.1) #>  fansi         1.0.4   2023-01-22 [1] RSPM (R 4.3.0) #>  fastmap       1.1.1   2023-02-24 [1] RSPM (R 4.3.0) #>  fs            1.6.3   2023-07-20 [1] RSPM (R 4.3.0) #>  generics      0.1.3   2022-07-05 [1] RSPM (R 4.3.0) #>  glue          1.6.2   2022-02-24 [1] RSPM (R 4.3.0) #>  htmltools     0.5.6   2023-08-10 [1] RSPM (R 4.3.0) #>  jquerylib     0.1.4   2021-04-26 [1] RSPM (R 4.3.0) #>  jsonlite      1.8.7   2023-06-29 [1] RSPM (R 4.3.0) #>  knitr         1.44    2023-09-11 [1] RSPM (R 4.3.0) #>  kwb.utils     0.14.1  2023-09-23 [1] Github (kwb-r/kwb.utils@0930eae) #>  lifecycle     1.0.3   2022-10-07 [1] RSPM (R 4.3.0) #>  magrittr      2.0.3   2022-03-30 [1] RSPM (R 4.3.0) #>  memoise       2.0.1   2021-11-26 [1] RSPM (R 4.3.0) #>  pillar        1.9.0   2023-03-22 [1] RSPM (R 4.3.0) #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM (R 4.3.0) #>  pkgdown       2.0.7   2022-12-14 [1] RSPM (R 4.3.0) #>  purrr         1.0.2   2023-08-10 [1] RSPM (R 4.3.0) #>  R6            2.5.1   2021-08-19 [1] RSPM (R 4.3.0) #>  ragg          1.2.5   2023-01-12 [1] RSPM (R 4.3.0) #>  rlang         1.1.1   2023-04-28 [1] RSPM (R 4.3.0) #>  rmarkdown     2.25    2023-09-18 [1] RSPM (R 4.3.0) #>  rprojroot     2.0.3   2022-04-02 [1] RSPM (R 4.3.0) #>  sass          0.4.7   2023-07-15 [1] RSPM (R 4.3.0) #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM (R 4.3.0) #>  stringi       1.7.12  2023-01-11 [1] RSPM (R 4.3.0) #>  stringr       1.5.0   2022-12-02 [1] RSPM (R 4.3.0) #>  systemfonts   1.0.4   2022-02-11 [1] RSPM (R 4.3.0) #>  textshaping   0.3.6   2021-10-13 [1] RSPM (R 4.3.0) #>  tibble        3.2.1   2023-03-20 [1] RSPM (R 4.3.0) #>  tidyr       * 1.3.0   2023-01-24 [1] RSPM (R 4.3.0) #>  tidyselect    1.2.0   2022-10-10 [1] RSPM (R 4.3.0) #>  utf8          1.2.3   2023-01-31 [1] RSPM (R 4.3.0) #>  vctrs         0.6.3   2023-06-14 [1] RSPM (R 4.3.0) #>  xfun          0.40    2023-08-09 [1] RSPM (R 4.3.0) #>  yaml          2.3.7   2023-01-23 [1] RSPM (R 4.3.0) #>  #>  [1] D:/a/_temp/Library #>  [2] C:/R/library"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/hydrochemistry.html","id":"pandoc","dir":"Articles","previous_headings":"6 Session Info > Packages","what":"Pandoc","title":"Hydrochemistry","text":"","code":"#>                                           pandoc_directory pandoc_version #> 1 C:/HOSTED~1/windows/pandoc/219~1.2/x64/PANDOC~1.2/pandoc         2.19.2"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"background","dir":"Articles","previous_headings":"","what":"Background","title":"Measurement Chains","text":"One measurement chain consists six sensors placed one production well, different filter depths. total, three measurement chains installed three different production wells. Table 1 lists individual sensors. number sensor within well given column sensor_endnummer. identifier production well sensor located given column brunnen_nummer. sensor (type: WLF05, TODO: add-link--factsheet--kwb-cloud) measures two parameters following characteristics: measurement range: 0 - 20 mS measurement range detection: automatic typical accuracy: +/- 1.5 % measurement value measurement range: 0 - 50 degree Celsius measurement resolution: 0.1 Kelvin typical accuracy: <= 0.1 Kelvin maximum temporal resolution sensor can provide “every second”. Within GeoSalz project, measurements taken every 5 minutes. sufficient detect potential salinity shifts caused changes pumping regime.","code":""},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"define-paths","dir":"Articles","previous_headings":"Data Management","what":"Define Paths","title":"Measurement Chains","text":"","code":"# Define paths to directories, using <placeholder> replacements paths <- kwb.utils::resolve(list(      # Local temporary directory   local_dir = kwb.geosalz:::temp_dir(),      # Target directory for downloaded measurement chain files (.csv)   download_dir = \"<local_dir>/download\",      # Local directory for aggregated data (.csv and .zip)   export_dir = \"<local_dir>/export\",      # KWB cloud directory to which data in \"export_dir\" is uploaded   upload_dir = \"projects/GeoSalz/Monitoring/messketten\" )) #> The directory \"C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz\" was created.  # Print all paths paths #> $local_dir #> [1] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz\" #>  #> $download_dir #> [1] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz/download\" #>  #> $export_dir #> [1] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz/export\" #>  #> $upload_dir #> [1] \"projects/GeoSalz/Monitoring/messketten\""},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"define-sftp-login","dir":"Articles","previous_headings":"Data Management","what":"Define SFTP Login","title":"Measurement Chains","text":"Run usethis::edit_r_environ() edit .Renviron file. file defines environment variables made accessible R session. Add following three rows, defining three environment variables, file. environment variables required log SFTP server input data downloaded. Replace placeholders <sftp_url>, <sftp_username>, <sftp_userpassword> URL, user name, password, respectively, required get access SFTP server. Save .Renviron file restart R session (e.g. “Session/Restart R” menu RStudio) make environment variables available R. case SFTP login credentials correct, code work. downloads measurement chains data (.e. parameters electrical conductivity temperature) SFTP server user-defined directory local device.","code":"MESSKETTEN_SERVER=<sftp_url> MESSKETTEN_USER=<sftp_username> MESSKETTEN_PASSWORD=<sftp_userpassword>"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"what-files-are-available-on-the-sftp-server","dir":"Articles","previous_headings":"Data Management > Data Download","what":"What files are available on the SFTP server?","title":"Measurement Chains","text":"","code":"# Metadata of measurement chains (see also Table 1 above) metadata <- kwb.geosalz::get_measurementchains_metadata() str(metadata) #> spc_tbl_ [18 × 10] (S3: spec_tbl_df/tbl_df/tbl/data.frame) #>  $ galerie               : chr [1:18] \"K\" \"K\" \"K\" \"K\" ... #>  $ brunnen_nummer        : int [1:18] 9 9 9 9 9 9 10 10 10 10 ... #>  $ dn                    : int [1:18] 400 400 400 400 400 400 600 600 600 600 ... #>  $ einbau_pumpe          : chr [1:18] \"über Filter\" \"über Filter\" \"über Filter\" \"über Filter\" ... #>  $ einbau_messkette      : chr [1:18] \"unter Pumpe\" \"unter Pumpe\" \"unter Pumpe\" \"unter Pumpe\" ... #>  $ filteroberkante_muGOK : num [1:18] 21 21 21 21 21 21 11 11 11 11 ... #>  $ filterunterkante_muGOK: num [1:18] 27 27 27 27 27 27 18 18 18 18 ... #>  $ sensor_id             : int [1:18] 4182018 4182017 4182016 4182015 4182014 4182013 4182006 4182005 4182004 4182003 ... #>  $ sensor_endnummer      : int [1:18] 8 7 6 5 4 3 6 5 4 3 ... #>  $ einbau_sensor_muGOK   : num [1:18] 21.5 22.5 23.5 24.5 25.5 26.5 11.5 12.7 13.9 15.1 ... #>  - attr(*, \"spec\")= #>   .. cols( #>   ..   galerie = col_character(), #>   ..   brunnen_nummer = col_integer(), #>   ..   dn = col_integer(), #>   ..   einbau_pumpe = col_character(), #>   ..   einbau_messkette = col_character(), #>   ..   filteroberkante_muGOK = col_double(), #>   ..   filterunterkante_muGOK = col_double(), #>   ..   sensor_id = col_integer(), #>   ..   sensor_endnummer = col_integer(), #>   ..   einbau_sensor_muGOK = col_double() #>   .. ) #>  - attr(*, \"problems\")=<externalptr>  # Information on available measurement chain files on SFTP server mc_files <- kwb.geosalz::get_measurementchains_files()  str(mc_files) #> 'data.frame':    6403 obs. of  16 variables: #>  $ rights          : chr  \"-rw-r--r--\" \"-rw-r--r--\" \"-rw-r--r--\" \"-rw-r--r--\" ... #>  $ links           : chr  \"1\" \"1\" \"1\" \"1\" ... #>  $ ownername       : chr  \"1011\" \"1011\" \"1011\" \"1011\" ... #>  $ ownergroup      : chr  \"1002\" \"1002\" \"1002\" \"1002\" ... #>  $ filesize        : chr  \"4559\" \"4559\" \"4559\" \"4559\" ... #>  $ t1              : chr  \"Oct\" \"Oct\" \"Oct\" \"Oct\" ... #>  $ t2              : chr  \"24\" \"24\" \"24\" \"25\" ... #>  $ t3              : chr  \"2022\" \"2022\" \"2022\" \"2022\" ... #>  $ sftp_path       : chr  \"K09/4182013-2022-10-22-0606.csv\" \"K09/4182013-2022-10-23-0606.csv\" \"K09/4182013-2022-10-24-0606.csv\" \"K09/4182013-2022-10-25-0606.csv\" ... #>  $ type            : chr  \"file\" \"file\" \"file\" \"file\" ... #>  $ galerie         : chr  \"K\" \"K\" \"K\" \"K\" ... #>  $ brunnen_nummer  : int  9 9 9 9 9 9 9 9 9 9 ... #>  $ prefix          : chr  \"\" \"\" \"\" \"\" ... #>  $ sensor_id       : int  4182013 4182013 4182013 4182013 4182013 4182013 4182013 4182013 4182013 4182013 ... #>  $ sensor_endnummer: int  3 3 3 3 3 3 3 3 3 3 ... #>  $ datum_uhrzeit   : POSIXct, format: \"2022-10-22 06:06:00\" \"2022-10-23 06:06:00\" ... head(mc_files) #>       rights links ownername ownergroup filesize  t1 t2   t3 #> 1 -rw-r--r--     1      1011       1002     4559 Oct 24 2022 #> 2 -rw-r--r--     1      1011       1002     4559 Oct 24 2022 #> 3 -rw-r--r--     1      1011       1002     4559 Oct 24 2022 #> 4 -rw-r--r--     1      1011       1002     4559 Oct 25 2022 #> 5 -rw-r--r--     1      1011       1002     4559 Oct 26 2022 #> 6 -rw-r--r--     1      1011       1002     4559 Oct 27 2022 #>                         sftp_path type galerie brunnen_nummer prefix sensor_id #> 1 K09/4182013-2022-10-22-0606.csv file       K              9          4182013 #> 2 K09/4182013-2022-10-23-0606.csv file       K              9          4182013 #> 3 K09/4182013-2022-10-24-0606.csv file       K              9          4182013 #> 4 K09/4182013-2022-10-25-0606.csv file       K              9          4182013 #> 5 K09/4182013-2022-10-26-0606.csv file       K              9          4182013 #> 6 K09/4182013-2022-10-27-0606.csv file       K              9          4182013 #>   sensor_endnummer       datum_uhrzeit #> 1                3 2022-10-22 06:06:00 #> 2                3 2022-10-23 06:06:00 #> 3                3 2022-10-24 06:06:00 #> 4                3 2022-10-25 06:06:00 #> 5                3 2022-10-26 06:06:00 #> 6                3 2022-10-27 06:06:00  # All paths to files on the SFTP server all_paths <- kwb.utils::selectColumns(mc_files, \"sftp_path\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"what-data-are-already-available-on-the-nextcloud-server","dir":"Articles","previous_headings":"Data Management > Data Download","what":"What data are already available on the Nextcloud server?","title":"Measurement Chains","text":"","code":"# Download existing data from the Nextcloud server. NULL is returned if there is # no file \"mc_data.zip\" in the Nextcloud folder  # \"projects/GeoSalz/Monitoring/messketten\" old_data <- kwb.geosalz::get_measurement_chain_data_on_cloud() #> The directory \"~/../Downloads/nextcloud_9143e0fca7\" was created. #> Downloading remote.php/dav/files/hsonne/projects/GeoSalz/Monitoring/messketten/mc_data.zip ... ok. (1.45 secs) #old_data <- NULL"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"what-files-need-to-be-downloaded-from-the-sftp-server","dir":"Articles","previous_headings":"Data Management > Data Download","what":"What files need to be downloaded from the SFTP server?","title":"Measurement Chains","text":"","code":"# Determine the SFTP paths of the files to be downloaded. Download all available # files if there was no data on the Nextcloud yet. Otherwise, download only # those files that have been added to the SFTP server since when this script was # run the last time. new_paths <- if (is.null(old_data)) {      all_paths    } else {      # Get SFTP paths from which data were originally retrieved   old_paths <- unique(kwb.utils::selectColumns(old_data, \"file\"))      # Determine the paths to the new files that need to be downloaded   setdiff(all_paths, old_paths) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"download-the-new-files-from-the-sftp-server","dir":"Articles","previous_headings":"Data Management > Data Download","what":"Download the new files from the SFTP server","title":"Measurement Chains","text":"","code":"# If there are new files to download, download them. csv_files <- if (length(new_paths)) {      # Download only the new measurement chain files (.csv) from the SFTP server   kwb.geosalz::download_measurementchains_data(     sftp_paths = new_paths,     target_directory = paths$download_dir,     debug = TRUE   )    } # else NULL implicitly #> The directory \"C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download\" was created. #> Download 18 measurement chains files (using 1 CPU core) to C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download ... #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> Creating folder C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/download/K09 #> K09/4182013-2023-10-06-0606.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182014-2023-10-06-0616.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182015-2023-10-06-0626.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182016-2023-10-06-0611.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182017-2023-10-06-0621.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K09/4182018-2023-10-06-0631.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> Creating folder C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/download/K10 #> K10/LF_4182001_2023-10-06-0601.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182002_2023-10-06-0605.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182003_2023-10-06-0611.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182004_2023-10-06-0636.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182005_2023-10-06-0641.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K10/LF_4182006_2023-10-06-0630.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> Creating folder C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/download/K13 #> K13/4182007-2023-10-06-0605.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182008-2023-10-06-0615.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182009-2023-10-06-0626.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182010-2023-10-06-0610.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182011-2023-10-06-0620.csv downloaded #> 1 file(s) downloaded. #> SFTP source: sftp://ftp.ackermannkg.de #> Save to folder: C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/download #> 1 file(s) to download. #> K13/4182012-2023-10-06-0630.csv downloaded #> 1 file(s) downloaded. #> ok. (1.10 mins)  str(csv_files) #>  chr [1:18] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz/download/K09/4182013-2023-10-06-0606.csv\" ..."},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"data-import","dir":"Articles","previous_headings":"Data Management","what":"Data Import","title":"Measurement Chains","text":"following code imports downloaded measurement chains files (.csv) R: following datasets imported R already available R: cover time period 2022-09-27 11:00:00 2023-10-05 23:00:00 total 135144 samples.","code":"# Set the current data to the old data (may be NULL) mc_data <- old_data  # If new files have been downloaded, import them into R if (length(csv_files)) {      # Import csv files using multiple CPU cores   new_data <- kwb.geosalz::read_measurementchains_data(     csv_files,     run_parallel = TRUE,     debug = TRUE   )      # Combine the new data with the existing data and reorder   mc_data <- mc_data %>%     rbind(new_data) %>%     kwb.geosalz::order_measurement_chain_data() } #> Importing 18 measurement chains files (using 1 CPU core) ... ok. (3.47 secs)  #> Filtering out 'lab' measurements before '2022-09-27 11:00:00' (installation in K10) ... ok. (0.00 secs) mc_data_stats <- mc_data %>%   kwb.geosalz::get_measurmentchains_data_stats() %>%    dplyr::arrange(     .data$parameter,      dplyr::desc(.data$sensor_id)   )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"data-export","dir":"Articles","previous_headings":"Data Management","what":"Data Export","title":"Measurement Chains","text":"file size mc_data_20220927-110000TZ+01_20231005-230000TZ+01.csv file 22 times larger compared compressing mc_data.zip.","code":"debug <- TRUE  # Export \"mc_data\" to csv file data_csv_path <- kwb.geosalz::write_measurementchains_data(   mc_data,   target_directory = paths$export_dir,   to_zip = FALSE,   debug = debug ) #> Exporting provided dataset 'mc_data' to 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231005-230000TZ+01.csv' ... ok. (2.93 secs)  size_data_csv <- fs::file_size(data_csv_path)  # Export \"mc_data\" to zip file (~10x less disk space for test dataset) data_zip_path <- kwb.geosalz::write_measurementchains_data(   mc_data,   target_directory = paths$export_dir,   to_zip = TRUE,   debug = debug ) #> Exporting provided dataset 'mc_data' to 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231005-230000TZ+01.csv' ... ok. (3.02 secs)  #> Exporting provided dataset 'mc_data' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data.zip' and delete intermediate 'C:/Users/RUNNER~1/AppData/Local/Temp/R_kwb.geosalz/export/mc_data_20220927-110000TZ+01_20231005-230000TZ+01.csv' ... ok. (0.19 secs)  size_data_zip <- fs::file_size(data_zip_path) size_data_csv / size_data_zip #> 22  extract_data_timeperiod <- function(file) {   basename(file) %>%      kwb.utils::replaceFileExtension(\"\") %>%       stringr::str_remove(\"^mc[-|_]data\") }  # Define helper function to write a csv file in a target directory write_csv <- function(df, postfix = \"\", target_dir) {   fs::dir_create(target_dir)   name <- deparse(substitute(df))   file <- file.path(target_dir, paste0(name, postfix,  \".csv\"))   readr::write_csv(df, file)   file }  postfix <- extract_data_timeperiod(data_zip_path) target_dir <- paths$export_dir  # Export data and metadata to csv files stats_path <- write_csv(mc_data_stats, postfix, target_dir) metadata_path <- write_csv(metadata, postfix, target_dir) files_path <- write_csv(mc_files, postfix, target_dir)  # Define function that plots data to a pdf file plot_to_pdf <- function(mc_data, para, target_dir = \".\", debug = TRUE) {      plots <- kwb.geosalz::plot_measurementchains(mc_data, para)      sapply(names(plots), function(name) {     path <-  file.path(target_dir, sprintf(\"mc_data_%s.pdf\", name))     kwb.utils::catAndRun(       sprintf(\"Writting '%s' to '%s'\", name, path),       expr = {         kwb.utils::preparePdf(path, width.cm = 25, height.cm = 15)         on.exit(dev.off())         print(plots[[name]])         path       },        dbg = debug     )   }) }  pdf_files <- c(   plot_to_pdf(mc_data, \"Leitfaehigkeit\", paths$export_dir),    plot_to_pdf(mc_data, \"Temperatur\", paths$export_dir) ) #> Writting 'Leitfaehigkeit_K10' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K10.pdf' ... #> ok. (1.57 secs)  #> Writting 'Leitfaehigkeit_K13' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K13.pdf' ... #> ok. (0.89 secs)  #> Writting 'Leitfaehigkeit_K09' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K09.pdf' ... #> ok. (0.88 secs)  #> Writting 'Temperatur_K10' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K10.pdf' ... #> ok. (1.12 secs)  #> Writting 'Temperatur_K13' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K13.pdf' ... #> ok. (0.84 secs)  #> Writting 'Temperatur_K09' to 'C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K09.pdf' ... #> ok. (0.85 secs)  data_zip_path #> [1] \"C:\\\\Users\\\\RUNNER~1\\\\AppData\\\\Local\\\\Temp/R_kwb.geosalz/export/mc_data.zip\""},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/measurement-chains.html","id":"data-upload","dir":"Articles","previous_headings":"Data Management","what":"Data Upload","title":"Measurement Chains","text":"order automate data management process exported data data uploaded restricted shared folder KWB cloud. following environment variables need defined case code run client computer. However, variables defined GitHub actions workflow need locally. Subsequently following code run uploading data:","code":"NEXTCLOUD_URL = \"https://<replace-with-kwb-cloud-url>\" NEXTCLOUD_USER = \"<your-kwb-cloud-username>\" # your username NEXTCLOUD_PASSWORD = \"your-nextcloud-app-password\" ### see details below # List paths of files to upload explicitly upload_files <- kwb.geosalz:::exclude_missing_files(c(   stats_path,    pdf_files,   metadata_path,    files_path,   data_zip_path ))  for (file in upload_files) {      kwb.utils::catAndRun(     messageText = paste(\"Uploading file\", file),     expr = try(kwb.nextcloud::upload_file(       file = file,        target_path = paths$upload_dir     )),     dbg = TRUE   ) } #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_stats.csv ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_stats.csv #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (2.14 secs)  #> ok. (3.17 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K10.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K10.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (2.77 secs)  #> ok. (3.22 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K13.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K13.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.57 secs)  #> ok. (2.04 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K09.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Leitfaehigkeit_K09.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.76 secs)  #> ok. (2.24 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K10.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K10.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.97 secs)  #> ok. (2.42 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K13.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K13.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.74 secs)  #> ok. (2.20 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K09.pdf ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data_Temperatur_K09.pdf #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.56 secs)  #> ok. (2.02 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/metadata.csv ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/metadata.csv #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.50 secs)  #> ok. (1.97 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_files.csv ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_files.csv #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (1.53 secs)  #> ok. (1.99 secs)  #> Uploading file C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data.zip ... Uploading #>   C:\\Users\\RUNNER~1\\AppData\\Local\\Temp/R_kwb.geosalz/export/mc_data.zip #> to #>   projects/GeoSalz/Monitoring/messketten ... ok. (2.11 secs)  #> ok. (2.58 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"define-helper-functions","dir":"Articles","previous_headings":"","what":"Define Helper Functions","title":"Wasserportal","text":"","code":"library(kwb.geosalz)  add_label <- function(df, columns) {   df %>%     dplyr::mutate(label = wasserportal::columns_to_labels(       data = df,       columns = columns,       fmt = \"<p>%s: %s<\/p>\",       sep = \"\"     )) }  add_interval_label <- function(df) {   add_label(df, c(\"Nummer\", \"start\", \"end\", \"n\", \"interval\")) }  add_waterbody_label <- function(df) {   add_label(df, c(\"Nummer\", \"Gewaesser\", \"Auspraegung\", \"Betreiber\")) }  get_data_stats <- function(df, group_col = \"Messstellennummer\") {   df %>%     dplyr::group_by(.data[[group_col]]) %>%     dplyr::summarise(       start = min(as.Date(.data$Datum)),       end = max(as.Date(.data$Datum)),       period = diff(c(.data$start, .data$end)),       n = dplyr::n(),       interval = round(.data$period / .data$n)     ) }  difftime_to_numeric <- function(df) {   df %>%       dplyr::rename(       period_days = \"period\",        interval_days = \"interval\"     ) %>%      dplyr::mutate(       period_days = as.numeric(.data$period_days),       interval_days = as.numeric(.data$interval_days)     ) }  remove_na_and_geometry <- function(df) {   df %>%     kwb.utils::removeColumns(\"label\") %>%     kwb.utils::removeEmptyColumns(dbg = FALSE) %>%     remove_geometry() }  remove_geometry <- function(df) {   sf::st_geometry(df) <- NULL   df }  write_csv <- function(x, file) {   kwb.utils::catAndRun(     sprintf(\"Writing %s to %s\", deparse(substitute(x)), file),     readr::write_csv2(x, file)   ) }  # Function to create a map create_map <- function(     basemap, data, labels, legend_label, legend_color, circle_color ) {   basemap %>%     leaflet::addCircles(       data = data,       color = circle_color,       opacity = 0.4,       label = lapply(labels, htmltools::HTML)     ) %>%     leaflet::addLegend(       position = \"topright\",       colors = c(\"red\", legend_color),       labels = c(\"SVM Modellgrenze\", legend_label),       title = \"Legende\"     ) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"initialise-objects","dir":"Articles","previous_headings":"","what":"Initialise objects","title":"Wasserportal","text":"","code":"swl_data_stats_export <- NULL gwl_data_stats_export <- NULL gwq_chloride_data_stats_export <- NULL # Load SVM boundaries and transform coordinate reference system (CRS) svm <- \"extdata/gis/shapefiles/svm_south.shp\" %>%   system.file(package = \"kwb.geosalz\") %>%   sf::st_read() %>%   sf::st_transform(crs = 4326) #> Reading layer `svm_south' from data source  #>   `D:\\a\\_temp\\Library\\kwb.geosalz\\extdata\\gis\\shapefiles\\svm_south.shp'  #>   using driver `ESRI Shapefile' #> Simple feature collection with 1 feature and 2 fields #> Geometry type: POLYGON #> Dimension:     XY #> Bounding box:  xmin: 13.49052 ymin: 52.3341 xmax: 13.75224 ymax: 52.45715 #> Geodetic CRS:  WGS 84  # Print information on the CRS sf::st_crs(svm) #> Coordinate Reference System: #>   User input: EPSG:4326  #>   wkt: #> GEOGCRS[\"WGS 84\", #>     ENSEMBLE[\"World Geodetic System 1984 ensemble\", #>         MEMBER[\"World Geodetic System 1984 (Transit)\"], #>         MEMBER[\"World Geodetic System 1984 (G730)\"], #>         MEMBER[\"World Geodetic System 1984 (G873)\"], #>         MEMBER[\"World Geodetic System 1984 (G1150)\"], #>         MEMBER[\"World Geodetic System 1984 (G1674)\"], #>         MEMBER[\"World Geodetic System 1984 (G1762)\"], #>         MEMBER[\"World Geodetic System 1984 (G2139)\"], #>         ELLIPSOID[\"WGS 84\",6378137,298.257223563, #>             LENGTHUNIT[\"metre\",1]], #>         ENSEMBLEACCURACY[2.0]], #>     PRIMEM[\"Greenwich\",0, #>         ANGLEUNIT[\"degree\",0.0174532925199433]], #>     CS[ellipsoidal,2], #>         AXIS[\"geodetic latitude (Lat)\",north, #>             ORDER[1], #>             ANGLEUNIT[\"degree\",0.0174532925199433]], #>         AXIS[\"geodetic longitude (Lon)\",east, #>             ORDER[2], #>             ANGLEUNIT[\"degree\",0.0174532925199433]], #>     USAGE[ #>         SCOPE[\"Horizontal component of 3D system.\"], #>         AREA[\"World.\"], #>         BBOX[-90,-180,90,180]], #>     ID[\"EPSG\",4326]]  # Function to filter for study area filter_for_study_area <- function(x) {   sf::st_filter(x, y = svm$geometry[svm$name == \"Friedrichshagen\"]) }  # Get information on \"Wasserportal\"-stations  stations <- wasserportal::get_stations() #> Importing 9 station overviews from Wasserportal Berlin ... ok. (20.05 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"download-and-process-surface-water-level-data","dir":"Articles","previous_headings":"","what":"Download and Process Surface Water Level Data","title":"Wasserportal","text":"","code":"try({      swl_master <- wasserportal::get_wasserportal_masters_data(     master_urls = stations$overview_list$surface_water.water_level %>%       dplyr::filter(.data$Betreiber == \"Land Berlin\") %>%       dplyr::pull(.data$stammdaten_link)   )       swl_master_sf <- swl_master %>%     kwb.geosalz::convert_to_sf() %>%     filter_for_study_area() %>%     add_waterbody_label()      swl_master <- swl_master %>%      dplyr::filter(.data$Nummer %in% swl_master_sf$Nummer)       write_csv(swl_master, \"swl_master.csv\")      swl_data_list <- lapply(     X = stats::setNames(nm = swl_master$Nummer),     FUN = wasserportal::read_wasserportal,     from_date = \"1900-01-01\",     variables = \"ows\",      type = \"daily\",     stations_crosstable = stations$crosstable   )      column_level_zero <- \"Pegelnullpunkt_m_NHN\"   key_columns <- c(\"Nummer\", column_level_zero)    swl_data <- stats::setNames(nm = names(swl_data_list)) %>%     lapply(function(name) swl_data_list[[name]][[1]]) %>%      dplyr::bind_rows(.id = \"Messstellennummer\") %>%      dplyr::mutate(Datum = as.Date(.data$Datum, format = \"%d.%m.%Y\")) %>%      dplyr::filter(.data$Tagesmittelwert != -777) %>%      dplyr::rename(       Tagesmittelwert_cm_ueber_Pegelnullpunkt = \"Tagesmittelwert\"     ) %>%      dplyr::left_join(       swl_master[, ..key_columns],       by = c(Messstellennummer = \"Nummer\")     ) %>%       dplyr::mutate(       Tagesmittelwert_Pegelstand_mNN = as.numeric(.data[[column_level_zero]]) +         .data$Tagesmittelwert_cm_ueber_Pegelnullpunkt / 100     ) %>%      kwb.utils::removeColumns(column_level_zero)      write_csv(swl_data, \"swl_data.csv\")      swl_data_stats <- get_data_stats(swl_data)      swl_data_stats_export <- swl_master_sf %>%      remove_na_and_geometry() %>%     dplyr::left_join(       difftime_to_numeric(swl_data_stats),       by = c(\"Nummer\" = \"Messstellennummer\")     )      write_csv(swl_data_stats_export, \"swl_data_stats.csv\") }) #> Importing 62 station metadata from Wasserportal Berlin ... ok. (1.40 mins)  #> Writing swl_master to swl_master.csv ... ok. (0.15 secs)  #> Reading 'NA' for station 5827103 (station_5827103) ... ok. (1.25 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Reading 'NA' for station 5827101 (station_5827101) ... ok. (0.93 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Reading 'NA' for station 5826702 (station_5826702) ... ok. (0.89 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Reading 'NA' for station 5826701 (station_5826701) ... ok. (0.85 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Reading 'NA' for station 5862811 (station_5862811) ... ok. (0.77 secs) #> Warning in warning_not_implemented(\"merge_raw_results_daily()\"): #> merge_raw_results_daily() is not yet implemented. Returning raw data #> Writing swl_data to swl_data.csv ... ok. (0.21 secs)  #> Writing swl_data_stats_export to swl_data_stats.csv ... ok. (0.01 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"download-and-process-groundwater-level-data","dir":"Articles","previous_headings":"","what":"Download and Process Groundwater Level Data","title":"Wasserportal","text":"","code":"try({    gwl_master <- jsonlite::fromJSON(     \"https://kwb-r.github.io/wasserportal/stations_gwl_master.json\"   )      gwl_master_sf <- gwl_master %>%     kwb.geosalz::convert_to_sf() %>%     filter_for_study_area()      gwl_master <- gwl_master %>%      dplyr::filter(.data$Nummer %in% gwl_master_sf$Nummer)      write_csv(gwl_master, \"gwl_master.csv\")      gwl_data <- lapply(     X = gwl_master$Nummer,     FUN = wasserportal::read_wasserportal_raw_gw,      stype = \"gwl\"   ) %>%      data.table::rbindlist()      write_csv(gwl_data, \"gwl_data.csv\")      gwl_data_stats <- get_data_stats(gwl_data)       gwl_data_stats_export <- gwl_master_sf %>%      remove_na_and_geometry() %>%     dplyr::left_join(       difftime_to_numeric(gwl_data_stats),       by = c(\"Nummer\" = \"Messstellennummer\")     )      write_csv(gwl_data_stats_export, \"gwl_data_stats.csv\")      gwl_master_stats <- gwl_master %>%     dplyr::left_join(gwl_data_stats, by = c(Nummer = \"Messstellennummer\")) %>%     add_interval_label()    }) #> Writing gwl_master to gwl_master.csv ... ok. (0.02 secs)  #> Writing gwl_data to gwl_data.csv ... ok. (0.63 secs)  #> Writing gwl_data_stats_export to gwl_data_stats.csv ... ok. (0.02 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"download-and-process-groundwater-quality-data","dir":"Articles","previous_headings":"","what":"Download and Process Groundwater Quality Data","title":"Wasserportal","text":"","code":"try({      gwq_master <- jsonlite::fromJSON(     \"https://kwb-r.github.io/wasserportal/stations_gwq_master.json\"   )    gwq_master_sf <- gwq_master %>%     kwb.geosalz::convert_to_sf() %>%     filter_for_study_area()      gwq_master <- gwq_master %>%      dplyr::filter(.data$Nummer %in% gwq_master_sf$Nummer)      write_csv(gwq_master, \"gwq_master.csv\")      gw_master <- gwl_master %>%       dplyr::full_join(gwq_master) %>%      dplyr::mutate(Nummer = as.integer(.data$Nummer)) %>%      dplyr::arrange(.data$Nummer)      write_csv(gw_master, \"gw_master.csv\")      gwq_data <- jsonlite::fromJSON(     \"https://kwb-r.github.io/wasserportal/stations_gwq_data.json\"   ) %>%     dplyr::filter(.data$Messstellennummer %in% gwq_master$Nummer)      write_csv(gwq_data, \"gwq_data.csv\")      gwq_chloride_data <- gwq_data %>%     dplyr::filter(.data$Parameter == \"Chlorid\")      write_csv(gwq_chloride_data, \"gwq_chloride_data.csv\")      gwq_chloride_master <- gwq_master %>%      dplyr::filter(.data$Nummer %in% gwq_chloride_data$Messstellennummer)      write_csv(gwq_chloride_master, \"gwq_chloride_master.csv\")      gwq_chloride_data_stats <- gwq_chloride_data %>%     get_data_stats()      gwq_chloride_data_stats_export <- gwq_chloride_master %>%     kwb.geosalz::convert_to_sf() %>%      remove_na_and_geometry() %>%     dplyr::mutate(Nummer = as.integer(.data$Nummer)) %>%      dplyr::left_join(       difftime_to_numeric(gwq_chloride_data_stats),       by = c(\"Nummer\" = \"Messstellennummer\")     )      write_csv(gwq_chloride_data_stats_export, \"gwq_chloride_data_stats.csv\")      gwq_chloride_master_stats <- gwq_chloride_master %>%     dplyr::mutate(Nummer = as.integer(.data$Nummer)) %>%     dplyr::left_join(       gwq_chloride_data_stats,        by = c(\"Nummer\" = \"Messstellennummer\")     ) %>%     add_interval_label()      write_csv(gwq_chloride_master_stats, \"gwq_chloride_master_stats.csv\") }) #> Writing gwq_master to gwq_master.csv ... ok. (0.01 secs) #> Joining with `by = join_by(Nummer, Bezirk, Betreiber, Auspraegung, #> Grundwasserleiter, Gelaendeoberkante_GOK_m_ue_NHN, Rohroberkante_m_ue_NHN, #> Filteroberkante_m_u_GOK, Filterunterkante_m_u_GOK, Rechtswert_UTM_33_N, #> Hochwert_UTM_33_N)` #> Writing gw_master to gw_master.csv ... ok. (0.02 secs)  #> Writing gwq_data to gwq_data.csv ... ok. (0.15 secs)  #> Writing gwq_chloride_data to gwq_chloride_data.csv ... ok. (0.09 secs)  #> Writing gwq_chloride_master to gwq_chloride_master.csv ... ok. (0.01 secs)  #> Writing gwq_chloride_data_stats_export to gwq_chloride_data_stats.csv ... ok. (0.01 secs)  #> Writing gwq_chloride_master_stats to gwq_chloride_master_stats.csv ... ok. (0.02 secs)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"create-maps","dir":"Articles","previous_headings":"","what":"Create Maps","title":"Wasserportal","text":"","code":"basemap <- svm %>%   leaflet::leaflet() %>%   leaflet::addTiles() %>%   leaflet::addProviderTiles(leaflet::providers$CartoDB.Positron) %>%   leaflet::addPolygons(color = \"red\", fill = FALSE)  swl_map <- try(create_map(   basemap,   data = swl_master_sf,    labels = swl_master_sf$label,   legend_label = \"OW-Stand (Wasserportal)\",   legend_color = \"darkblue\",   circle_color = \"blue\" ))  gwl_map <- try(create_map(   basemap,   data = kwb.geosalz::convert_to_sf(gwl_master_stats),   labels = gwl_master_stats$label,   legend_label = \"GW-Stand (Wasserportal)\",   legend_color = \"blue\",   circle_color = \"blue\" ))  gwq_map <- try(create_map(   basemap,   data = kwb.geosalz::convert_to_sf(gwq_chloride_master_stats),   labels = gwq_chloride_master_stats$label,   legend_label = \"GW-G\\u00FCte (Wasserportal)\",   legend_color = \"orange\",   circle_color = \"orange\" ))  print(swl_map) print(gwl_map) print(gwq_map)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"save-maps","dir":"Articles","previous_headings":"","what":"Save Maps","title":"Wasserportal","text":"Save maps full page view: Links full-page view maps: https://kwb-r.github.io/kwb.geosalz/map_swl.html https://kwb-r.github.io/kwb.geosalz/map_gwl.html https://kwb-r.github.io/kwb.geosalz/map_gwq.html","code":"htmlwidgets::saveWidget(   swl_map,    \"./map_swl.html\",    title = \"SW level\" ) htmlwidgets::saveWidget(   gwl_map,    \"./map_gwl.html\",    title = \"GW level\" ) htmlwidgets::saveWidget(   gwq_map,    \"./map_gwq.html\",    title = \"GW quality (Chloride)\" )"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"surface-water","dir":"Articles","previous_headings":"Datasets","what":"Surface Water","title":"Wasserportal","text":"https://kwb-r.github.io/kwb.geosalz/swl_master.csv https://kwb-r.github.io/kwb.geosalz/swl_data.csv https://kwb-r.github.io/kwb.geosalz/swl_data_stats.csv","code":""},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"master-data","dir":"Articles","previous_headings":"Datasets > Groundwater","what":"Master Data","title":"Wasserportal","text":"Groundwater Levels Groundwater Levels https://kwb-r.github.io/kwb.geosalz/gw_master.csv","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"groundwater-levels","dir":"Articles","previous_headings":"Datasets > Groundwater","what":"Groundwater Levels","title":"Wasserportal","text":"https://kwb-r.github.io/kwb.geosalz/gwl_master.csv https://kwb-r.github.io/kwb.geosalz/gwl_data.csv https://kwb-r.github.io/kwb.geosalz/gwl_data_stats.csv","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"groundwater-quality","dir":"Articles","previous_headings":"Datasets > Groundwater","what":"Groundwater Quality","title":"Wasserportal","text":"https://kwb-r.github.io/kwb.geosalz/gwq_master.csv https://kwb-r.github.io/kwb.geosalz/gwq_data.csv https://kwb-r.github.io/kwb.geosalz/gwq_chloride_master.csv https://kwb-r.github.io/kwb.geosalz/gwq_chloride_master_stats.csv https://kwb-r.github.io/kwb.geosalz/gwq_chloride_data.csv","code":""},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"sw-levels","dir":"Articles","previous_headings":"Datasets > Tables","what":"SW Levels","title":"Wasserportal","text":"","code":"DT::datatable(swl_data_stats_export)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"gw-levels","dir":"Articles","previous_headings":"Datasets > Tables","what":"GW Levels","title":"Wasserportal","text":"stats groundwater levels","code":"DT::datatable(gwl_data_stats_export)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/wasserportal.html","id":"gw-quality","dir":"Articles","previous_headings":"Datasets > Tables","what":"GW Quality","title":"Wasserportal","text":"stats Chloride","code":"DT::datatable(gwq_chloride_data_stats_export)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"install-r-packages","dir":"Articles","previous_headings":"","what":"1 Install R packages","title":"Workflow","text":"","code":"if (! require(\"remotes\")) {   install.packages(\"remotes\", repos = \"https://cloud.r-project.org\") }  remotes::install_github(\"kwb-r/kwb.geosalz\", dependencies = TRUE)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"define-paths","dir":"Articles","previous_headings":"2 Setup the project","what":"2.1 Define paths","title":"Workflow","text":"","code":"# Define paths and resolve placeholders paths <- list(   servername = Sys.getenv(\"servername\"),   root_server = \"//<servername>/processing\",   project = \"geosalz\",   task = \"labor\",   processing = \"<root>/<project>/<task>\",   input_dir = \"<processing>/precleaned-data/v0.2\",   input_dir_meta = \"<input_dir>/META\",   export_dir = \"<processing>/precleaned-data/v0.3\",   export_dir_meta = \"<export_dir>/META\",   cleaned_data_dir = \"<processing>/cleaned-data\",   figures_dir = \"<processing>/figures\",   foerdermengen = \"<export_dir>/2018-04-27 Rohwasser Bericht - Galeriefördermengen.xlsx\",   parameters = \"<export_dir_meta>/2018-06-01 Lab Parameter.xlsx\",   lookup_para = \"<export_dir_meta>/lookup_para.csv\",   sites = \"<export_dir_meta>/Info-Altdaten.xlsx\" )  paths <- kwb.utils::resolve(paths, root = \"root_server\") #paths <- kwb.utils::resolve(paths, root = \"C:/projects\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"check-input-directory","dir":"Articles","previous_headings":"2 Setup the project","what":"2.2 Check input directory","title":"Workflow","text":"Check input directory selected exists:","code":"# Check if input directory exists input_dir <- kwb.utils::safePath(kwb.utils::selectElements(paths, \"input_dir\"))"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"check-export-directory","dir":"Articles","previous_headings":"2 Setup the project","what":"2.3 Check export directory","title":"Workflow","text":"Check case export directory available create :","code":"# Check if exists and if not create it export_dir <- paths %>%   kwb.utils::selectElements(\"export_dir\") %>%   kwb.utils::createDirectory() %>%   kwb.utils::safePath() ## Convert xls to xlsx files kwb.geosalz::convert_xls_as_xlsx(input_dir, export_dir)  ## Copy xlsx files  kwb.geosalz::copy_xlsx_files(input_dir, export_dir, overwrite = TRUE)"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"categorise-the-excel-files","dir":"Articles","previous_headings":"3 Data import","what":"3.1 Categorise the Excel Files","title":"Workflow","text":"Select files consist : Header 1 (meta): manually added metadata extra sheet Header 1: single header tables Header 2: two-row header tables Header 4: four row header tables","code":"# Get all xlsx files to be imported files <- dir(export_dir, \".xlsx\", recursive = TRUE, full.names = TRUE)  files_meta <- c(   \"Meta Info\",   \"Header ident\",   \"Parameter ident\",   \"Parameter\",   \"Info-Altdaten\",   \"Brandenburg_Parameter_BWB_Stolpe\",   \"Kopie von Brandenburg_Parameter_BWB_Stolpe\",   \"2005-10BeschilderungProbenahmestellenGWWIII\",   \"Bezeichnungen der Reinwasserstellen\",   \"ReinwasserNomenklatur\",   \"Info zu Altdaten 1970-1998\",   \"2018-06-01 Lab Parameter\" )  files_header1_meta <- c(   \"FRI_Br_GAL_C_Einzelparameter\",   \"FRI_Roh_Rein_NH4+NO3_2001-2003\",   \"MTBE_2003-11_2004\",   \"Reinwasser_2003_Fe_Mn\", ## unclean   \"VC_CN_in Brunnen bis Aug_2005 \", ## unclean   \"Wuhlheide_Beelitzhof_Teildaten\" ## unclean )  files_header1 <- c(   \"2018-04-11 Chlorid in Brunnen - Übersicht\",   \"2018-04-27 LIMS Reiw & Rohw Sammel \",   \"2018-04-27 Rohwasser Bericht - Galeriefördermengen\" )  files_header4 <- c(   \"STO Rohw_1999-6_2004\",   \"Wuhlheide_1999-2003_Okt - Neu\",   \"KAU_1999-Okt2003\" )  files_archive <- \"Siebert\"  files_to_ignore <- c(   files_meta, files_header1, files_header1_meta,   files_header4, files_archive )  in_files_to_ignore <- kwb.utils::removeExtension(basename(files)) %in%    files_to_ignore  filepaths_header2 <- files[!in_files_to_ignore]"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"header-1-with-metadata","dir":"Articles","previous_headings":"3 Data import","what":"3.2 Header 1 (with metadata)","title":"Workflow","text":"","code":"cond1 <- kwb.utils::removeExtension(basename(files)) %in% files_header1_meta  filepaths_header1_meta <- files[cond1]  labor_list_1meta <- kwb.geosalz::import_labor(   filepaths_header1_meta ,   export_dir,   func = kwb.geosalz::read_bwb_header1_meta )  has_errors <- sapply(labor_list_1meta, kwb.utils::isTryError) #has_errors  labor_df_1meta <- data.table::rbindlist(   l = labor_list_1meta[!has_errors],   fill = TRUE ) library(dplyr)  cond2 <- labor_df_1meta$OriginalName %in% c(   \"el. Leitfähigkeit (25 °C)\", \"Chlorid\", \"Sulfat\" )  labor_df_1meta[cond2 & !is.na(labor_df_1meta$DataValue), ] %>%   dplyr::group_by_(\"OriginalName\", \"Meßstelle\") %>%   dplyr::summarise(n = n())"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"header-2","dir":"Articles","previous_headings":"3 Data import","what":"3.3 Header 2","title":"Workflow","text":"","code":"labor_header2_list <- kwb.geosalz::import_labor(   files = filepaths_header2,   export_dir = export_dir,   func = kwb.geosalz::read_bwb_header2 )  has_errors <- sapply(labor_header2_list, kwb.utils::isTryError) #has_errors  labor_header2_df <- data.table::rbindlist(   l = labor_header2_list[!has_errors],   fill = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"header-4","dir":"Articles","previous_headings":"3 Data import","what":"3.4 Header 4","title":"Workflow","text":"","code":"cond3 <- kwb.utils::removeExtension(basename(files)) %in% files_header4  filepaths_header4 <- files[cond3]  labor_header4_list <- kwb.geosalz::import_labor(   files = filepaths_header4,   export_dir = export_dir,   func = kwb.geosalz::read_bwb_header4 )  has_errors <- sapply(labor_header4_list, inherits, \"try-error\") has_errors  labor_header4_df <- data.table::rbindlist(   l = labor_header4_list[!has_errors],   fill = TRUE )"},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"merging-header2-and-header4","dir":"Articles","previous_headings":"4 Data cleaning","what":"4.1 Merging Header2 and Header4","title":"Workflow","text":"","code":"labor_all <- data.table::rbindlist(   l = list(     x1 = labor_header2_df,     x2 = labor_header4_df   ),   fill = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"filtering","dir":"Articles","previous_headings":"4 Data cleaning","what":"4.2 Filtering","title":"Workflow","text":"","code":"labor_all <- labor_all %>%   dplyr::filter(!is.na(.data$DataValue)) %>%   dplyr::mutate(     Date = dplyr::if_else(       condition = !is.na(.data$Datum),       true = .data$Datum,       false = .data$Probenahme     )   ) %>%   ### Some \"Datum\" rentries are missing in;   ### K-TL_LSW-Altdaten-Werke Teil 1\\Werke Teil 1\\Kaulsdorf\\KAU_1999-Okt2003.xlsx   ### sheets: 66 KAU Rein 1999-2000, 65 KAU NordSüd 1999-2000   dplyr::filter(!is.na(.data$Date)) %>%   dplyr::filter(!is.na(.data$VariableName_org))  nrow(labor_all)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"reducing-dataset-by-adding-metadata","dir":"Articles","previous_headings":"4 Data cleaning","what":"4.3 Reducing dataset by adding metadata","title":"Workflow","text":"","code":"labordaten_ww <- kwb.geosalz::add_para_metadata(   df = labor_all,   lookup_para_path = paths$lookup_para,   parameters_path = paths$parameters )  labordaten_ww <- kwb.geosalz::add_site_metadata(   df = labordaten_ww,   site_path = paths$sites ) %>%   dplyr::mutate(     year = as.numeric(format(.data$Date,format = '%Y')),     DataValue = as.numeric(.data$DataValue)   )  nrow(labordaten_ww)"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"exporting-cleaned-dataset","dir":"Articles","previous_headings":"4 Data cleaning","what":"5. Exporting cleaned dataset","title":"Workflow","text":"","code":"fs::dir_create(paths$cleaned_data_dir, recursive = TRUE) print(sprintf(\"Export cleaned data to: %s\", paths$cleaned_data_dir)) foerdermengen_ww <- kwb.geosalz::get_foerdermengen(paths$foerdermengen)  save(   labordaten_ww,    foerdermengen_ww,   file = file.path(paths$cleaned_data_dir, \"cleaned-data.Rds\") )  write.csv2(   labordaten_ww,   file.path(paths$cleaned_data_dir, \"labordaten_ww.csv\"),   row.names = FALSE )  write.csv2(   foerdermengen_ww,   file = file.path(paths$cleaned_data_dir, \"foerdermengen_ww.csv\"),   row.names = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"visualisation","dir":"Articles","previous_headings":"4 Data cleaning","what":"6. Visualisation","title":"Workflow","text":"","code":"library(ggplot2)  fs::dir_create(paths$figures_dir, recursive = TRUE) print(sprintf(\"Export figures/plots to: %s\", paths$figures_dir))  para_info <- kwb.geosalz::get_parameters_meta(paths$parameters) water_types <- c(\"Reinwasser\", \"Rohwasser\")  plot_to_pdf <- function(pdf_file, labordaten_ww, para_info, water_type, paths) {   pdf(file = pdf_file, width = 14, height = 9)   on.exit(dev.off())      for (sel_para_id in unique(labordaten_ww$para_id)) {          my_selection <- sprintf(       \"%s (%s)\",       para_info$para_kurzname[para_info$para_id == sel_para_id],       water_type     )          tmp <- labordaten_ww %>%       dplyr::filter(prufgegenstand == water_type) %>%       dplyr::filter(para_id == sel_para_id) %>%       dplyr::group_by(.data$para_kurzname, .data$werk, .data$year) %>%       dplyr::summarise(         mean_DataValue = mean(as.numeric(.data$DataValue), na.rm = TRUE)       ) %>%       dplyr::filter(!is.na(.data$werk)) %>%       dplyr::left_join(         y = kwb.geosalz::get_foerdermengen(paths$foerdermengen),         by = c(\"werk\", \"year\")       )          if (nrow(tmp) > 0) {              cat(sprintf(\"for %s\\n\", my_selection))              g <- ggplot2::ggplot(tmp, mapping = ggplot2::aes_string(         x = \"year\",         y = \"mean_DataValue\",         col = \"werk\"       )) +         ggplot2::geom_point() +         ggplot2::geom_line() +         ggplot2::theme_bw() +         ggplot2::ggtitle(label = my_selection) +         ggplot2::labs(x = \"\", y = \"Jahresmittelwert\")              print(g)            } else {              cat(sprintf(\"not data availabe for %s\\n\", my_selection))     }   } }   for (water_type in water_types) {      pdf_file <- file.path(     paths$figures_dir,     sprintf(       \"Zeitreihen_Jahresmittelwerte_Werke_%s.pdf\",       water_type     )   )      cat(sprintf(\"Creating plot:\\n%s\\n\", pdf_file))   plot_to_pdf(pdf_file, labordaten_ww, para_info, water_type, paths) }"},{"path":[]},{"path":[]},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"packages","dir":"Articles","previous_headings":"7 Session Info","what":"Packages","title":"Workflow","text":"","code":"#>  package     * version date (UTC) lib source #>  bslib         0.5.1   2023-08-11 [1] RSPM (R 4.3.0) #>  cachem        1.0.8   2023-05-01 [1] RSPM (R 4.3.0) #>  cli           3.6.1   2023-03-23 [1] RSPM (R 4.3.0) #>  desc          1.4.2   2022-09-08 [1] RSPM (R 4.3.0) #>  digest        0.6.33  2023-07-07 [1] RSPM (R 4.3.0) #>  dplyr       * 1.1.3   2023-09-03 [1] RSPM (R 4.3.0) #>  evaluate      0.22    2023-09-29 [1] CRAN (R 4.3.1) #>  fansi         1.0.4   2023-01-22 [1] RSPM (R 4.3.0) #>  fastmap       1.1.1   2023-02-24 [1] RSPM (R 4.3.0) #>  fs            1.6.3   2023-07-20 [1] RSPM (R 4.3.0) #>  generics      0.1.3   2022-07-05 [1] RSPM (R 4.3.0) #>  glue          1.6.2   2022-02-24 [1] RSPM (R 4.3.0) #>  htmltools     0.5.6   2023-08-10 [1] RSPM (R 4.3.0) #>  jquerylib     0.1.4   2021-04-26 [1] RSPM (R 4.3.0) #>  jsonlite      1.8.7   2023-06-29 [1] RSPM (R 4.3.0) #>  knitr         1.44    2023-09-11 [1] RSPM (R 4.3.0) #>  kwb.utils     0.14.1  2023-09-23 [1] Github (kwb-r/kwb.utils@0930eae) #>  lifecycle     1.0.3   2022-10-07 [1] RSPM (R 4.3.0) #>  magrittr      2.0.3   2022-03-30 [1] RSPM (R 4.3.0) #>  memoise       2.0.1   2021-11-26 [1] RSPM (R 4.3.0) #>  pillar        1.9.0   2023-03-22 [1] RSPM (R 4.3.0) #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM (R 4.3.0) #>  pkgdown       2.0.7   2022-12-14 [1] RSPM (R 4.3.0) #>  purrr         1.0.2   2023-08-10 [1] RSPM (R 4.3.0) #>  R6            2.5.1   2021-08-19 [1] RSPM (R 4.3.0) #>  ragg          1.2.5   2023-01-12 [1] RSPM (R 4.3.0) #>  rlang         1.1.1   2023-04-28 [1] RSPM (R 4.3.0) #>  rmarkdown     2.25    2023-09-18 [1] RSPM (R 4.3.0) #>  rprojroot     2.0.3   2022-04-02 [1] RSPM (R 4.3.0) #>  sass          0.4.7   2023-07-15 [1] RSPM (R 4.3.0) #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM (R 4.3.0) #>  stringi       1.7.12  2023-01-11 [1] RSPM (R 4.3.0) #>  stringr       1.5.0   2022-12-02 [1] RSPM (R 4.3.0) #>  systemfonts   1.0.4   2022-02-11 [1] RSPM (R 4.3.0) #>  textshaping   0.3.6   2021-10-13 [1] RSPM (R 4.3.0) #>  tibble        3.2.1   2023-03-20 [1] RSPM (R 4.3.0) #>  tidyr       * 1.3.0   2023-01-24 [1] RSPM (R 4.3.0) #>  tidyselect    1.2.0   2022-10-10 [1] RSPM (R 4.3.0) #>  utf8          1.2.3   2023-01-31 [1] RSPM (R 4.3.0) #>  vctrs         0.6.3   2023-06-14 [1] RSPM (R 4.3.0) #>  xfun          0.40    2023-08-09 [1] RSPM (R 4.3.0) #>  yaml          2.3.7   2023-01-23 [1] RSPM (R 4.3.0) #>  #>  [1] D:/a/_temp/Library #>  [2] C:/R/library"},{"path":"https://kwb-r.github.io/kwb.geosalz/articles/workflow.html","id":"pandoc","dir":"Articles","previous_headings":"7 Session Info > Packages","what":"Pandoc","title":"Workflow","text":"","code":"#>                                           pandoc_directory pandoc_version #> 1 C:/HOSTED~1/windows/pandoc/219~1.2/x64/PANDOC~1.2/pandoc         2.19.2"},{"path":"https://kwb-r.github.io/kwb.geosalz/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Michael Rustler. Author, maintainer. Hauke Sonnenberg. Contributor. . Funder. . Copyright holder.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Rustler M (2023). kwb.geosalz: R Package Documenting Workflow Used Project \"geosalz\". R package version 0.6.0, https://github.com/KWB-R/kwb.geosalz.","code":"@Manual{,   title = {kwb.geosalz: R Package for Documenting Workflow Used in Project \"geosalz\"},   author = {Michael Rustler},   year = {2023},   note = {R package version 0.6.0},   url = {https://github.com/KWB-R/kwb.geosalz}, }"},{"path":"https://kwb-r.github.io/kwb.geosalz/index.html","id":"installation","dir":"","previous_headings":"","what":"Installation","title":"R Package for Documenting Workflow Used in Project ","text":"installing latest release R package run following code :","code":"# Enable repository from kwb-r options(repos = c(   kwbr = 'https://kwb-r.r-universe.dev',   CRAN = 'https://cloud.r-project.org'))    # Download and install kwb.geosalz in R install.packages('kwb.geosalz')  # Browse the kwb.geosalz manual pages help(package = 'kwb.geosalz')"},{"path":"https://kwb-r.github.io/kwb.geosalz/index.html","id":"usage","dir":"","previous_headings":"","what":"Usage","title":"R Package for Documenting Workflow Used in Project ","text":"Checkout Workflow article use R package.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/LICENSE.html","id":null,"dir":"","previous_headings":"","what":"MIT License","title":"MIT License","text":"Copyright (c) 2018-2022 Kompetenzzentrum Wasser Berlin gGmbH (KWB) Permission hereby granted, free charge, person obtaining copy software associated documentation files (“Software”), deal Software without restriction, including without limitation rights use, copy, modify, merge, publish, distribute, sublicense, /sell copies Software, permit persons Software furnished , subject following conditions: copyright notice permission notice shall included copies substantial portions Software. SOFTWARE PROVIDED “”, WITHOUT WARRANTY KIND, EXPRESS IMPLIED, INCLUDING LIMITED WARRANTIES MERCHANTABILITY, FITNESS PARTICULAR PURPOSE NONINFRINGEMENT. EVENT SHALL AUTHORS COPYRIGHT HOLDERS LIABLE CLAIM, DAMAGES LIABILITY, WHETHER ACTION CONTRACT, TORT OTHERWISE, ARISING , CONNECTION SOFTWARE USE DEALINGS SOFTWARE.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_para_metadata.html","id":null,"dir":"Reference","previous_headings":"","what":"add_para_metadata — add_para_metadata","title":"add_para_metadata — add_para_metadata","text":"add_para_metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_para_metadata.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"add_para_metadata — add_para_metadata","text":"","code":"add_para_metadata(df, lookup_para_path, parameters_path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_para_metadata.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"add_para_metadata — add_para_metadata","text":"df df lookup_para_path lookup_para_path parameters_path parameters_path","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_para_metadata.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"add_para_metadata — add_para_metadata","text":"return \"df\" added parameter metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_site_metadata.html","id":null,"dir":"Reference","previous_headings":"","what":"add_site_metadata — add_site_metadata","title":"add_site_metadata — add_site_metadata","text":"add_site_metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_site_metadata.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"add_site_metadata — add_site_metadata","text":"","code":"add_site_metadata(df, site_path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_site_metadata.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"add_site_metadata — add_site_metadata","text":"df df site_path site_path","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/add_site_metadata.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"add_site_metadata — add_site_metadata","text":"data frame added site metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/all_defined.html","id":null,"dir":"Reference","previous_headings":"","what":"Check if all strings are not empty — all_defined","title":"Check if all strings are not empty — all_defined","text":"Check strings empty","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/all_defined.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check if all strings are not empty — all_defined","text":"","code":"all_defined(x)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/all_defined.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check if all strings are not empty — all_defined","text":"x vector character","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/all_defined.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check if all strings are not empty — all_defined","text":"TRUE FALSE","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_green_bold_0.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: cat_green_bold_0 — cat_green_bold_0","title":"Helper function: cat_green_bold_0 — cat_green_bold_0","text":"Helper function: cat_green_bold_0","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_green_bold_0.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: cat_green_bold_0 — cat_green_bold_0","text":"","code":"cat_green_bold_0(...)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_green_bold_0.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: cat_green_bold_0 — cat_green_bold_0","text":"... text passed crayon::green()","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_green_bold_0.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: cat_green_bold_0 — cat_green_bold_0","text":"formatted text output","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_red_bold_0.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: cat_red_bold_0 — cat_red_bold_0","title":"Helper function: cat_red_bold_0 — cat_red_bold_0","text":"Helper function: cat_red_bold_0","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_red_bold_0.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: cat_red_bold_0 — cat_red_bold_0","text":"","code":"cat_red_bold_0(...)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_red_bold_0.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: cat_red_bold_0 — cat_red_bold_0","text":"... text passed crayon::red","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/cat_red_bold_0.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: cat_red_bold_0 — cat_red_bold_0","text":"formatted text output","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","title":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","text":"Helper function: column_pattern_gather_ignore","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","text":"","code":"column_pattern_gather_ignore(   fields = c(\"Datum\", \"KN\", \"[iI]nterne Nr.\", \"Name der\", \"Ort\", \"Probe\", \"Prü\",     \"Untersuchung\", \"Labor\", \"Jahr\", \"Galer\", \"Detail\", \"Meß\", \"Zeit\", \"Bezei\", \"Monat\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","text":"fields column names ignored gathering (default: c( \"Datum\", \"KN\", \"[iI]nterne Nr.\", \"Name der\", \"Ort\", \"Probe\", \"Pr\\u00FC\", \"Untersuchung\", \"Labor\", \"Jahr\", \"Galer\", \"Detail\", \"\\u00DF\", \"Zeit\", \"Bezei\", \"Monat\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: column_pattern_gather_ignore — column_pattern_gather_ignore","text":"vector ignored columns gathering","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore_clean.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","title":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","text":"Helper function: column_pattern_gather_ignore_clean","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore_clean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","text":"","code":"column_pattern_gather_ignore_clean(   fields = c(\"LabSampleCode\", \"Date\", \"Time\", \"Waterbody\", \"ExSiteCode\", \"Site\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore_clean.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","text":"fields column names ignored gathering (default: c(\"LabSampleCode\", \"Date\", \"Time\", \"Waterbody\", \"ExSiteCode\", Site\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/column_pattern_gather_ignore_clean.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: column_pattern_gather_ignore_clean — column_pattern_gather_ignore_clean","text":"vector ignored columns gathering","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_phreeqc_input_to_wide.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert PhreeqC input to ","title":"Convert PhreeqC input to ","text":"Convert PhreeqC input \"wide\" format","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_phreeqc_input_to_wide.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert PhreeqC input to ","text":"","code":"convert_phreeqc_input_to_wide(phreeqc_input)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_phreeqc_input_to_wide.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert PhreeqC input to ","text":"phreeqc_input PhreeqC input retrieved get_phreeqc_data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_phreeqc_input_to_wide.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert PhreeqC input to ","text":"PhreeqC input \"wide\" format","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert to SF — convert_to_sf","title":"Convert to SF — convert_to_sf","text":"Convert SF","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert to SF — convert_to_sf","text":"","code":"convert_to_sf(   df,   crs_source = 25833,   crs_target = 4326,   col_coord_x = \"Rechtswert_UTM_33_N\",   col_cood_y = \"Hochwert_UTM_33_N\" )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert to SF — convert_to_sf","text":"df data frame tibble spatial data crs_source origingal CRS (default: 25833) crs_target target CRS (default: 4326) col_coord_x column name latitude (default: \"Rechtswert_UTM_33_N\") col_cood_y column name longitude (default: \"Hochwert_UTM_33_N\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert to SF — convert_to_sf","text":"data frame tibble converted sf","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_to_sf.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert to SF — convert_to_sf","text":"","code":"gwl_master <- jsonlite::fromJSON(\"https://kwb-r.github.io/wasserportal/stations_gwl_master.json\") convert_to_sf(gwl_master) #> Simple feature collection with 887 features and 9 fields #> Geometry type: POINT #> Dimension:     XY #> Bounding box:  xmin: 13.09291 ymin: 52.34336 xmax: 13.75514 ymax: 52.66925 #> Geodetic CRS:  WGS 84 #> First 10 features: #>    Nummer        Bezirk Betreiber            Auspraegung #> 1       1 Reinickendorf     Senat               GW-Stand #> 2       2 Reinickendorf     Senat               GW-Stand #> 3       3 Reinickendorf     Senat     GW-Stand + GW-Güte #> 4       4 Reinickendorf     Senat               GW-Stand #> 5       9 Reinickendorf     Senat               GW-Stand #> 6      21 Reinickendorf     Senat               GW-Stand #> 7      24 Reinickendorf     Senat               GW-Stand #> 8      25 Reinickendorf     Senat               GW-Stand #> 9      26 Reinickendorf     Senat GW-Stand, tagesaktuell #> 10     30 Reinickendorf     Senat               GW-Stand #>                        Grundwasserleiter Gelaendeoberkante_GOK_m_ue_NHN #> 1   Hauptgrundwasserleiter (GWL 1.3 + 2)                          49.20 #> 2   Hauptgrundwasserleiter (GWL 1.3 + 2)                          37.65 #> 3   Hauptgrundwasserleiter (GWL 1.3 + 2)                          37.87 #> 4   Hauptgrundwasserleiter (GWL 1.3 + 2)                          39.88 #> 5  lokal ausgebildeter Grundwasserkörper                          42.14 #> 6   Hauptgrundwasserleiter (GWL 1.3 + 2)                          37.25 #> 7   Hauptgrundwasserleiter (GWL 1.3 + 2)                          40.25 #> 8   Hauptgrundwasserleiter (GWL 1.3 + 2)                          41.98 #> 9   Hauptgrundwasserleiter (GWL 1.3 + 2)                          42.70 #> 10  Hauptgrundwasserleiter (GWL 1.3 + 2)                          39.63 #>    Rohroberkante_m_ue_NHN Filteroberkante_m_u_GOK Filterunterkante_m_u_GOK #> 1                   49.49                   37.34                    39.34 #> 2                   38.06                   15.59                    17.59 #> 3                   38.65                   12.27                    13.27 #> 4                   40.36                   16.00                    18.00 #> 5                   42.67                   17.70                    18.70 #> 6                   38.00                    8.10                     9.10 #> 7                   40.43                   10.88                    11.88 #> 8                   42.26                    5.47                     6.47 #> 9                   43.56                   11.74                    12.74 #> 10                  39.90                   12.00                    13.00 #>                     geometry #> 1  POINT (13.29247 52.62308) #> 2  POINT (13.31921 52.62262) #> 3   POINT (13.3131 52.61407) #> 4  POINT (13.29259 52.60773) #> 5   POINT (13.35574 52.6204) #> 6  POINT (13.32453 52.57572) #> 7  POINT (13.35288 52.56763) #> 8  POINT (13.36019 52.57023) #> 9  POINT (13.36547 52.57433) #> 10 POINT (13.35974 52.56318)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_as_xlsx.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert xls to xlsx — convert_xls_as_xlsx","title":"Convert xls to xlsx — convert_xls_as_xlsx","text":"Convert xls xlsx","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_as_xlsx.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert xls to xlsx — convert_xls_as_xlsx","text":"","code":"convert_xls_as_xlsx(   input_dir,   export_dir = tempdir(),   office_folder = safe_office_folder(),   dbg = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_as_xlsx.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert xls to xlsx — convert_xls_as_xlsx","text":"input_dir input directory containing .xls files export_dir export directory (default: tempdir()) office_folder office folder path (default: safe_office_folder) dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_to_xlsx.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: convert_xls_to_xlsx — convert_xls_to_xlsx","title":"Helper function: convert_xls_to_xlsx — convert_xls_to_xlsx","text":"Helper function: convert_xls_to_xlsx","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_to_xlsx.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: convert_xls_to_xlsx — convert_xls_to_xlsx","text":"","code":"convert_xls_to_xlsx(exe, xls, xlsx, i, n_files, dbg = TRUE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/convert_xls_to_xlsx.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: convert_xls_to_xlsx — convert_xls_to_xlsx","text":"exe exe xls xls xlsx xlsx n_files n_files dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_lookup_para_file.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: copy_lookup_para_file — copy_lookup_para_file","title":"Helper function: copy_lookup_para_file — copy_lookup_para_file","text":"Helper function: copy_lookup_para_file","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_lookup_para_file.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: copy_lookup_para_file — copy_lookup_para_file","text":"","code":"copy_lookup_para_file(   from_dir,   to_dir,   overwrite = FALSE,   recursive = TRUE,   file_pattern = \"^lookup_para\\\\.csv$\" )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_lookup_para_file.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: copy_lookup_para_file — copy_lookup_para_file","text":"from_dir input directory xlsx files to_dir target directory copy xlsx files overwrite existing files overwritten (TRUE) otherwise (FALSE) ? (default: FALSE) recursive TRUE recursively find xlsx files directory specified parameter \"from_dir\" (default: TRUE) file_pattern pattern identifying lookup_para file (default: \"^lookup_para\\.csv$\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_xlsx_files.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: copy_xlsx_files — copy_xlsx_files","title":"Helper function: copy_xlsx_files — copy_xlsx_files","text":"Helper function: copy_xlsx_files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_xlsx_files.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: copy_xlsx_files — copy_xlsx_files","text":"","code":"copy_xlsx_files(   from_dir,   to_dir,   overwrite = FALSE,   recursive = TRUE,   file_pattern = \"[xX][lL][sS][xX]\" )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/copy_xlsx_files.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: copy_xlsx_files — copy_xlsx_files","text":"from_dir input directory xlsx files to_dir target directory copy xlsx files overwrite existing files overwritten (TRUE) otherwise (FALSE) ? (default: FALSE) recursive TRUE recursively find xlsx files directory specified parameter \"from_dir\" (default: TRUE) file_pattern pattern identifying xlsx fles (default: \"[xX][lL][sS][xX]\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":null,"dir":"Reference","previous_headings":"","what":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"Create EMSHOFF91 Import Data Frame","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"","code":"create_emshoff91_import(   ods_dir,   files_to_ignore = c(\"cl25\", \"clliste\", \"rupelauf\", \"salzlast\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"ods_dir directory \".ods\" files created manually importing original \".wq1\" files LibreOffice 7.0 Ubuntu encoding (Western Europe (DOS/OS2-437/US)) exporting \".ods\" format files_to_ignore tidied names files ignore due complex data input structure yet covered importer (default: c(\"cl25\", \"clliste\", \"gwnguete\", \"rupelauf\", \"salzlast\"))","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"data frame columns \"ods_paths\" (full paths \".ods\" files), \"ods_files\" (\"basenames\") \"ods_names_clean\" (tidied names used identifier)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_emshoff91_import.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Create EMSHOFF91 Import Data Frame — create_emshoff91_import","text":"","code":"if (FALSE) { ods_dir <- \"<replace-with-path-to-files>/emshoff91/converted_ods\" emshoff91_import <- create_emshoff91_import(ods_dir) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_sftp_connection.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: Create an SFTP Connection — create_sftp_connection","title":"Measurement Chains: Create an SFTP Connection — create_sftp_connection","text":"Measurement Chains: Create SFTP Connection","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_sftp_connection.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: Create an SFTP Connection — create_sftp_connection","text":"","code":"create_sftp_connection()"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/create_sftp_connection.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: Create an SFTP Connection — create_sftp_connection","text":"sftp connection","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/delete_registry.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: delete_registry — delete_registry","title":"Helper function: delete_registry — delete_registry","text":"Helper function: delete_registry","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/delete_registry.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: delete_registry — delete_registry","text":"","code":"delete_registry(office_folder = safe_office_folder(), dbg = TRUE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/delete_registry.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: delete_registry — delete_registry","text":"office_folder office folder path (default: safe_office_folder) dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: download data — download_measurementchains_data","title":"Measurement Chains: download data — download_measurementchains_data","text":"Measurement Chains: download data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: download data — download_measurementchains_data","text":"","code":"download_measurementchains_data(   sftp_paths,   target_directory = temp_dir(),   sftp_connection = create_sftp_connection(),   run_parallel = TRUE,   debug = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: download data — download_measurementchains_data","text":"sftp_paths character vector paths files downloaded. retrieved get_measurementchains_files column \"sftp_path\" target_directory target directory sftp_connection SFTP connnection retrieved create_sftp_connection run_parallel default: TRUE debug show debug messages (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: download data — download_measurementchains_data","text":"tibble columns file_id, sftp_path local_path csv files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/download_measurementchains_data.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Measurement Chains: download data — download_measurementchains_data","text":"","code":"if (FALSE) { mc_files <- kwb.geosalz::get_measurementchains_files() target_directory <- tempdir() local_paths <- kwb.geosalz::download_measurementchains_data( sftp_paths = mc_files$sftp_path, target_directory) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_list_to_df.html","id":null,"dir":"Reference","previous_headings":"","what":"Emshoff 91: list to data frame — emshoff91_list_to_df","title":"Emshoff 91: list to data frame — emshoff91_list_to_df","text":"Emshoff 91: list data frame","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_list_to_df.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Emshoff 91: list to data frame — emshoff91_list_to_df","text":"","code":"emshoff91_list_to_df(emshoff91_list)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_list_to_df.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Emshoff 91: list to data frame — emshoff91_list_to_df","text":"emshoff91_list list retrieved read_multiple_emshoff91_ods","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_list_to_df.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Emshoff 91: list to data frame — emshoff91_list_to_df","text":"tibble","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_remap_values.html","id":null,"dir":"Reference","previous_headings":"","what":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","title":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","text":"Emshoff 91: remap values imported tibble","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_remap_values.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","text":"","code":"emshoff91_remap_values(   emshoff91_df,   remap_list = list(fi_mi = \"fi_mi_m_nn\", ku_sto = \"kupp_st\", lf = \"el_lf\", progr =     \"beprob_progr\", strat = \"stratigr\", uv254 = \"uv_ext\"),   delete_cols = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_remap_values.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","text":"emshoff91_df tibble retrieved emshoff91_list_to_df remap_list list values remapped. Names list columns  values contained list values mapped (default: list(fi_mi = \"fi_mi_m_nn\",  ku_sto = \"kupp_st\", lf = \"el_lf\", progr = \"beprob_progr\", strat = \"stratigr\",  uv254 = \"uv_ext\")) delete_cols unneeded columns deleted, .e. ones data  mapped (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/emshoff91_remap_values.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Emshoff 91: remap values from imported tibble — emshoff91_remap_values","text":"data frame remapped values deleted columns values  copied (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_1.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: gather_and_join_1 — gather_and_join_1","title":"Helper function: gather_and_join_1 — gather_and_join_1","text":"Helper function: gather_and_join_1","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_1.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: gather_and_join_1 — gather_and_join_1","text":"","code":"gather_and_join_1(tmp_data, columns_keep, metadata, dbg = FALSE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_1.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: gather_and_join_1 — gather_and_join_1","text":"tmp_data tmp_data columns_keep columns_keep metadata metadata dbg dbg (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_1.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: gather_and_join_1 — gather_and_join_1","text":"gathered joined data frame","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_2.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: gather_and_join_2 — gather_and_join_2","title":"Helper function: gather_and_join_2 — gather_and_join_2","text":"Helper function: gather_and_join_2","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_2.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: gather_and_join_2 — gather_and_join_2","text":"","code":"gather_and_join_2(tmp_content, columns_keep, header)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_2.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: gather_and_join_2 — gather_and_join_2","text":"tmp_content tmp_content columns_keep columns_keep header header","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_and_join_2.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: gather_and_join_2 — gather_and_join_2","text":"gathered joined data frame","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: gather_ignore — gather_ignore","title":"Helper function: gather_ignore — gather_ignore","text":"Helper function: gather_ignore","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: gather_ignore — gather_ignore","text":"","code":"gather_ignore(   fields = c(\"Datum\", \"KN\", \"[iI]nterne Nr.\", \"Name der\", \"Ort\", \"Probe\", \"Prü\",     \"Untersuchung\", \"Labor\", \"Jahr\", \"Galer\", \"Detail\", \"Meß\", \"Zeit\", \"Bezei\", \"Monat\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: gather_ignore — gather_ignore","text":"fields column names ignored gathering (default: c( \"Datum\", \"KN\", \"[iI]nterne Nr.\", \"Name der\", \"Ort\", \"Probe\", \"Pr\\u00FC\", \"Untersuchung\", \"Labor\", \"Jahr\", \"Galer\", \"Detail\", \"\\u00DF\", \"Zeit\", \"Bezei\", \"Monat\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: gather_ignore — gather_ignore","text":"vector ignored columns gathering","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore_clean.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: gather_ignore_clean — gather_ignore_clean","title":"Helper function: gather_ignore_clean — gather_ignore_clean","text":"Helper function: gather_ignore_clean","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore_clean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: gather_ignore_clean — gather_ignore_clean","text":"","code":"gather_ignore_clean(   fields = c(\"LabSampleCode\", \"Date\", \"Time\", \"Waterbody\", \"ExSiteCode\", \"Site\") )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore_clean.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: gather_ignore_clean — gather_ignore_clean","text":"fields column names ignored gathering (default: c(\"LabSampleCode\", \"Date\", \"Time\", \"Waterbody\", \"ExSiteCode\", Site\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/gather_ignore_clean.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: gather_ignore_clean — gather_ignore_clean","text":"vector ignored columns gathering","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_excelcnv_exe.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: get_excelcnv_exe — get_excelcnv_exe","title":"Helper function: get_excelcnv_exe — get_excelcnv_exe","text":"Helper function: get_excelcnv_exe","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_excelcnv_exe.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: get_excelcnv_exe — get_excelcnv_exe","text":"","code":"get_excelcnv_exe(office_folder = safe_office_folder())"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_excelcnv_exe.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: get_excelcnv_exe — get_excelcnv_exe","text":"office_folder office folder path (default: safe_office_folder","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_excelcnv_exe.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: get_excelcnv_exe — get_excelcnv_exe","text":"path containing 'excelcnv.exe'","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen.html","id":null,"dir":"Reference","previous_headings":"","what":"get_foerdermengen — get_foerdermengen","title":"get_foerdermengen — get_foerdermengen","text":"get_foerdermengen","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"get_foerdermengen — get_foerdermengen","text":"","code":"get_foerdermengen(   xlsx_path,   sheet_name = \"WW Q Rhow \",   sheet_range = \"A4:S127\" )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"get_foerdermengen — get_foerdermengen","text":"xlsx_path path xlsx file pumping rates sheet_name sheet_name (default: \"WW Q Rhow \") sheet_range sheet_range  (default: \"A4:S127\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"get_foerdermengen — get_foerdermengen","text":"data frame annual pumping rates per waterworks","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen_gal_fri.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","title":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","text":"Get Abtraction Friedrichshagen Well Galleries","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen_gal_fri.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","text":"","code":"get_foerdermengen_gal_fri(path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen_gal_fri.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","text":"path path \"2018-04-27 Rohwasser Bericht - Galeriefördermengen.xlsx\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_foerdermengen_gal_fri.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Abtraction of Friedrichshagen Well Galleries — get_foerdermengen_gal_fri","text":"tidy data frame abstraction rates waterworks Friedrichshagen","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"Measurement Chains: Get Tidied Files Metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"","code":"get_measurementchains_files(   sftp_connection = create_sftp_connection(),   debug = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"sftp_connection SFTP connnection retrieved create_sftp_connection debug show debug messages (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"tibble information available files tidied meta-information based file naming","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_files.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Measurement Chains: Get Tidied Files Metadata — get_measurementchains_files","text":"","code":"if (FALSE) { mc_files <- kwb.geosalz::get_measurementchains_files() str(mc_files) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: Get Metadata — get_measurementchains_metadata","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"Measurement Chains: Get Metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"","code":"get_measurementchains_metadata(file = extdata_file(\"metadata_messketten.csv\"))"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"file path measurement chains metadata file. Default: kwb.geosalz:::extdata_file(\"metadata_messketten.csv\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"tibble measurement chains metadata","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurementchains_metadata.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Measurement Chains: Get Metadata — get_measurementchains_metadata","text":"","code":"mc_metadata <- kwb.geosalz::get_measurementchains_metadata() str(mc_metadata) #> spc_tbl_ [18 × 10] (S3: spec_tbl_df/tbl_df/tbl/data.frame) #>  $ galerie               : chr [1:18] \"K\" \"K\" \"K\" \"K\" ... #>  $ brunnen_nummer        : int [1:18] 9 9 9 9 9 9 10 10 10 10 ... #>  $ dn                    : int [1:18] 400 400 400 400 400 400 600 600 600 600 ... #>  $ einbau_pumpe          : chr [1:18] \"über Filter\" \"über Filter\" \"über Filter\" \"über Filter\" ... #>  $ einbau_messkette      : chr [1:18] \"unter Pumpe\" \"unter Pumpe\" \"unter Pumpe\" \"unter Pumpe\" ... #>  $ filteroberkante_muGOK : num [1:18] 21 21 21 21 21 21 11 11 11 11 ... #>  $ filterunterkante_muGOK: num [1:18] 27 27 27 27 27 27 18 18 18 18 ... #>  $ sensor_id             : int [1:18] 4182018 4182017 4182016 4182015 4182014 4182013 4182006 4182005 4182004 4182003 ... #>  $ sensor_endnummer      : int [1:18] 8 7 6 5 4 3 6 5 4 3 ... #>  $ einbau_sensor_muGOK   : num [1:18] 21.5 22.5 23.5 24.5 25.5 26.5 11.5 12.7 13.9 15.1 ... #>  - attr(*, \"spec\")= #>   .. cols( #>   ..   galerie = col_character(), #>   ..   brunnen_nummer = col_integer(), #>   ..   dn = col_integer(), #>   ..   einbau_pumpe = col_character(), #>   ..   einbau_messkette = col_character(), #>   ..   filteroberkante_muGOK = col_double(), #>   ..   filterunterkante_muGOK = col_double(), #>   ..   sensor_id = col_integer(), #>   ..   sensor_endnummer = col_integer(), #>   ..   einbau_sensor_muGOK = col_double() #>   .. ) #>  - attr(*, \"problems\")=<externalptr>  mc_metadata #> # A tibble: 18 × 10 #>    galerie brunnen_nummer    dn einbau_pumpe einbau_messkette          #>    <chr>            <int> <int> <chr>        <chr>                     #>  1 K                    9   400 über Filter  unter Pumpe               #>  2 K                    9   400 über Filter  unter Pumpe               #>  3 K                    9   400 über Filter  unter Pumpe               #>  4 K                    9   400 über Filter  unter Pumpe               #>  5 K                    9   400 über Filter  unter Pumpe               #>  6 K                    9   400 über Filter  unter Pumpe               #>  7 K                   10   600 unter Filter über Pumpe (am Steigrohr) #>  8 K                   10   600 unter Filter über Pumpe (am Steigrohr) #>  9 K                   10   600 unter Filter über Pumpe (am Steigrohr) #> 10 K                   10   600 unter Filter über Pumpe (am Steigrohr) #> 11 K                   10   600 unter Filter über Pumpe (am Steigrohr) #> 12 K                   10   600 unter Filter über Pumpe (am Steigrohr) #> 13 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 14 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 15 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 16 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 17 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> 18 K                   13   600 unter Filter über Pumpe (am Steigrohr) #> # ℹ 5 more variables: filteroberkante_muGOK <dbl>, #> #   filterunterkante_muGOK <dbl>, sensor_id <int>, sensor_endnummer <int>, #> #   einbau_sensor_muGOK <dbl>"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurement_chain_data_on_cloud.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","title":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","text":"Get Measurement Chain Data KWB Cloud","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurement_chain_data_on_cloud.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","text":"","code":"get_measurement_chain_data_on_cloud(dbg = TRUE)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurement_chain_data_on_cloud.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","text":"dbg logical indicating whether show debug messages","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurement_chain_data_on_cloud.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Measurement Chain Data on KWB Cloud — get_measurement_chain_data_on_cloud","text":"data frame content \"mc_data.zip\" GeoSalz project   folder Nextcloud server. SFTP paths files   data \"mc_data.zip\" originate returned attribute \"sftp_paths\".   either files \"mc_data.zip\" \"mc_files.csv\" exist,  NULL returned.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurmentchains_data_stats.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","title":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","text":"Measurement Chains: get statistics data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurmentchains_data_stats.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","text":"","code":"get_measurmentchains_data_stats(mc_data)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurmentchains_data_stats.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","text":"mc_data tibble measurement chains data retrieved  read_measurementchains_data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_measurmentchains_data_stats.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: get statistics for data — get_measurmentchains_data_stats","text":"tibble colunns datetime min/max, q10 (10 median, q90 (90","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_meta_sheet_or_stop.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","title":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","text":"Helper function: get_meta_sheet_or_stop","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_meta_sheet_or_stop.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","text":"","code":"get_meta_sheet_or_stop(sheets, pattern, file)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_meta_sheet_or_stop.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","text":"sheets sheets pattern pattern file file","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_meta_sheet_or_stop.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: get_meta_sheet_or_stop — get_meta_sheet_or_stop","text":"meta sheet name","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_pandoc_info.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Information on Pandoc — get_pandoc_info","title":"Get Information on Pandoc — get_pandoc_info","text":"Get Information Pandoc","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_pandoc_info.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Information on Pandoc — get_pandoc_info","text":"","code":"get_pandoc_info()"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_pandoc_info.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Information on Pandoc — get_pandoc_info","text":"data frame columns pandoc_directory,  pandoc_version Pandoc installed, otherwise message   printed pandoc installed.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_parameters_meta.html","id":null,"dir":"Reference","previous_headings":"","what":"get_parameters_meta — get_parameters_meta","title":"get_parameters_meta — get_parameters_meta","text":"get_parameters_meta","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_parameters_meta.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"get_parameters_meta — get_parameters_meta","text":"","code":"get_parameters_meta(xlsx_path, sheet_name = \"nur Parameterliste\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_parameters_meta.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"get_parameters_meta — get_parameters_meta","text":"xlsx_path path EXCEL spreadsheet parameter metadata sheet_name name sheet containing metadata table (default: \"nur Parameterliste\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_parameters_meta.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"get_parameters_meta — get_parameters_meta","text":"imported parameter metadata cleaned columns names","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_phreeqc_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Get PhreeqC data — get_phreeqc_data","title":"Get PhreeqC data — get_phreeqc_data","text":"Get PhreeqC data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_phreeqc_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get PhreeqC data — get_phreeqc_data","text":"","code":"get_phreeqc_data(lab_bwb)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_phreeqc_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get PhreeqC data — get_phreeqc_data","text":"lab_bwb imported BWB lab data retrieved read_lab_bwb","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_phreeqc_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get PhreeqC data — get_phreeqc_data","text":"tibble columns solution, par_name_phreeqc (empty  NA) numeric_value","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_site_id.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: get_site_id — get_site_id","title":"Helper function: get_site_id — get_site_id","text":"Helper function: get_site_id","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_site_id.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: get_site_id — get_site_id","text":"","code":"get_site_id(string, pattern = \"^[0-9]{1,4}\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_site_id.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: get_site_id — get_site_id","text":"string vector character strings pattern pattern used identifying site_id (default: \"^[0-9]1,4\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/get_site_id.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: get_site_id — get_site_id","text":"extracted site_id`s input string","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/import_labor.html","id":null,"dir":"Reference","previous_headings":"","what":"import_labor — import_labor","title":"import_labor — import_labor","text":"import_labor","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/import_labor.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"import_labor — import_labor","text":"","code":"import_labor(files, export_dir, func = read_bwb_header2)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/import_labor.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"import_labor — import_labor","text":"files vector full paths xlsx input files export_dir export directory func function used (default: read_bwb_header2)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/import_labor.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"import_labor — import_labor","text":"list length equal number input files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/order_measurement_chain_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Order Measurement Chain Data — order_measurement_chain_data","title":"Order Measurement Chain Data — order_measurement_chain_data","text":"Order Measurement Chain Data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/order_measurement_chain_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Order Measurement Chain Data — order_measurement_chain_data","text":"","code":"order_measurement_chain_data(data)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/order_measurement_chain_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Order Measurement Chain Data — order_measurement_chain_data","text":"data data frame retrieved read_measurementchains_data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/order_measurement_chain_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Order Measurement Chain Data — order_measurement_chain_data","text":"data, ordered \"parameter\", \"sensor_id\", \"datum_uhrzeit\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/pipe.html","id":null,"dir":"Reference","previous_headings":"","what":"Pipe operator — %>%","title":"Pipe operator — %>%","text":"See magrittr::%>% details.","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/pipe.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Pipe operator — %>%","text":"","code":"lhs %>% rhs"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/plot_measurementchains.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: plott — plot_measurementchains","title":"Measurement Chains: plott — plot_measurementchains","text":"Measurement Chains: plott","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/plot_measurementchains.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: plott — plot_measurementchains","text":"","code":"plot_measurementchains(mc_data, para = \"Leitfaehigkeit\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/plot_measurementchains.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: plott — plot_measurementchains","text":"mc_data retrieved read_measurementchains_data para parameter plot \"Leitfaehigkeit\" \"Temperatur\" (default:  Leitfaehigkeit\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/plot_measurementchains.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: plott — plot_measurementchains","text":"plot selected measurement chain parameter","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/prepare_phreeqc_input.html","id":null,"dir":"Reference","previous_headings":"","what":"Prepare PhreeqC input — prepare_phreeqc_input","title":"Prepare PhreeqC input — prepare_phreeqc_input","text":"Prepare PhreeqC input","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/prepare_phreeqc_input.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Prepare PhreeqC input — prepare_phreeqc_input","text":"","code":"prepare_phreeqc_input(lab_bwb_phreeqc, title = \"\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/prepare_phreeqc_input.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Prepare PhreeqC input — prepare_phreeqc_input","text":"lab_bwb_phreeqc selected BWB lab data retrieved get_phreeqc_data title user defined title (default: \"\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/prepare_phreeqc_input.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Prepare PhreeqC input — prepare_phreeqc_input","text":"data frame input structure kwb.phreeqc","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/print_datatype_info_if.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: print_datatype_info_if — print_datatype_info_if","title":"Helper function: print_datatype_info_if — print_datatype_info_if","text":"Helper function: print_datatype_info_if","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/print_datatype_info_if.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: print_datatype_info_if — print_datatype_info_if","text":"","code":"print_datatype_info_if(dbg, tbl_datatypes, columns_keep)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/print_datatype_info_if.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: print_datatype_info_if — print_datatype_info_if","text":"dbg dbg tbl_datatypes tbl_datatypes columns_keep columns_keep","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Import: read_bwb_data — read_bwb_data","title":"Import: read_bwb_data — read_bwb_data","text":"wrapper around read_bwb_header2 read_bwb_header1_meta","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import: read_bwb_data — read_bwb_data","text":"","code":"read_bwb_data(   files,   meta_pattern = \"META\",   keep_pattern = column_pattern_gather_ignore(),   site_id_pattern = \"^[0-9]{1,4}\",   dbg = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Import: read_bwb_data — read_bwb_data","text":"files file path(s) EXCEL spreadsheet meta_pattern (default: \"META\") keep_pattern (default: column_pattern_gather_ignore) site_id_pattern (default: \"^[0-9]1,4\") dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Import: read_bwb_data — read_bwb_data","text":"data.table imported xls(x) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header1_meta.html","id":null,"dir":"Reference","previous_headings":"","what":"Import: read_bwb_header1_meta — read_bwb_header1_meta","title":"Import: read_bwb_header1_meta — read_bwb_header1_meta","text":"Import: read_bwb_header1_meta","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header1_meta.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import: read_bwb_header1_meta — read_bwb_header1_meta","text":"","code":"read_bwb_header1_meta(   file,   meta_pattern = \"META\",   keep_pattern = column_pattern_gather_ignore(),   dbg = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header1_meta.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Import: read_bwb_header1_meta — read_bwb_header1_meta","text":"file path(s) EXCEL spreadsheet meta_pattern meta_pattern default(\"META\") keep_pattern keep_pattern (default: column_pattern_gather_ignore) dbg debug (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header1_meta.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Import: read_bwb_header1_meta — read_bwb_header1_meta","text":"data.table imported xls(x) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header2.html","id":null,"dir":"Reference","previous_headings":"","what":"Import: read_bwb_header2 — read_bwb_header2","title":"Import: read_bwb_header2 — read_bwb_header2","text":"Import: read_bwb_header2","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header2.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import: read_bwb_header2 — read_bwb_header2","text":"","code":"read_bwb_header2(   file,   skip = 2,   keep_pattern = column_pattern_gather_ignore(),   site_id_pattern = \"^[0-9]{1,4}\",   dbg = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header2.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Import: read_bwb_header2 — read_bwb_header2","text":"file file path(s) EXCEL spreadsheet skip number rows skip sheet (default: 2) keep_pattern (default: column_pattern_gather_ignore()) site_id_pattern (default: \"^[0-9]1,4\") dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header2.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Import: read_bwb_header2 — read_bwb_header2","text":"data.table imported xls(x) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header4.html","id":null,"dir":"Reference","previous_headings":"","what":"Import: read_bwb_header4 — read_bwb_header4","title":"Import: read_bwb_header4 — read_bwb_header4","text":"Import: read_bwb_header4","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header4.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import: read_bwb_header4 — read_bwb_header4","text":"","code":"read_bwb_header4(   file,   skip = 4,   keep_pattern = column_pattern_gather_ignore(),   site_id_pattern = \"^[0-9]{1,4}\",   dbg = TRUE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header4.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Import: read_bwb_header4 — read_bwb_header4","text":"file file path(s) EXCEL spreadsheet skip number rows skip sheet (default: 4) keep_pattern (default: column_pattern_gather_ignore()) site_id_pattern (default: \"^[0-9]1,4\") dbg debug (default: TRUE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_bwb_header4.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Import: read_bwb_header4 — read_bwb_header4","text":"data.table imported xls(x) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_emshoff91_ods.html","id":null,"dir":"Reference","previous_headings":"","what":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","title":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","text":"Reads Single EMSHOFF 91 ODS File Tibble","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_emshoff91_ods.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","text":"","code":"read_emshoff91_ods(emshoff91_import_selected)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_emshoff91_ods.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","text":"emshoff91_import_selected row retrieved create_emshoff91_import","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_emshoff91_ods.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Reads a Single EMSHOFF 91 ODS File into Tibble — read_emshoff91_ods","text":"imports ods file tibble","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_isotopes.html","id":null,"dir":"Reference","previous_headings":"","what":"Read Isotopes — read_isotopes","title":"Read Isotopes — read_isotopes","text":"Read Isotopes","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_isotopes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read Isotopes — read_isotopes","text":"","code":"read_isotopes(path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_isotopes.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read Isotopes — read_isotopes","text":"path path Isotopes delim (field separator \";\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_isotopes.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Read Isotopes — read_isotopes","text":"imported isotopes data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_lab_bwb.html","id":null,"dir":"Reference","previous_headings":"","what":"Read Lab BWB — read_lab_bwb","title":"Read Lab BWB — read_lab_bwb","text":"Read Lab BWB","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_lab_bwb.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read Lab BWB — read_lab_bwb","text":"","code":"read_lab_bwb(path, sheet = \"Analysen\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_lab_bwb.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read Lab BWB — read_lab_bwb","text":"path path file lab BWB data sheet name sheet containing analysis data. Default: \"Analysen\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_lab_bwb.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Read Lab BWB — read_lab_bwb","text":"cleaned data frame master data lab values samples  selected parameters (columns -BA HB-HC)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_master_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Read Master Data — read_master_data","title":"Read Master Data — read_master_data","text":"Read Master Data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_master_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read Master Data — read_master_data","text":"","code":"read_master_data(path)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_master_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read Master Data — read_master_data","text":"path path file master data (currently file: lab BWB data)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_master_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Read Master Data — read_master_data","text":"imported master data contained sheet \"Stammdaten\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"Measurement Chains: read csv data multiple files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"","code":"read_measurementchains_data(   csv_files,   datetime_installation = as_gmt_plus_one(\"2022-09-27 11:00:00\"),   run_parallel = TRUE,   debug = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"csv_files vector paths retrieved download_measurementchains_data datetime_installation datetime first logger installation well K10.  Used filter older measurement data! Default:  kwb.geosalz:::as_gmt_plus_one(\"2022-09-27 11:00:00\") run_parallel default: TRUE debug show debug messages (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"data frame imported data csv files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_measurementchains_data.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Measurement Chains: read csv data from multiple files — read_measurementchains_data","text":"","code":"if (FALSE) { mc_files <- kwb.geosalz::get_measurementchains_files() target_directory <- tempdir() csv_files <- kwb.geosalz::download_measurementchains_data(   sftp_paths = mc_files$sftp_path,   target_directory ) mc_data <- kwb.geosalz::read_measurementchains_data(csv_files) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":null,"dir":"Reference","previous_headings":"","what":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"Reads Multiple EMSHOFF 91 ODS Files List","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"","code":"read_multiple_emshoff91_ods(emshoff91_import)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"emshoff91_import tibble retrieved create_emshoff91_import","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"imports mulitple ods files list tibbles","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/read_multiple_emshoff91_ods.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Reads Multiple EMSHOFF 91 ODS Files into List — read_multiple_emshoff91_ods","text":"","code":"if (FALSE) { ods_dir <- \"<replace-with-path-to-files>/emshoff91/emshoff91/converted_ods\" ods_dir <- \"C:/users/mrustl/Downloads/emshoff91/emshoff91/converted_ods\" emshoff91_import <- create_emshoff91_import(ods_dir) read_multiple_emshoff91_ods(emshoff91_import) }"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":null,"dir":"Reference","previous_headings":"","what":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"Replace n.. (available) n.b. (determined) lab data NA","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"","code":"replace_nanb_with_na(string)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"string string","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"string NA instead \"n..\" \"n.b.\" (including 0-10 spaces  \"n\" \"\"/\"b\"","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/replace_nanb_with_na.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Replace n.a. (not available) and n.b. (not determined) from lab data with NA — replace_nanb_with_na","text":"","code":"string <- c(\"19.2\", \"n.b.\", \"n. b.\", \"n.  b.\", \"n.a.\", \"n. a.\", \"n.  a.\") replace_nanb_with_na(string) #> [1] \"19.2\" NA     NA     NA     NA     NA     NA"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/safe_office_folder.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: safe_office_folder — safe_office_folder","title":"Helper function: safe_office_folder — safe_office_folder","text":"Helper function: safe_office_folder","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/safe_office_folder.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: safe_office_folder — safe_office_folder","text":"","code":"safe_office_folder(office_path = \"C:/Program Files (x86)/Microsoft Office\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/safe_office_folder.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: safe_office_folder — safe_office_folder","text":"office_path office folder path (default: \"C:/Program Files (x86)/Microsoft Office\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/safe_office_folder.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: safe_office_folder — safe_office_folder","text":"path office folder (existing)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_formatted.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: stop_formatted — stop_formatted","title":"Helper function: stop_formatted — stop_formatted","text":"Helper function: stop_formatted","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_formatted.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: stop_formatted — stop_formatted","text":"","code":"stop_formatted(fmt, ...)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_formatted.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: stop_formatted — stop_formatted","text":"fmt fmt ... arguments passed fmt","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_formatted.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: stop_formatted — stop_formatted","text":"calls stop fmt additional arguments defined ...","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_if_duplicated_samples_found.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","title":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","text":"Helper function: stop duplicated sample ids found","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_if_duplicated_samples_found.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","text":"","code":"stop_if_duplicated_samples_found(df, col_sampleid, path, sheet = \"\")"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_if_duplicated_samples_found.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","text":"df data frame samples wide format col_sampleid column name sample id path path file df read (information ) sheet optional case EXCEL used (default: \"\")","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_if_duplicated_samples_found.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: stop if duplicated sample ids are found — stop_if_duplicated_samples_found","text":"error case duplicated samples found","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_on_missing_or_inform_on_extra_sheets.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: stop_on_missing_or_inform_on_extra_sheets — stop_on_missing_or_inform_on_extra_sheets","title":"Helper function: stop_on_missing_or_inform_on_extra_sheets — stop_on_missing_or_inform_on_extra_sheets","text":"Helper function: stop_on_missing_or_inform_on_extra_sheets","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_on_missing_or_inform_on_extra_sheets.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: stop_on_missing_or_inform_on_extra_sheets — stop_on_missing_or_inform_on_extra_sheets","text":"","code":"stop_on_missing_or_inform_on_extra_sheets(has_site_id, file, sheets)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/stop_on_missing_or_inform_on_extra_sheets.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: stop_on_missing_or_inform_on_extra_sheets — stop_on_missing_or_inform_on_extra_sheets","text":"has_site_id has_site_id file file sheets sheets","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_2.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: to_full_metadata2 — to_full_metadata_2","title":"Helper function: to_full_metadata2 — to_full_metadata_2","text":"Helper function: to_full_metadata2","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_2.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: to_full_metadata2 — to_full_metadata_2","text":"","code":"to_full_metadata_2(header, file, sheet)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_2.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: to_full_metadata2 — to_full_metadata_2","text":"header header file file sheet sheet","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_2.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: to_full_metadata2 — to_full_metadata_2","text":"data frame metadata header2 (EXCEL) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_4.html","id":null,"dir":"Reference","previous_headings":"","what":"Helper function: to_full_metadata_4 — to_full_metadata_4","title":"Helper function: to_full_metadata_4 — to_full_metadata_4","text":"Helper function: to_full_metadata_4","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_4.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Helper function: to_full_metadata_4 — to_full_metadata_4","text":"","code":"to_full_metadata_4(header, file, sheet)"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_4.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Helper function: to_full_metadata_4 — to_full_metadata_4","text":"header header file file sheet sheet","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/to_full_metadata_4.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Helper function: to_full_metadata_4 — to_full_metadata_4","text":"data frame metadata header4 (EXCEL) files","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/write_measurementchains_data.html","id":null,"dir":"Reference","previous_headings":"","what":"Measurement Chains: write csv data — write_measurementchains_data","title":"Measurement Chains: write csv data — write_measurementchains_data","text":"Measurement Chains: write csv data","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/write_measurementchains_data.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Measurement Chains: write csv data — write_measurementchains_data","text":"","code":"write_measurementchains_data(   mc_data,   target_directory,   to_zip = FALSE,   debug = FALSE )"},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/write_measurementchains_data.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Measurement Chains: write csv data — write_measurementchains_data","text":"mc_data measurement chains data retrieved  read_measurementchains_data target_directory target directory to_zip data zipped? (default: FALSE), TRUE  temporary csv file created subsequently zipped deleted debug print debug messages (default: FALSE)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/reference/write_measurementchains_data.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Measurement Chains: write csv data — write_measurementchains_data","text":"writes csv data path","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-060-2023-04-14","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.6.0 2023-04-14","title":"kwb.geosalz 0.6.0 2023-04-14","text":"Add dependency kwb.nextcloud (required vignette measurement-chains.Rmd) Consider change variable name new Wasserportal API vignette wasserportal.Rmd Fix bug create_sftp_connection(): provide variable con_vars () Add error handling vignette measurement-chains.Rmd","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-050-2022-10-11","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.5.0 2022-10-11","title":"kwb.geosalz 0.5.0 2022-10-11","text":"Bugfix: fix read_lab_bwb() leading crash case importing Hydrochemie_Gesamt_Geosalz_v1.0.6.xlsx (see fix Add stop_if_duplicated_samples_found() read_lab_bwb() read_isotopes() throw error case imported dataset contains duplicated sample_id Articles Added Measurement Chains data import workflow electrical conductivity temperature, installed productions wells September (K10: 2022-09-27) October 2022 (K9: 2022-10-17, K13: 2022-10-16). Data SFTP server downloaded, aggregated exported restricted KWB cloud weekday 07:00:00 UTC. (see .github/pkgdown.yml#L11).","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-040-2022-08-25","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.4.0 2022-08-25","title":"kwb.geosalz 0.4.0 2022-08-25","text":"Functions Emshoff 91 .ods Import: create_emshoff91_import() read_emshoff91_ods() reads single .ods files read_multiple_emshoff91_ods() wrapper around read_emshoff91_ods() reading multiple .ods files returning list Hydrochemistry: added read_lab_bwb() import lab data BWB read_isotopes() import isotope data analysed UFZ added get_phreeqc_data() filter parameters imported read_lab_bwb() required PhreeqC. order transform filtered data function convert_phreeqc_input_to_wide() can used. Finally filtered data (retrieved get_phreeqc_data()) used prepare_phreeqc_input() creating PhreeqC input file. Wasserportal: added convert_to_sf() convert xy-coordinates (.e. UTM_33N crs = 25833) spatial feature object (crs = 4326) Articles Added Emshoff 91 data import ods files (formerly saved Quattro Pro (converted help LibreOffice (7.0) Ubuntu .ods .xlsx. However, latter used due possible mis-translation! Added Hydrochemistry data preparation workflow lab data PhreeqC Added Wasserportal data availability southern part SVM Friedrichshagen","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-030-2022-06-20","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.3.0 2022-06-20","title":"kwb.geosalz 0.3.0 2022-06-20","text":"Adding functionality checking data availability SVM Friedrichshagen based available BWB data pre-project phase (digitalised KWB) open-data Wasserportal Berlin Functions Add convert_to_sf() converting different CRS projections 4326 (OSM map used background map) Workflows Added new workflow Wasserportal checking available data Wasserportal Berlin Updated workflow Data Availability WW Friedrichshagen checking available data pre-project phase (see: workflow article)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-020-2022-06-01","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.2.0 2022-06-01","title":"kwb.geosalz 0.2.0 2022-06-01","text":"Add get_foerdermengen_gal_fri() getting annual abstraction values well field galeries waterworks Friedrichshagen Add workflow Data Availability WW Friedrichshagen checking available data pre-project phase (see: workflow article)","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-010-2019-02-13","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.1.0 2019-02-13","title":"kwb.geosalz 0.1.0 2019-02-13","text":"Release Zenodo","code":""},{"path":"https://kwb-r.github.io/kwb.geosalz/news/index.html","id":"kwbgeosalz-0109000-unreleased","dir":"Changelog","previous_headings":"","what":"kwb.geosalz 0.1.0.9000 unreleased","title":"kwb.geosalz 0.1.0.9000 unreleased","text":"Wrapped KWB-R/GeoSalz@88ae17 R package “kwb.geosalz” better workflow documentation Note: Formalising R scripts R package lead major improvements (bug removal) due build-“Check” functionality R packages! Integrated R functions Integrated “main.R” “vignettes/workflow.Rmd” documenting workflow see http://style.tidyverse.org/news.html writing good NEWS.md","code":""}]
diff --git a/swl_data.csv b/swl_data.csv
index b1230123..e445db9d 100644
--- a/swl_data.csv
+++ b/swl_data.csv
@@ -6454,6 +6454,7 @@ Messstellennummer;Datum;Tagesmittelwert_cm_ueber_Pegelnullpunkt;Tagesmittelwert_
 5827103;2023-10-02;50;32,33
 5827103;2023-10-03;51;32,34
 5827103;2023-10-04;52;32,35
+5827103;2023-10-05;52;32,35
 5827101;1995-06-01;56;32,34
 5827101;1995-06-02;55;32,33
 5827101;1995-06-03;56;32,34
@@ -16807,6 +16808,7 @@ Messstellennummer;Datum;Tagesmittelwert_cm_ueber_Pegelnullpunkt;Tagesmittelwert_
 5827101;2023-10-02;55;32,33
 5827101;2023-10-03;55;32,33
 5827101;2023-10-04;56;32,34
+5827101;2023-10-05;56;32,34
 5826702;1999-11-01;60;32,38
 5826702;1999-11-02;61;32,39
 5826702;1999-11-03;62;32,40
@@ -25546,6 +25548,7 @@ Messstellennummer;Datum;Tagesmittelwert_cm_ueber_Pegelnullpunkt;Tagesmittelwert_
 5826702;2023-10-02;55;32,33
 5826702;2023-10-03;56;32,34
 5826702;2023-10-04;57;32,35
+5826702;2023-10-05;57;32,35
 5826701;1999-11-01;57;32,38
 5826701;1999-11-02;58;32,39
 5826701;1999-11-03;58;32,39
@@ -34285,6 +34288,7 @@ Messstellennummer;Datum;Tagesmittelwert_cm_ueber_Pegelnullpunkt;Tagesmittelwert_
 5826701;2023-10-02;52;32,33
 5826701;2023-10-03;52;32,33
 5826701;2023-10-04;54;32,35
+5826701;2023-10-05;55;32,36
 5862811;2005-01-01;43;32,37
 5862811;2005-01-02;43;32,37
 5862811;2005-01-03;46;32,40
@@ -41136,3 +41140,4 @@ Messstellennummer;Datum;Tagesmittelwert_cm_ueber_Pegelnullpunkt;Tagesmittelwert_
 5862811;2023-10-02;39;32,33
 5862811;2023-10-03;40;32,34
 5862811;2023-10-04;41;32,35
+5862811;2023-10-05;41;32,35
diff --git a/swl_data_stats.csv b/swl_data_stats.csv
index 9b178e6f..4fdde640 100644
--- a/swl_data_stats.csv
+++ b/swl_data_stats.csv
@@ -1,6 +1,6 @@
 Nummer;Name;Gewaesser;Betreiber;Auspraegung;Flusskilometer;Pegelnullpunkt_m_NHN;start;end;period_days;n;interval_days
-5827103;Allendestraße;Müggelspree;Land Berlin;DMA (US);35.00;31.83;2006-02-01;2023-10-04;6454;6455;1
-5827101;Fähre Rahnsdorf;Müggelspree;Land Berlin;DMA (US);8.51;31.78;1995-06-01;2023-10-04;10352;10353;1
-5826702;Gosener Landstraße;Gosener Graben;Land Berlin;WMA;1.00;31.78;1999-11-01;2023-10-04;8738;8739;1
-5826701;Neue Fahlenbergbrücke;Gosener Kanal;Land Berlin;DMA (US);1.00;31.81;1999-11-01;2023-10-04;8738;8739;1
-5862811;Schmöckwitz US;Zeuthener See;Land Berlin;DMA (US);11.20;31.94;2005-01-01;2023-10-04;6850;6851;1
+5827103;Allendestraße;Müggelspree;Land Berlin;DMA (US);35.00;31.83;2006-02-01;2023-10-05;6455;6456;1
+5827101;Fähre Rahnsdorf;Müggelspree;Land Berlin;DMA (US);8.51;31.78;1995-06-01;2023-10-05;10353;10354;1
+5826702;Gosener Landstraße;Gosener Graben;Land Berlin;WMA;1.00;31.78;1999-11-01;2023-10-05;8739;8740;1
+5826701;Neue Fahlenbergbrücke;Gosener Kanal;Land Berlin;DMA (US);1.00;31.81;1999-11-01;2023-10-05;8739;8740;1
+5862811;Schmöckwitz US;Zeuthener See;Land Berlin;DMA (US);11.20;31.94;2005-01-01;2023-10-05;6851;6852;1