Commit 2ed184b0 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v0.2.6.11 CLEAN: unused box removed in plot.CalGR

parent 416ea64e
Package: airGRteaching Package: airGRteaching
Type: Package Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included) Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.6.10 Version: 0.2.6.11
Date: 2019-04-02 Date: 2019-04-02
Authors@R: c( Authors@R: c(
person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@irstea.fr"), person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@irstea.fr"),
......
...@@ -13,7 +13,7 @@ output: ...@@ -13,7 +13,7 @@ output:
### 0.2.6.10 Release Notes (2019-04-02) ### 0.2.6.11 Release Notes (2019-04-02)
#### CRAN-compatibility updates #### CRAN-compatibility updates
......
...@@ -16,7 +16,7 @@ plot.CalGR <- function(x, xlab = NULL, ylab = NULL, main = NULL, which = c("per ...@@ -16,7 +16,7 @@ plot.CalGR <- function(x, xlab = NULL, ylab = NULL, main = NULL, which = c("per
on.exit(par(opar)) on.exit(par(opar))
if (any(which[1L] %in% c("perf"))) { if (any(which[1L] %in% c("perf"))) {
plot(x$OutputsModel, Qobs = x$Qobs, ...) plot.OutputsModel(x$OutputsModel, Qobs = x$Qobs, ...)
} }
if (any(which[1L] %in% c("iter"))) { if (any(which[1L] %in% c("iter"))) {
...@@ -42,7 +42,6 @@ plot.CalGR <- function(x, xlab = NULL, ylab = NULL, main = NULL, which = c("per ...@@ -42,7 +42,6 @@ plot.CalGR <- function(x, xlab = NULL, ylab = NULL, main = NULL, which = c("per
} }
if (any(which[1L] %in% c("iter"))) { if (any(which[1L] %in% c("iter"))) {
ParamLab <- data.frame(Name = c(sprintf("X%i", 1:6), sprintf("C%i", 1:2)), ParamLab <- data.frame(Name = c(sprintf("X%i", 1:6), sprintf("C%i", 1:2)),
Label = c("prod. store capacity [mm]", Label = c("prod. store capacity [mm]",
"intercatchment exch. coef. [mm/TimeUnit]", "intercatchment exch. coef. [mm/TimeUnit]",
...@@ -106,6 +105,6 @@ plot.CalGR <- function(x, xlab = NULL, ylab = NULL, main = NULL, which = c("per ...@@ -106,6 +105,6 @@ plot.CalGR <- function(x, xlab = NULL, ylab = NULL, main = NULL, which = c("per
# legend("topright", legend = "NA", pch = 15, col = col.na, bty = "n", cex = 0.8) # legend("topright", legend = "NA", pch = 15, col = col.na, bty = "n", cex = 0.8)
# } # }
} }
box() # box()
} }
\ No newline at end of file
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