From 311c4fbcc51ad727551da41569d64e6bc290c2b2 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 6 Oct 2017 09:30:21 +0200
Subject: Update docs, small bugfix

---
 R/PEC_sw_focus.R | 4 ++--
 1 file 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")
   }
 
-- 
cgit v1.2.1