diff --git a/R/writeDDL.R b/R/writeDDL.R index 810cce8..8ec2af9 100644 --- a/R/writeDDL.R +++ b/R/writeDDL.R @@ -31,7 +31,8 @@ writeDdl <- function(targetDialect, cdmVersion, outputfolder, cdmDatabaseSchema = "@cdmDatabaseSchema") { # argument checks - stopifnot(targetDialect %in% c("oracle", "postgresql", "pdw", "redshift", "impala", "netezza", "bigquery", "sql server", "spark", "snowflake", "synapse")) + supportedDialects <- SqlRender::listSupportedDialects()$dialect + stopifnot(targetDialect %in% supportedDialects) stopifnot(cdmVersion %in% listSupportedVersions()) stopifnot(is.character(cdmDatabaseSchema))