mz-health/OMOP
mz-health
/
OMOP
mirror of https://github.com/OHDSI/CommonDataModel.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Allow user to specify output location in buildRelease

This commit is contained in:
Adam Black 2021-08-20 11:05:46 -04:00
parent d1186aacbe
commit 57d40c2a7d
1 changed files with 24 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
R/buildRelease.R
View File

@ -19,25 +19,36 @@
#' Writes DDL, ForeignKey, PrimaryKey and index SQL files for given cdmVersion #' Writes DDL, ForeignKey, PrimaryKey and index SQL files for given cdmVersion
#' and targetDialect to the 'ddl' folder in current working directory. #' and targetDialect to the 'ddl' folder in current working directory.
#' #'
#' @param cdmVersion The version of the CDM you are creating, e.g. 5.3, 5.4. #' @param cdmVersions The versions of the CDM you are creating, e.g. 5.3, 5.4.
#' Defaults to all supported CDM versions. #' Defaults to all supported CDM versions.
#' @param targetDialect The target dialect #' @param targetDialects A character vector of target dialects.
#' Defaults to all supported dialects.
#' @param outputfolder The base folder where the SQL files will be written.
#' Subfolders will be created for each cdmVersion and targetDialect.
#' #'
buildRelease <- function(cdmVersion = listSupportedVersions(), buildRelease <- function(cdmVersions = listSupportedVersions(),
targetDialect = listSupportedDialects()){ targetDialects = listSupportedDialects(),
for (cdmVersion in cdmVersion) { outputfolder = file.path(getwd(), "ddl")){
for (targetDialect in targetDialect) { basefolder <- outputfolder
for (cdmVersion in cdmVersions) {
for (targetDialect in targetDialects) {
outputfolder <- file.path(basefolder, cdmVersion, gsub(" ", "_", targetDialect))
writeDdl(targetDialect = targetDialect, writeDdl(targetDialect = targetDialect,
cdmVersion = cdmVersion) cdmVersion = cdmVersion,
outputfolder = outputfolder)
writePrimaryKeys(targetDialect = targetDialect, writePrimaryKeys(targetDialect = targetDialect,
cdmVersion = cdmVersion) cdmVersion = cdmVersion,
outputfolder = outputfolder)
writeForeignKeys(targetDialect = targetDialect, writeForeignKeys(targetDialect = targetDialect,
cdmVersion = cdmVersion) cdmVersion = cdmVersion,
outputfolder = outputfolder)
writeIndex(targetDialect = targetDialect, writeIndex(targetDialect = targetDialect,
cdmVersion = cdmVersion) cdmVersion = cdmVersion,
outputfolder = outputfolder)
} }
} }
} }
@ -62,7 +73,7 @@ buildRelease <- function(cdmVersion = listSupportedVersions(),
#' #'
buildReleaseZip <- function(cdmVersion, buildReleaseZip <- function(cdmVersion,
targetDialect = listSupportedDialects(), targetDialect = listSupportedDialects(),
outputfolder = "output"){ outputfolder = file.path(getwd(), "ddl")){
# argument checks # argument checks
stopifnot(is.character(cdmVersion), length(cdmVersion) == 1, cdmVersion %in% listSupportedVersions()) stopifnot(is.character(cdmVersion), length(cdmVersion) == 1, cdmVersion %in% listSupportedVersions())
@ -72,8 +83,8 @@ buildReleaseZip <- function(cdmVersion,
files <- c() files <- c()
for (dialect in targetDialect) { for (dialect in targetDialect) {
buildRelease(cdmVersion, dialect) buildRelease(cdmVersion, dialect, outputfolder = outputfolder)
files <- c(files, list.files(file.path('ddl', cdmVersion, gsub(" ", "_", dialect)), files <- c(files, list.files(file.path(outputfolder, cdmVersion, gsub(" ", "_", dialect)),
pattern = ".*\\.sql$", pattern = ".*\\.sql$",
full.names = TRUE)) full.names = TRUE))
} }