aboutsummaryrefslogtreecommitdiff
path: root/pkg
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2016-09-27 17:50:34 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2016-09-27 17:50:34 +0200
commit0d958ab6f84b569b5437f231c56004890c4ae23b (patch)
tree263bf0f3df0671bffd7af643d7a9cdd45a1e9536 /pkg
parent399383adcdb37c4a3e32f1a2133a2fa3663618d0 (diff)
Make the chents package optional
Diffstat (limited to 'pkg')
-rw-r--r--pkg/DESCRIPTION8
-rw-r--r--pkg/R/endpoint.R3
2 files changed, 7 insertions, 4 deletions
diff --git a/pkg/DESCRIPTION b/pkg/DESCRIPTION
index 0d7f5bc..f9de23c 100644
--- a/pkg/DESCRIPTION
+++ b/pkg/DESCRIPTION
@@ -1,8 +1,8 @@
Package: pfm
Type: Package
Title: Utilities for Pesticide Fate Modelling
-Version: 0.3-7
-Date: 2016-07-30
+Version: 0.3-8
+Date: 2016-09-26
Authors@R: person("Johannes Ranke", email = "jranke@uni-bremen.de",
role = c("aut", "cre", "cph"))
Description: Utilities for simple calculations of predicted environmental
@@ -13,11 +13,11 @@ Depends:
mkin
Imports:
graphics,
- chents,
readr,
methods
Suggests:
- testthat
+ testthat,
+ chents
License: GPL
LazyLoad: yes
LazyData: yes
diff --git a/pkg/R/endpoint.R b/pkg/R/endpoint.R
index 68e47f7..314acd2 100644
--- a/pkg/R/endpoint.R
+++ b/pkg/R/endpoint.R
@@ -41,6 +41,9 @@ endpoint <- function(chent,
raw = FALSE,
signif = 3)
{
+ if (!is(chent, "chent")) {
+ stop("Please supply a chent object as created using the package 'chents' available from jrwb.de")
+ }
ep_list <- chent$chyaml[[medium]][[type]]
if (!is.na(lab_field[1])) {
ep_list <- ep_list[[lab_field]]

Contact - Imprint