aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2017-10-06 09:30:21 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2017-10-06 09:30:21 +0200
commit311c4fbcc51ad727551da41569d64e6bc290c2b2 (patch)
tree0a3ba056a8d547fae2ac812728fe41073708ae75 /R
parent72d7358581bca88af8c507b6c80791100aaafafc (diff)
Update docs, small bugfix
Diffstat (limited to 'R')
-rw-r--r--R/PEC_sw_focus.R4
1 files changed, 2 insertions, 2 deletions
diff --git a/R/PEC_sw_focus.R b/R/PEC_sw_focus.R
index 3f67be8..1564535 100644
--- a/R/PEC_sw_focus.R
+++ b/R/PEC_sw_focus.R
@@ -55,7 +55,7 @@
#' Steps.12 input text file to which the specification of the run(s)
#' should be written
#' @param overwrite Should an existing file a the location specified in
-#' \code{txt_file} be overwritten?
+#' \code{txt_file} be overwritten? Only takes effect if append is FALSE.
#' @param append Should the input text file be appended?
#' @examples
#' # Parent only
@@ -310,7 +310,7 @@ PEC_sw_focus <- function(parent, rate, n = 1, i = NA,
# Check if PEC_sw_max is above water solubility
PEC_sw_max = max(PEC[, "PECsw"])
- if (PEC_sw_max > 1000 * cwsat) {
+ if (!is.na(PEC_sw_max) & PEC_sw_max > 1000 * cwsat) {
warning("The maximum PEC surface water exceeds the water solubility")
}

Contact - Imprint