From e40ea363e1c7703a440924e951843ccbcc3b1fea Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Sun, 7 Mar 2021 18:04:55 +0100
Subject: [PATCH] fix: Bug on '...' argument which should be applied only on
`maptplot`
Refs #19
---
R/plot.Qm3s.R | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/R/plot.Qm3s.R b/R/plot.Qm3s.R
index bdd3dde..80793de 100644
--- a/R/plot.Qm3s.R
+++ b/R/plot.Qm3s.R
@@ -6,10 +6,10 @@
#' @param ylab a label for the y axis, defaults to "Flow (m3/s)"
#' @param main a main title for the plot, defaults to "Simulated flows"
#' @param col plotting color (See [par]), defaults to rainbow colors
-#' @param legend See parameter `legend` of [legend]
+#' @param legend See parameter `legend` of [legend]. Set to [NULL] to not display the legend
#' @param legend.cex `cex` parameter for the text of the legend (See [par])
#' @param lty The line type (See [par])
-#' @param ... Further arguments to pass to [plot] or [legend] functions
+#' @param ... Further arguments to pass to the [matplot] functions
#'
#' @importFrom grDevices rainbow
#' @importFrom graphics matplot
@@ -24,7 +24,7 @@ plot.Qm3s <- function(x,
legend = colnames(x)[-1],
legend.cex = 0.7,
lty = 1,
- ...) {
+ ...) {
matplot(
x$DatesR,
x[, -1],
@@ -35,9 +35,11 @@ plot.Qm3s <- function(x,
main = main,
col = col, ...
)
- legend('topright',
- legend = legend,
- cex = legend.cex,
- lty = lty,
- col = col, ...)
+ if(!is.null(legend)) {
+ legend('topright',
+ legend = legend,
+ cex = legend.cex,
+ lty = lty,
+ col = col)
+ }
}
--
GitLab