1251 group (#1263)

* Fixes #1251 Outputs grouped by groupID in time profile and residuals

* Update tests to account for new outcomes

* Add Group column in qualification simulated data.frame

R/captions.R

@@ -250,6 +250,15 @@ getDataSourceCaption <- function(structureSet) {
 }
 
 getGoodnessOfFitCaptions <- function(structureSet, plotType, plotScale = "linear", settings = NULL) {
+  if (is.null(structureSet)) {
+    plotCaption <- captions$plotGoF[[plotType]](
+      simulationSetName = settings$simulationSetNames,
+      descriptor = settings$simulationSetDescriptor,
+      plotScale = plotScale,
+      pathName = settings$groupID
+    )
+    return(plotCaption)
+  }
   dataSource <- getDataSourceCaption(structureSet)
   simulationSetName <- structureSet$simulationSet$simulationSetName
   setDescriptor <- structureSet$simulationSetDescriptor

R/error-checks.R

@@ -661,3 +661,33 @@ checkSamePopulationIds <- function(setIds,
   )
   return(invisible())
 }
+
+#' @title checkMetaDataIsConsistent
+#' @description
+#' Check consistency of metadata units, dimensions and residuals scale
+#' @param metaData A data.frame summarizing meta data of multiple `SimulationSet` and `Output` objects
+#' @keywords internal
+checkMetaDataIsConsistent <- function(metaData) {
+  groupId <- unique(metaData$group)
+  if(!isOfLength(unique(metaData$unit), 1)){
+    warning(
+      messages$inconsistentMetaData(
+        values = metaData$unit, 
+        id = groupId, 
+        dataType = "units"
+        ),
+      call. = FALSE
+      )
+  }
+  if(!isOfLength(unique(metaData$residualScale), 1)){
+    warning(
+      messages$inconsistentMetaData(
+        values = metaData$residualScale, 
+        id = groupId, 
+        dataType = "residualScale"
+      ),
+      call. = FALSE
+    )
+  }
+  return()
+}