aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/PEC_sw_exposit_runoff.R5
-rw-r--r--R/TOXSWA_cwa.R4
2 files changed, 5 insertions, 4 deletions
diff --git a/R/PEC_sw_exposit_runoff.R b/R/PEC_sw_exposit_runoff.R
index 064b710..87fd88b 100644
--- a/R/PEC_sw_exposit_runoff.R
+++ b/R/PEC_sw_exposit_runoff.R
@@ -13,7 +13,7 @@
#' }
#' @source Excel 3.01 spreadsheet available from
#' \url{https://www.bvl.bund.de/DE/04_Pflanzenschutzmittel/03_Antragsteller/04_Zulassungsverfahren/07_Naturhaushalt/psm_naturhaush_node.html#doc1400590bodyText3}
-#' @export
+#' @export perc_runoff_exposit
#' @examples
#' print(perc_runoff_exposit)
Koc_breaks <- c(0, 20, 50, 100, 200, 500, 1000, 2000, 5000, 10000, 20000, 50000, Inf)
@@ -43,12 +43,11 @@ rownames(perc_runoff_exposit) <- Koc_classes
#' @export
#' @examples
#' print(perc_runoff_reduction_exposit)
-buffers <- c("No buffer", paste(c(5, 10, 20), "m"))
perc_runoff_reduction_exposit <- list(
"3.01" = data.frame(
dissolved = c(0, 40, 60, 80),
bound = c(0, 40, 85, 95),
- row.names = buffers),
+ row.names = c("No buffer", paste(c(5, 10, 20), "m"))),
"2.0" = data.frame(
dissolved = c(0, 97.5),
bound = c(0, 97.5),
diff --git a/R/TOXSWA_cwa.R b/R/TOXSWA_cwa.R
index eacd58f..4caafb6 100644
--- a/R/TOXSWA_cwa.R
+++ b/R/TOXSWA_cwa.R
@@ -1,4 +1,4 @@
-# Copyright (C) 2014,2015,2016,2017 Johannes Ranke
+# Copyright (C) 2014,2015,2016,2017,2018 Johannes Ranke
# Contact: jranke@uni-bremen.de
# This file is part of the R package pfm
@@ -14,6 +14,7 @@
# You should have received a copy of the GNU General Public License along with
# this program. If not, see <http://www.gnu.org/licenses/>
+if(getRversion() >= '2.15.1') utils::globalVariables(c("cwa"))
#' Read TOXSWA surface water concentrations
#'
@@ -40,6 +41,7 @@
#' @param thresholds Numeric vector of threshold concentrations in µg/L for
#' generating event statistics.
#' @importFrom readr read_fwf fwf_empty
+#' @importFrom grDevices dev.cur
#' @return An instance of an R6 object of class
#' \code{\link{TOXSWA_cwa}}.
#' @export

Contact - Imprint