Fixed bug introduced in last commit

thehyve · Oct 7, 2018 · ba2dfcc · ba2dfcc
1 parent cef51ba
commit ba2dfcc
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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))