remove unused parameters

bdemeulder · Jun 1, 2023 · f612793 · f612793
1 parent 22bc195
commit f612793
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/R/RunStudy.R b/R/RunStudy.R
@@ -342,9 +342,7 @@ runStudy <- function(connectionDetails = NULL,
     sqlFilename = file.path("quartiles", "AgeAtDiagnosis.sql"),
     packageName = getThisPackageName(),
     warnOnMissingParameters = TRUE,
-    cohort_database_schema = cohortDatabaseSchema,
-    cohort_table = cohortTable,
-    target_ids = paste(targetIds, collapse = ', '))
+    cohort_database_schema = cohortDatabaseSchema)
   sql <- paste0(sql, sqlAggreg)
   metrics <- rbind(metrics, DatabaseConnector::querySql(connection, sql, snakeCaseToCamelCase = T))
 
@@ -362,9 +360,7 @@ runStudy <- function(connectionDetails = NULL,
     sqlFilename = file.path("quartiles", "CharlsonAtDiagnosis.sql"),
     packageName = getThisPackageName(),
     warnOnMissingParameters = TRUE,
-    cohort_database_schema = cohortDatabaseSchema,
-    cohort_table = cohortTable,
-    target_ids = paste(targetIds, collapse = ', '))
+    cohort_database_schema = cohortDatabaseSchema)
   sql <- paste0(sql, sqlAggreg)
   metrics <- rbind(metrics, DatabaseConnector::querySql(connection, sql, snakeCaseToCamelCase = T))