diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-10-06 09:30:21 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-10-06 09:30:21 +0200 |
| commit | 311c4fbcc51ad727551da41569d64e6bc290c2b2 (patch) | |
| tree | 0a3ba056a8d547fae2ac812728fe41073708ae75 /R | |
| parent | 72d7358581bca88af8c507b6c80791100aaafafc (diff) | |
Update docs, small bugfix
Diffstat (limited to 'R')
| -rw-r--r-- | R/PEC_sw_focus.R | 4 |
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") } |