Commit f8853815 authored by unknown's avatar unknown
Browse files

v1.0.5.4 Bug fixed in plot.OutputsModel. There is no more error return when which = "Temp" #4490

parent 34bd0f89
Package: airGR
Type: Package
Title: Suite of GR hydrological models for precipitation-runoff modelling
Version: 1.0.5.3
Version: 1.0.5.4
Date: 2017-01-19
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
......
......@@ -21,7 +21,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
if( is.null( which)){ stop("which must be a vector of character \n"); return(NULL); }
if(!is.vector( which)){ stop("which must be a vector of character \n"); return(NULL); }
if(!is.character(which)){ stop("which must be a vector of character \n"); return(NULL); }
if(sum(which %in% c("all", "Precip", "SnowPack", "Flows", "Regime", "CumFreq", "CorQQ") == FALSE) != 0){
if(sum(which %in% c("all", "Precip", 'Temp', "SnowPack", "Flows", "Regime", "CumFreq", "CorQQ") == FALSE) != 0){
cat("Incorrect element found in which \n");
stop("which can only contain 'all', 'Precip', 'Temp', 'SnowPack', 'Flows', 'Regime', 'CumFreq' or 'CorQQ') \n");
return(NULL); }
......
......@@ -18,13 +18,13 @@ citEntry(entry="Manual",
author = personList(as.person("L. Coron"), as.person("C. Perrin"), as.person("C. Michel")),
journal = "R News",
year = "2017",
note = "R package version 1.0.5.3",
note = "R package version 1.0.5.4",
url = "https://webgr.irstea.fr/airGR/?lang=en",
textVersion =
paste("Coron, L., Perrin, C. and Michel, C.",
"(2017).",
"airGR: Suite of GR hydrological models for precipitation-runoff modelling.",
"R package version 1.0.5.3.",
"R package version 1.0.5.4.",
"https://webgr.irstea.fr/airGR/?lang=en.",
sep = " ")
)
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