From d5ca7eeb132aaaf46687210a0efc4459a3036a66 Mon Sep 17 00:00:00 2001
From: egillax <egillax@gmail.com>
Date: Tue, 16 Apr 2024 16:48:04 +0200
Subject: [PATCH] fix NEWS symbol and problem to design name

---
 NEWS.md                 | 2 +-
 R/ExternalValidatePlp.R | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 37fd20ce1..69f2eeb84 100644
--- 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
index 586bfd0e3..8e3e7a64a 100644
--- 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
           )
         )
       },