From 652f58915d56aa225fc01bff007f19f3277eed9f Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 9 Dec 2015 16:15:05 +0100
Subject: Improve mkinmod error message for missing target compartment
 definition

Closes #6.
---
 R/mkinmod.R | 1 +
 1 file changed, 1 insertion(+)

(limited to 'R')

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,
-- 
cgit v1.2.1