Fixes Open-Systems-Pharmacology#1082 no observed data does not crash …

…qualification time profile
pchelle · Jul 19, 2023 · de8223e · de8223e
1 parent 3fe4b28
commit de8223e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/qualification-time-profile.R b/R/qualification-time-profile.R
@@ -783,14 +783,14 @@ updateQualificationTimeProfilePlotConfiguration <- function(simulatedMetaData =
                                                             axesProperties = NULL,
                                                             plotConfiguration) {
   # Update plot configuration for simulated values
-  if (!isEmpty(simulatedMetaData)) {
+  if (!isEmpty(simulatedMetaData$id)) {
     sortedSimulatedMetaData <- order(simulatedMetaData$id)
     plotConfiguration$lines$color <- simulatedMetaData$color[sortedSimulatedMetaData]
     plotConfiguration$lines$linetype <- simulatedMetaData$linetype[sortedSimulatedMetaData]
     plotConfiguration$lines$size <- simulatedMetaData$size[sortedSimulatedMetaData]
   }
   # Update plot configuration for observed values
-  if (!isEmpty(observedMetaData)) {
+  if (!isEmpty(observedMetaData$id)) {
     sortedObservedMetaData <- order(observedMetaData$id)
     # offset of simulated data colors
     plotConfiguration$points$color <- c(