From 1ae6ddabdaffc54ab1f3b9113dc469792ffca1f6 Mon Sep 17 00:00:00 2001 From: TitouanRobert Date: Fri, 20 Oct 2017 14:51:05 +0200 Subject: [PATCH] correcting size file --- R/antaresReadH5.R | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/R/antaresReadH5.R b/R/antaresReadH5.R index 8746089..8fedf37 100644 --- 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 }