From dfc91905f1cda103be9c057ad15f5f12400f7e48 Mon Sep 17 00:00:00 2001
From: egillax <egillax@gmail.com>
Date: Wed, 14 Aug 2024 16:38:07 +0200
Subject: [PATCH] fix calling of getModelInfo

---
 Main.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Main.R b/Main.R
index d3ad905..d7a00f5 100644
--- a/Main.R
+++ b/Main.R
@@ -14,6 +14,7 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 
+
 PatientLevelPredictionValidationModule <- R6::R6Class(
   classname = "PatientLevelPredictionValidationModule",
   inherit = Strategus::StrategusModule,
@@ -39,7 +40,7 @@ PatientLevelPredictionValidationModule <- R6::R6Class(
 
       # hack to use output folder for model transfer
       modelSaveLocation <- file.path(upperResultDir, modelTransferFolder, "models")
-      modelInfo <- getModelInfo(modelSaveLocation)
+      modelInfo <- private$getModelInfo(modelSaveLocation)
 
       designs <- list()
       for (i in seq_len(nrow(modelInfo))) {