Create results data model tests and renv.lock update (#11)

OHDSI · Sep 1, 2023 · 9870fb8 · 9870fb8
1 parent 1e2344c
commit 9870fb8
Show file tree

Hide file tree

Showing 6 changed files with 1,546 additions and 1,506 deletions.
diff --git a/Main.R b/Main.R
@@ -204,11 +204,8 @@ createDataModelSchema <- function(jobContext) {
   tablePrefix <- moduleInfo$TablePrefix
   schema <- jobContext$moduleExecutionSettings$resultsDatabaseSchema
 
-  conn <- DatabaseConnector::connect(connectionDetails)
-  on.exit(DatabaseConnector::disconnect(conn))
-
   PatientLevelPrediction::createPlpResultTables(
-    conn = conn, 
+    connectionDetails = connectionDetails, 
     targetDialect = connectionDetails$dbms, 
     resultSchema = schema, 
     deleteTables = F,

diff --git a/MetaData.json b/MetaData.json
@@ -1,6 +1,6 @@
 {
   "Name": "PatientLevelPredictionModule",
-  "Version": "0.2.0-1",
+  "Version": "0.2.0-3",
   "Dependencies": ["CohortGeneratorModule"],
   "TablePrefix": "plp_"
 }
diff --git a/SettingsFunctions.R b/SettingsFunctions.R
@@ -18,7 +18,7 @@
 createPatientLevelPredictionModuleSpecifications <- function(modelDesignList) {
   specifications <- list(
     module = "PatientLevelPredictionModule",
-    version = "0.2.0-1",
+    version = "0.2.0-3",
     remoteRepo = "github.com",
     remoteUsername = "ohdsi",
     settings = modelDesignList