Limiting size of data pull to prevent Postgres crashes

thehyve · Oct 7, 2018 · cef51ba · cef51ba
1 parent 7e013f1
commit cef51ba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/LegendMedCentral/DataPulls.R b/LegendMedCentral/DataPulls.R
@@ -147,7 +147,7 @@ getTcoDbs <- function(connection,
 }
 
 getTcoDbsStrict <- function(connection, exposureIds = c(), outcomeIds = c(), databaseIds = c()) {
-  sql <- "SELECT target_id, comparator_id, outcome_id, database_id FROM cohort_method_result WHERE analysis_id = 1"
+  sql <- "SELECT TOP 100 target_id, comparator_id, outcome_id, database_id FROM cohort_method_result WHERE analysis_id = 1"
   parts <- c()
   if (length(exposureIds) != 0) {
     for (exposureId in exposureIds) {