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.
---
 NEWS.md     | 2 ++
 R/mkinmod.R | 1 +
 2 files changed, 3 insertions(+)

diff --git a/NEWS.md b/NEWS.md
index 68d5a394..8e6ed11f 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -6,6 +6,8 @@
 
 - Add plots to `compiled_models` vignette
 
+- Give an explanatory error message when mkinmod fails due to a missing definition of a target variable
+
 ## mkin 0.9-41 (2015-11-09)
 
 ### Minor changes
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