Commit e2881ad4 authored by unknown's avatar unknown
Browse files

v0.1.2.49 new example in ShinyGR.Rd file

parent 77008d83
Package: airGRteaching
Type: Package
Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Application)
Date: 2017-06-01
Authors@R: c(person("Olivier", "Delaigue", role = c("aut", "cre"), email = ""), person("Laurent", "Coron", role = c("aut")), person("Pierre", "Brigode", role = c("aut")), person("Guillaume", "Thirel", role = c("ctb")))
Depends: airGR (>=
......@@ -61,13 +61,19 @@ Pierre Brigode}
## data.frame of observed data
## data.frame of observed data of a low-land basin
BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")]
"Low-land basin" <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")]
## data.frame of observed data of a mountainous basin
"Mountainous basin" <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")]
## Interactive simulation step using default parameters
if (interactive()) {
ShinyGR(ObsBV = "BasinObs2", SimPer = c("1994-01-01", "1998-12-31"),
ShinyGR(ObsBV = list("Low-land basin", "Mountainous basin"),
ZInputs = median(BasinInfo$HypsoData), HypsoData = BasinInfo$HypsoData, NLayers = 5,
SimPer = c("1994-01-01", "1998-12-31"),
theme = "United")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment