From ee070c11f7c7faff2f573d27cf32aafab78971a8 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 7 Jan 2015 23:56:54 +0100 Subject: Pass ... parameters to added cwa lines --- pkg/DESCRIPTION | 2 +- pkg/R/TOXSWA_cwa.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pkg/DESCRIPTION b/pkg/DESCRIPTION index dc3db7e..0fe9fc5 100644 --- a/pkg/DESCRIPTION +++ b/pkg/DESCRIPTION @@ -2,7 +2,7 @@ Package: pfm Type: Package Title: Utilities for pesticide fate modelling Version: 0.1-1 -Date: 2014-12-19 +Date: 2015-01-07 Authors@R: "Johannes Ranke [aut, cre, cph]" Description: Utilities for dealing with data from FOCUS software tools. Depends: R6 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