@@ -21,8 +21,9 @@ tryCatch({
2121 user <- Sys.getenv(" DBMS_USERNAME" )
2222 pwd <- Sys.getenv(" DBMS_PASSWORD" )
2323 cdmDatabaseSchema <- Sys.getenv(" DBMS_SCHEMA" )
24+ cdmDatabaseName <- Sys.getenv(" DATA_SOURCE_NAME" )
2425 resultsDatabaseSchema <- Sys.getenv(" RESULT_SCHEMA" )
25- cohortsDatabaseSchema <- Sys.getenv(" TARGET_SCHEMA" )
26+ cohortDatabaseSchema <- Sys.getenv(" TARGET_SCHEMA" )
2627 cohortTable <- Sys.getenv(" COHORT_TARGET_TABLE" )
2728 driversPath <- (function (path ) if (path == " " ) NULL else path )( Sys.getenv(" JDBC_DRIVER_PATH" ) )
2829
@@ -32,6 +33,19 @@ tryCatch({
3233 password = pwd ,
3334 pathToDriver = driversPath )
3435
36+ databaseDetails <- PatientLevelPrediction :: createDatabaseDetails(connectionDetails = connectionDetails ,
37+ cdmDatabaseSchema = cdmDatabaseSchema ,
38+ cdmDatabaseName = cdmDatabaseName ,
39+ cohortDatabaseSchema = cohortDatabaseSchema ,
40+ cohortTable = cohortTable ,
41+ outcomeDatabaseSchema = cohortDatabaseSchema ,
42+ outcomeTable = cohortTable ,
43+ cdmVersion = 5 )
44+
45+ logSettings <- PatientLevelPrediction :: createLogSettings(verbosity = " INFO" ,
46+ timeStamp = T ,
47+ logName = ' skeletonPlp' )
48+
3549 # Evaluating can't use global environment in child threads
3650 connectionDetails $ user <- function () Sys.getenv(" DBMS_USERNAME" )
3751 connectionDetails $ password <- function () Sys.getenv(" DBMS_PASSWORD" )
@@ -41,18 +55,15 @@ tryCatch({
4155 dir.create(outputFolder )
4256
4357 PatientLevelPrediction :: setPythonEnvironment(envname = ' PLP' , envtype = ' conda' )
44- execute(connectionDetails = connectionDetails ,
45- cdmDatabaseSchema = cdmDatabaseSchema ,
46- cohortDatabaseSchema = cohortsDatabaseSchema ,
47- cohortTable = cohortTable ,
58+ execute(databaseDetails = databaseDetails ,
4859 outputFolder = outputFolder ,
4960 createCohorts = T ,
5061 runAnalyses = T ,
5162 createValidationPackage = F ,
5263 packageResults = T ,
5364 minCellCount = 5 ,
54- cdmVersion = 5 ,
55- createShiny = T )
65+ viewShiny = T ,
66+ logSettings = logSettings )
5667 # To run PLP Viewer shiny app call:
5768 # PatientLevelPrediction::viewMultiplePlp(outputFolder)
5869}, finally = {
0 commit comments