From 517593a16846051a70557d2b0f0243c7455ba495 Mon Sep 17 00:00:00 2001
From: Baptiste Seguinot <baptiste.seguinot@rte-france.com>
Date: Fri, 9 Feb 2018 16:25:30 +0100
Subject: [PATCH] Return error when transmission capacities are not enabled
 (null or inifinite) #27

---
 R/check.R | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/R/check.R b/R/check.R
index b252fc9..5839e40 100644
--- a/R/check.R
+++ b/R/check.R
@@ -13,6 +13,7 @@
 #' 
 #' @importFrom  antaresRead simOptions readClusterDesc
 #' @importFrom dplyr filter
+#' @importFrom antaresEditObject readIniFile
 #' @noRd
 #' 
 benders_check <- function(candidates, opts = antaresRead::simOptions())
@@ -37,6 +38,21 @@ benders_check <- function(candidates, opts = antaresRead::simOptions())
   #2. for all link which are candidates, transmission capacities should not be put to infinite
   for(c in candidates)
   {
+    #load file containing link properties            
+    link_file_name <- paste(opts$inputPath,"/links/" ,from(c$link),"/", "properties.ini",sep="")
+    
+    # check that this file exists
+    assertthat::assert_that(file.exists(link_file_name))
+    
+    # read it
+    link_properties <- antaresEditObject::readIniFile(link_file_name)
+    assertthat::assert_that(to(c$link) %in% names(link_properties))
+    assertthat::assert_that("transmission-capacities" %in% names(link_properties[[to(c$link)]]))
+    
+    if(link_properties[[to(c$link)]]$`transmission-capacities` != "enabled")
+    {
+      stop("transmission capacities of expansion candidates must be 'enabled' (see : ", c$link, ")") 
+    }
     
   }