@@ -21,8 +21,9 @@ tryCatch({
21
21
user <- Sys.getenv(" DBMS_USERNAME" )
22
22
pwd <- Sys.getenv(" DBMS_PASSWORD" )
23
23
cdmDatabaseSchema <- Sys.getenv(" DBMS_SCHEMA" )
24
+ cdmDatabaseName <- Sys.getenv(" DATA_SOURCE_NAME" )
24
25
resultsDatabaseSchema <- Sys.getenv(" RESULT_SCHEMA" )
25
- cohortsDatabaseSchema <- Sys.getenv(" TARGET_SCHEMA" )
26
+ cohortDatabaseSchema <- Sys.getenv(" TARGET_SCHEMA" )
26
27
cohortTable <- Sys.getenv(" COHORT_TARGET_TABLE" )
27
28
driversPath <- (function (path ) if (path == " " ) NULL else path )( Sys.getenv(" JDBC_DRIVER_PATH" ) )
28
29
@@ -32,6 +33,19 @@ tryCatch({
32
33
password = pwd ,
33
34
pathToDriver = driversPath )
34
35
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
+
35
49
# Evaluating can't use global environment in child threads
36
50
connectionDetails $ user <- function () Sys.getenv(" DBMS_USERNAME" )
37
51
connectionDetails $ password <- function () Sys.getenv(" DBMS_PASSWORD" )
@@ -41,18 +55,15 @@ tryCatch({
41
55
dir.create(outputFolder )
42
56
43
57
PatientLevelPrediction :: setPythonEnvironment(envname = ' PLP' , envtype = ' conda' )
44
- execute(connectionDetails = connectionDetails ,
45
- cdmDatabaseSchema = cdmDatabaseSchema ,
46
- cohortDatabaseSchema = cohortsDatabaseSchema ,
47
- cohortTable = cohortTable ,
58
+ execute(databaseDetails = databaseDetails ,
48
59
outputFolder = outputFolder ,
49
60
createCohorts = T ,
50
61
runAnalyses = T ,
51
62
createValidationPackage = F ,
52
63
packageResults = T ,
53
64
minCellCount = 5 ,
54
- cdmVersion = 5 ,
55
- createShiny = T )
65
+ viewShiny = T ,
66
+ logSettings = logSettings )
56
67
# To run PLP Viewer shiny app call:
57
68
# PatientLevelPrediction::viewMultiplePlp(outputFolder)
58
69
}, finally = {
0 commit comments