From 1d11ffb1af626367bb14fb3a6f80e9cb22e4dc3f Mon Sep 17 00:00:00 2001 From: pchelle Date: Mon, 9 Sep 2024 07:03:11 -0400 Subject: [PATCH] Fixes #1278 goodness of fit export all the outputs --- R/utilities-goodness-of-fit.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/utilities-goodness-of-fit.R b/R/utilities-goodness-of-fit.R index 9308d51e..55f9999d 100644 --- 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, ]