Fixes estimation bug when target has no comparator for CM

OHDSI · Jul 30, 2024 · a7b6685 · a7b6685
1 parent a0ccde7
commit a7b6685
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/estimation-cohort-method-diagnostics.R b/R/estimation-cohort-method-diagnostics.R
@@ -92,6 +92,7 @@ estimationGetCmDiagnostics <- function(
       {@use_analyses}?{and cma.analysis_id in (@analyses)}
       ;
   "
+  print(comparatorIds)
 
   result <- connectionHandler$queryDb(
     sql = sql,
@@ -104,7 +105,7 @@ estimationGetCmDiagnostics <- function(
     comparators = paste0(comparatorIds, collapse = ','),
     outcomes = paste0(outcomeId, collapse = ','),
 
-    use_comparators = T,
+    use_comparators = ifelse(is.null(comparatorIds), F, T),
     use_analyses = F
   )