plotPopulationTimeProfile range color does not match line color if multiple results are assigned to the same group

[PavelBal]

Both shaded areas should have the color of the line (blue). They will not be distinguishable, but that's fine.

simFilePath <- system.file("extdata", "Aciclovir.pkml", package = "ospsuite")
sim <- loadSimulation(simFilePath)

outputPath <- c("Organism|PeripheralVenousBlood|Aciclovir|Plasma (Peripheral Venous Blood)",
                "Organism|Muscle|Intracellular|Aciclovir|Concentration")

simResults <- importResultsFromCSV(simulation = sim, filePaths = system.file("extdata", "SimResults_pop.csv", package = "ospsuite"))

obsData <- lapply(c("ObsDataAciclovir_1.pkml", "ObsDataAciclovir_3.pkml"),
                  \(x){loadDataSetFromPKML(system.file("extdata", x, package = "ospsuite"))})

names(obsData) <- lapply(obsData, \(x){x$name})


myDataCombined <- DataCombined$new()
# Add simulated results
myDataCombined$addSimulationResults(simulationResults = simResults,
                                    quantitiesOrPaths = outputPaths,
                                    groups = "Aciclovir PVB")

plotPopulationTimeProfile(myDataCombined)

[IndrajeetPatil]

This should be fixed in #1054

library(ospsuite)
#> Loading required package: rClr
#> Loading the dynamic library for Microsoft .NET runtime...
#> Loaded Common Language Runtime version 4.0.30319.42000

simFilePath <- system.file("extdata", "Aciclovir.pkml", package = "ospsuite")
sim <- loadSimulation(simFilePath)

outputPaths <- c(
  "Organism|PeripheralVenousBlood|Aciclovir|Plasma (Peripheral Venous Blood)",
  "Organism|Muscle|Intracellular|Aciclovir|Concentration"
)

simResults <- importResultsFromCSV(
  simulation = sim,
  filePaths = system.file("extdata", "SimResults_pop.csv", package = "ospsuite")
)

myDataCombined <- DataCombined$new()

myDataCombined$addSimulationResults(
  simulationResults = simResults,
  quantitiesOrPaths = outputPaths,
  groups = "Aciclovir PVB"
)

plotPopulationTimeProfile(myDataCombined)

^{Created on 2022-08-10 by the reprex package (v2.0.1.9000)}