From ba2dfcc45d8ea9db3cf4107177f4d8703d02a58a Mon Sep 17 00:00:00 2001 From: schuemie Date: Sun, 7 Oct 2018 04:09:59 -0400 Subject: [PATCH] Fixed bug introduced in last commit --- LegendMedCentral/DataPulls.R | 1 + 1 file changed, 1 insertion(+) diff --git a/LegendMedCentral/DataPulls.R b/LegendMedCentral/DataPulls.R index 7e9f9db0..18a066e8 100644 --- a/LegendMedCentral/DataPulls.R +++ b/LegendMedCentral/DataPulls.R @@ -164,6 +164,7 @@ getTcoDbsStrict <- function(connection, exposureIds = c(), outcomeIds = c(), dat if (length(parts) != 0) { sql <- paste(sql, "AND", paste(parts, collapse = " AND ")) } + sql <- paste0(sql, ";") sql <- SqlRender::translateSql(sql, targetDialect = connection@dbms)$sql tcoDbs <- querySql(connection, sql) colnames(tcoDbs) <- SqlRender::snakeCaseToCamelCase(colnames(tcoDbs))