diff --git a/DESCRIPTION b/DESCRIPTION index 6d7bc79589e6293eeb47b264cf7624526c309a49..5e006f13c0c72d29fcbfe283a3dc0876a0f8d912 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: airGR Type: Package Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling -Version: 1.0.5.21 -Date: 2017-02-16 +Version: 1.0.5.22 +Date: 2017-02-23 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl")), person("Charles", "Perrin", role = c("aut", "ths")), diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R index 4bb142074ff2e607d2c366df006b22c4c6cf3503..5a1595186baee221a155733ee9999a52b6e7278f 100644 --- a/R/plot.OutputsModel.R +++ b/R/plot.OutputsModel.R @@ -104,19 +104,19 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = matlayout <- rbind(matlayout, iPlot+1); iPlot <- iPlot+1; } iPlotMax <- iPlot; - isRStudio <- Sys.getenv("RSTUDIO") == "1"; - if(!isRStudio){ - if(Sum1 == 1 & Sum2 == 0){ width = 10; height = 05; } - if(Sum1 == 1 & Sum2 != 0){ width = 10; height = 07; } - if(Sum1 == 2 & Sum2 == 0){ width = 10; height = 05; } - if(Sum1 == 2 & Sum2 != 0){ width = 10; height = 07; } - if(Sum1 == 3 & Sum2 == 0){ width = 10; height = 07; } - if(Sum1 == 3 & Sum2 != 0){ width = 10; height = 10; } - if(Sum1 == 0 & Sum2 == 1){ width = 05; height = 05; } - if(Sum1 == 0 & Sum2 == 2){ width = 10; height = 04; } - if(Sum1 == 0 & Sum2 == 3){ width = 10; height = 03; } - dev.new(width = width, height = height) - } + # isRStudio <- Sys.getenv("RSTUDIO") == "1"; + # if(!isRStudio){ + # if(Sum1 == 1 & Sum2 == 0){ width = 10; height = 05; } + # if(Sum1 == 1 & Sum2 != 0){ width = 10; height = 07; } + # if(Sum1 == 2 & Sum2 == 0){ width = 10; height = 05; } + # if(Sum1 == 2 & Sum2 != 0){ width = 10; height = 07; } + # if(Sum1 == 3 & Sum2 == 0){ width = 10; height = 07; } + # if(Sum1 == 3 & Sum2 != 0){ width = 10; height = 10; } + # if(Sum1 == 0 & Sum2 == 1){ width = 05; height = 05; } + # if(Sum1 == 0 & Sum2 == 2){ width = 10; height = 04; } + # if(Sum1 == 0 & Sum2 == 3){ width = 10; height = 03; } + # dev.new(width = width, height = height) + # } layout(matlayout); Xaxis <- 1:length(IndPeriod_Plot);