From f61279371e29d00bbac723df6b3f77e38da157da Mon Sep 17 00:00:00 2001 From: tsemharb Date: Thu, 1 Jun 2023 11:04:43 +0300 Subject: [PATCH] remove unused parameters --- R/RunStudy.R | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/R/RunStudy.R b/R/RunStudy.R index 6d55100..7e1c6f8 100644 --- 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))