From b596b1cc708ebbdaa40959399cac803abfe0f711 Mon Sep 17 00:00:00 2001
From: David <david.dorchies@inrae.fr>
Date: Tue, 31 Dec 2024 17:06:17 +0100
Subject: [PATCH] fix(RunModel): remove rownames to attribute Qm3s
Refs#179
---
R/utils.RunModel.R | 2 ++
1 file changed, 2 insertions(+)
diff --git a/R/utils.RunModel.R b/R/utils.RunModel.R
index 56cc789..9f5bb67 100644
--- a/R/utils.RunModel.R
+++ b/R/utils.RunModel.R
@@ -49,6 +49,7 @@ OutputsModelQsim <- function(InputsModel, OutputsModel, IndPeriod_Run) {
dfQsim <- cbind(data.frame(DatesR = InputsModel[[1]]$DatesR[IndPeriod_Run]),
do.call(cbind,lQsim) / attr(InputsModel, "TimeStep"))
dfQsim <- as.Qm3s(dfQsim)
+ rownames(dfQsim) <- NULL
return(dfQsim)
}
@@ -159,6 +160,7 @@ merge.GRiwrmOutputsModel <- function(x, y, ...) {
})
attributes(y) <- y_attributes
attr(y, "Qm3s") <- rbind(attr(x, "Qm3s"), attr(y, "Qm3s"))
+ rownames(attr(y, "Qm3s")) <- NULL
return(y)
}
--
GitLab