diff options
Diffstat (limited to 'R')
-rw-r--r-- | R/PEC_sw_exposit_runoff.R | 5 | ||||
-rw-r--r-- | R/TOXSWA_cwa.R | 4 |
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 |