Functions to compute 1d water level information and store it as
column w of an S4 object of type WaterLevelDataFrame.
Arguments
- wldf
an object of class WaterLevelDataFrame.
- shiny
logicaldeterming whether columns (section,weight_x,weight_y) relevant for theplotShiny()-function are appended to the resulting WaterLevelDataFrame.
Value
An object of class WaterLevelDataFrame.
Details
waterLevel interpolates 1d water level along the river axis
of Elbe and Rhine based on daily averaged, mostly validated gauging data
stored in the internal dataset df.gauging_data. Internally
stored gauging data are available from 1960-01-01 until yesterday.
waterLevelPegelonline carries out the interpolation with gauging
data obtained through a
REST
service from https://pegelonline.wsv.de/gast/start. The gauging data
from PEGELONLINE have a high
temporal resolution of 15 minutes, enabling meaningful linear temporal
interpolation. Since data from
PEGELONLINE
expire after 31 days, this function is only applicable for
WaterLevelDataFrames with a time-slot set to
appropriate values within the last 31 days before function call.
References
Busch N, Hammer M (2009). “Einheitliche Grundlage für die Festlegung der Bemessungswasserspiegellagen der Elbe auf der frei fließenden Strecke in Deutschland.” doi:10.5675/bfg-1650 .
HKV Hydrokontor (2014). “Erstellung eines SOBEK-River Modells für den Rhein von Iffezheim bis Pannerdense Kop als Weiterentwicklung bestehender SOBEK-RE Modelle.”
Bundesanstalt für Gewässerkunde (2016). “FLYS – Flusshydrologischer Webdienst.” http://www.bafg.de/DE/08_Ref/M2/03_Fliessgewmod/01_FLYS/flys_node.html.
Wasserstraßen- und Schifffahrtsverwaltung des Bundes (WSV) (2022). “PEGELONLINE.” https://pegelonline.wsv.de/gast/start.
Examples
# waterLevel
wldf <- WaterLevelDataFrame(river = "Elbe",
time = as.POSIXct("2016-12-21"),
station = seq(257, 262, 0.1))
wldf <- waterLevel(wldf)
# waterLevelPegelonline
wldf1 <- wldf
setTime(wldf1) <- Sys.time() - as.difftime(60, units = "mins")
wldf1 <- waterLevelPegelonline(wldf1)