From de8223e9faac2f1075dfbd8f7f9c3528f904c110 Mon Sep 17 00:00:00 2001
From: Unknown <chelle.pierre@gmail.com>
Date: Wed, 19 Jul 2023 03:29:28 -0400
Subject: [PATCH] Fixes #1082 no observed data does not crash qualification
 time profile

---
 R/qualification-time-profile.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/qualification-time-profile.R b/R/qualification-time-profile.R
index 6049e532..2752c84e 100644
--- 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(