fix NEWS symbol and problem to design name

OHDSI · Apr 16, 2024 · d5ca7ee · d5ca7ee
1 parent b317042
commit d5ca7ee
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,5 @@
 PatientLevelPrediction 6.3.7.9999
-======================
+======================
 
 PatientLevelPrediction 6.3.7
 ======================

diff --git a/R/ExternalValidatePlp.R b/R/ExternalValidatePlp.R
@@ -416,7 +416,7 @@ validateExternal <- function(validationDesignList,
   if (inherits(databaseDetails, 'list')) {
     lapply(databaseDetails, function(x)
       checkIsClass(x, 'databaseDetails'))
-  } else{
+  } else {
     checkIsClass(databaseDetails, 'databaseDetails')
     databaseDetails <- list(databaseDetails)
   }
@@ -482,7 +482,7 @@ validateExternal <- function(validationDesignList,
       plpDataLocation <-
         file.path(outputFolder, databaseName, plpDataName)
       if (!dir.exists(file.path(outputFolder, databaseName))) {
-        dir.create(file.path(outputFolder, databaseName), recursive = T)
+        dir.create(file.path(outputFolder, databaseName), recursive = TRUE)
       }
       savePlpData(plpData, file = plpDataLocation)
 
@@ -492,8 +492,8 @@ validateExternal <- function(validationDesignList,
           createStudyPopulation,
           list(
             plpData = plpData,
-            outcomeId = problem$outcomeId,
-            populationSettings = problem$populationSettings
+            outcomeId = design$outcomeId,
+            populationSettings = design$populationSettings
           )
         )
       },