diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-12-09 16:15:05 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-12-09 16:15:05 +0100 |
| commit | 652f58915d56aa225fc01bff007f19f3277eed9f (patch) | |
| tree | 4ce6cd1a3edd08b15e9b260ec1a2d2c14635bc68 /R | |
| parent | 556598ba543cf655cdc0a6995cc579327f9540ad (diff) | |
Improve mkinmod error message for missing target compartment definition
Closes #6.
Diffstat (limited to 'R')
| -rw-r--r-- | R/mkinmod.R | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/R/mkinmod.R b/R/mkinmod.R index f98a3803..c70f1260 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -180,6 +180,7 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL, quiet = FALSE, verb # Add transfer terms to listed compartments
for (target in to) {
+ if (!target %in% obs_vars) stop("You did not specify a submodel for target variable ", target)
target_box <- switch(spec[[target]]$type,
SFO = target,
IORE = target,
|