From 71d43b104999d7aee96d35ff2a9006f739d2df60 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Tue, 1 Jul 2014 23:23:52 +0200
Subject: Support formation fractions without sink pathway, updates

---
 R/mkinmod.R | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'R/mkinmod.R')

diff --git a/R/mkinmod.R b/R/mkinmod.R
index 49ec4a44..fe5e8142 100644
--- a/R/mkinmod.R
+++ b/R/mkinmod.R
@@ -164,9 +164,6 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL)
           diffs[[target_box]] <- paste(diffs[[target_box]], "+", 
             k_from_to, "*", origin_box)
         } else {
-          if (!spec[[varname]]$sink) {
-            stop("Turning off the sink when using formation fractions is not supported")
-          }
           fraction_to_target = paste("f", origin_box, "to", target, sep="_")
           parms <- c(parms, fraction_to_target)
           diffs[[target_box]] <- paste(diffs[[target_box]], "+", 
-- 
cgit v1.2.1