Update patient-level-prediction-modelSummary.R

OHDSI · Sep 13, 2024 · e50c0e3 · e50c0e3
1 parent eea1f31
commit e50c0e3
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/patient-level-prediction-modelSummary.R b/R/patient-level-prediction-modelSummary.R
@@ -387,9 +387,12 @@ getModelDesignInfo <- function(
   }
 
   modelType <- connectionHandler$queryDb(
-    'select distinct model_type from 
-    @schema.@plp_table_prefixmodels 
-    where model_design_id = @model_design_id;',
+    'select distinct ms.model_type from 
+    @schema.@plp_table_prefixmodel_settings ms
+    inner join 
+    @schema.@plp_table_prefixmodel_designs md
+    on ms.model_setting_id = md.model_setting_id
+    where md.model_design_id = @model_design_id;',
     schema = resultDatabaseSettings$schema,
     plp_table_prefix = resultDatabaseSettings$plpTablePrefix,
     model_design_id = modelDesignId()