correcting size file

rte-antares-rpackage · Oct 20, 2017 · 1ae6dda · 1ae6dda
1 parent c724372
commit 1ae6dda
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/antaresReadH5.R b/R/antaresReadH5.R
@@ -718,6 +718,12 @@ h5ReadAntares <- function(path, areas = NULL, links = NULL, clusters = NULL,
   {
     data[, "mcYear" := rep(struct$mcyLoad, each = dimData[1] * dimData[3])]
   }
+  integerVariableS <- integerVariable[integerVariable%in%names(data)]
+  if(length(integerVariableS)){
+    ordervar <- names(data)[ match(integerVariableS, names(data))]
+    data[,c(ordervar) := lapply(.SD, as.integer), .SDcols = ordervar]
+  }
+
   data
 }