From 9a09e51ae132caf4e1d7a7e2610b3817842cf82a Mon Sep 17 00:00:00 2001 From: egillax Date: Tue, 23 Jul 2024 15:45:17 +0200 Subject: [PATCH] add printing statements for debugging --- tests/testthat/setup.R | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R index c0dfe5a..558c690 100644 --- a/tests/testthat/setup.R +++ b/tests/testthat/setup.R @@ -3,9 +3,13 @@ library(PatientLevelPrediction) testLoc <- normalizePath(tempdir()) torch <- reticulate::import("torch") # get connection and data from Eunomia + +ParallelLogger::logInfo("Getting connectionDetails") connectionDetails <- Eunomia::getEunomiaConnectionDetails() +ParallelLogger::logInfo("Ccreating cohorts") Eunomia::createCohorts(connectionDetails) +ParallelLogger::logInfo("Creating covariate settings") covSet <- FeatureExtraction::createCovariateSettings( useDemographicsGender = TRUE, useDemographicsAge = TRUE, @@ -18,6 +22,7 @@ covSet <- FeatureExtraction::createCovariateSettings( ) +ParallelLogger::logInfo("Create database details") databaseDetails <- PatientLevelPrediction::createDatabaseDetails( connectionDetails = connectionDetails, cdmDatabaseSchema = "main", @@ -30,12 +35,14 @@ databaseDetails <- PatientLevelPrediction::createDatabaseDetails( cdmDatabaseName = "eunomia" ) +ParallelLogger::logInfo("Create restrictPlpDataSettings") restrictPlpDataSettings <- PatientLevelPrediction::createRestrictPlpDataSettings( firstExposureOnly = TRUE, washoutPeriod = 365 ) +ParallelLogger::logInfo("Get plpData") plpData <- PatientLevelPrediction::getPlpData( databaseDetails = databaseDetails, restrictPlpDataSettings = restrictPlpDataSettings,