From ffeec05d913f2e987da362c05df2afc2a8a23965 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 29 Jan 2018 10:11:27 +0100
Subject: Documentation fixes and updates

---
 R/PEC_sw_exposit_runoff.R | 9 ++++-----
 R/TOXSWA_cwa.R            | 4 +++-
 2 files changed, 7 insertions(+), 6 deletions(-)

(limited to 'R')

diff --git a/R/PEC_sw_exposit_runoff.R b/R/PEC_sw_exposit_runoff.R
index 064b710..f56b8f8 100644
--- a/R/PEC_sw_exposit_runoff.R
+++ b/R/PEC_sw_exposit_runoff.R
@@ -13,12 +13,12 @@
 #'   }
 #' @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)
+{Koc_breaks <- c(0, 20, 50, 100, 200, 500, 1000, 2000, 5000, 10000, 20000, 50000, Inf)
 tmp <- paste(Koc_breaks[1:11], Koc_breaks[2:12], sep = "-")
-Koc_classes <- c(tmp[1], paste0(">", tmp[2:11]), ">50000")
+Koc_classes <- c(tmp[1], paste0(">", tmp[2:11]), ">50000")}
 perc_runoff_exposit <- data.frame(
   Koc_lower_bound = Koc_breaks[1:12],
   dissolved = c(0.11, 0.151, 0.197, 0.248, 0.224, 0.184, 0.133, 0.084, 0.037, 0.031, 0.014, 0.001),
@@ -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
-- 
cgit v1.2.1