From 440096b27164c0e6afa5ce27e7860bf1e95a85a1 Mon Sep 17 00:00:00 2001
From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv>
Date: Wed, 7 Dec 2016 10:09:21 +0100
Subject: [PATCH] #4198 add a text on the plot if log_scale = TRUE in
plot_OutputsModel
---
R/plot_OutputsModel.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/plot_OutputsModel.R b/R/plot_OutputsModel.R
index 4b34e528..26e38734 100644
--- a/R/plot_OutputsModel.R
+++ b/R/plot_OutputsModel.R
@@ -174,7 +174,7 @@ plot_OutputsModel <- function(OutputsModel, Qobs = NULL, IndPeriod_Plot = NULL,
##Flows
- if(BOOLPLOT_Flows & log_scale){
+ if(BOOLPLOT_Flows & log_scale) {
kPlot <- kPlot+1; mar <- c(3,5,1,5);
par(new=FALSE,mar=mar,las=0)
@@ -204,6 +204,7 @@ plot_OutputsModel <- function(OutputsModel, Qobs = NULL, IndPeriod_Plot = NULL,
axis(side=1,at=Seq2,labels=Labels2,lwd.ticks=1.5,cex.axis=cexaxis);
} else { axis(side=1,at=pretty(Xaxis),labels=pretty(Xaxis),cex.axis=cexaxis); }
legend("topright",txtleg,col=colleg,lty=1,lwd=lwdLine,bty="o",bg=bgleg,box.col=bgleg,cex=cexleg)
+ legend("bottomright","log scale",lty=1,col=NA,bty="o",bg=bgleg,box.col=bgleg,cex=cexleg)
box()
}
if(BOOLPLOT_Flows & !log_scale){
--
GitLab