From e50c0e3d2ffbea870ada93b075b2d7af468ea96a Mon Sep 17 00:00:00 2001 From: jreps Date: Fri, 13 Sep 2024 13:13:55 -0400 Subject: [PATCH] Update patient-level-prediction-modelSummary.R --- R/patient-level-prediction-modelSummary.R | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/R/patient-level-prediction-modelSummary.R b/R/patient-level-prediction-modelSummary.R index 8b0a734..9dee5c0 100644 --- 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()