Fixes Open-Systems-Pharmacology#1278 goodness of fit export all the o…

…utputs
pchelle · Sep 9, 2024 · 1d11ffb · 1d11ffb
1 parent 7444997
commit 1d11ffb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utilities-goodness-of-fit.R b/R/utilities-goodness-of-fit.R
@@ -843,8 +843,8 @@ getTimeProfilePlotResults <- function(workflowType, timeRange, simulatedData, ob
 
   outputGroups <- getOutputGroups(metaDataFrame)
   for (outputGroup in outputGroups) {
-    resultId <- paste0("timeProfile-", utils::head(outputGroup$dimension, 1))
-    resultIdLog <- paste0("timeProfileLog-", utils::head(outputGroup$dimension, 1))
+    resultId <- paste0("timeProfile-", length(goodnessOfFitPlots)+1)
+    resultIdLog <- paste0("timeProfileLog-", length(goodnessOfFitPlots)+2)
 
     selectedSimulatedData <- simulatedData[simulatedData$Group %in% outputGroup$group, ]
     selectedObservedData <- observedData[observedData$Group %in% outputGroup$group, ]