Bad parameter passed

OHDSI · Sep 27, 2023 · 54ee8b7 · 54ee8b7
1 parent 0f4c073
commit 54ee8b7
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 6 deletions.
diff --git a/R/cohort-diagnostics-characterization.R b/R/cohort-diagnostics-characterization.R
@@ -805,7 +805,7 @@ cohortDiagCharacterizationModule <- function(
         analysis_ids = input$selectedRawAnalysisIds %>% unique(),
         time_id = selectedTimeIds() %>% unique(),
         domain_ids = quoteLiterals(input$characterizationDomainIdFilter %>% unique()),
-        table_prefix = dataSource$tablePrefix,
+        table_prefix = dataSource$cdTablePrefix,
         cohort_id = targetCohortId(),
         results_database_schema = dataSource$schema,
         database_id = quoteLiterals(selectedDatabaseIds()),

diff --git a/R/cohort-diagnostics-main.R b/R/cohort-diagnostics-main.R
@@ -419,11 +419,6 @@ cohortDiagnosticsServer <- function(id,
       createCdDatabaseDataSource(
         connectionHandler = connectionHandler,
         resultDatabaseSettings = resultDatabaseSettings,
-        #schema = resultDatabaseSettings$schema,
-        #vocabularyDatabaseSchema = resultDatabaseSettings$vocabularyDatabaseSchema, # is this in results?
-        #cdTablePrefix = resultDatabaseSettings$cdTablePrefix,
-        #cgTableName = resultDatabaseSettings$cgTable, # different for CD?
-        #databaseTableName = paste0(resultDatabaseSettings$databaseTablePrefix,resultDatabaseSettings$databaseTable),
         displayProgress = TRUE
       )
   }