diff --git a/R/get_result.R b/R/get_result.R index c28375fbfeb047dc004fbb768deaac92d762c6cd..b30db786a4582a72854bd3d7c9a85c92f781e869 100644 --- a/R/get_result.R +++ b/R/get_result.R @@ -49,6 +49,7 @@ get_result <- function(cfg, time_prms <- sapply(attrs, function(attr) { as.numeric(xml_attr(x_res, attr)) }) + tms <- seq(from = time_prms["TpsDebut"], to = time_prms["TpsFin"], by = time_prms["TpsPas"] * time_prms["TpsSauv"]) @@ -69,7 +70,7 @@ get_result <- function(cfg, paste(cols, collapse = "|") }) - m <- cbind(tms, m) + m <- cbind(tms, m[1:length(tms), ]) colnames(m) <- c("t", column_names) class(m) <- c("SicResult", class(m))