From ee070c11f7c7faff2f573d27cf32aafab78971a8 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 7 Jan 2015 23:56:54 +0100
Subject: Pass ... parameters to added cwa lines

---
 pkg/R/TOXSWA_cwa.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pkg/R')

diff --git a/pkg/R/TOXSWA_cwa.R b/pkg/R/TOXSWA_cwa.R
index 113dc42..3f7181d 100644
--- a/pkg/R/TOXSWA_cwa.R
+++ b/pkg/R/TOXSWA_cwa.R
@@ -90,7 +90,7 @@ plot.TOXSWA_cwa <- function(x, time_column = c("datetime", "t", "t_firstjan"),
     ylab = paste( ifelse(total, "Total concentration", "Concentration"), "[\u03bcg/L]")
   }
   if (add) {
-    lines(x$cwas[c(time_column, cwa_column)], xlab = xlab, ylab = ylab)
+    lines(x$cwas[c(time_column, cwa_column)], xlab = xlab, ylab = ylab, ...)
   } else{
     plot(x$cwas[c(time_column, cwa_column)], type = "l",
          xlab = xlab, ylab = ylab, ...)
-- 
cgit v1.2.1