From 572e2a0ef7a0c0eb698233d5cb37a77ea91058ce Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Mon, 28 Mar 2022 17:33:31 +0200
Subject: [PATCH] fix: error in get_result when simulation has crashed
Fix #17
---
R/get_result.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/get_result.R b/R/get_result.R
index c28375f..b30db78 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))
--
GitLab