fix timings to 3 digits

OHDSI · Jan 20, 2025 · c81d403 · c81d403
1 parent cf2cb2e
commit c81d403
Show file tree

Hide file tree

Showing 9 changed files with 15 additions and 9 deletions.
diff --git a/R/CovariateSummary.R b/R/CovariateSummary.R
@@ -121,7 +121,8 @@ covariateSummary <- function(
 
   ParallelLogger::logInfo(paste0("Finished covariate summary @ ", Sys.time()))
   delta <- Sys.time() - start
-  ParallelLogger::logInfo("Time to calculate covariate summary: ", delta, " ", attr(delta, "units"))
+  ParallelLogger::logInfo("Time to calculate covariate summary: ", 
+    signif(delta, 3), " ", attr(delta, "units"))
   return(covariateSummary)
 }
 

diff --git a/R/DataSplitting.R b/R/DataSplitting.R
@@ -262,7 +262,7 @@ splitData <- function(plpData = plpData,
 
   class(result) <- "splitData"
   delta <- Sys.time() - start
-  ParallelLogger::logInfo("Data split in ", delta, " ", attr(delta, "units"))
+  ParallelLogger::logInfo("Data split in ", signif(delta, 3), " ", attr(delta, "units"))
   return(result)
 }
 

diff --git a/R/EvaluatePlp.R b/R/EvaluatePlp.R
@@ -140,7 +140,8 @@ evaluatePlp <- function(prediction, typeColumn = "evaluationType") {
 
   class(result) <- "plpEvaluation"
   delta <- Sys.time() - start
-  ParallelLogger::logInfo("Time to calculate evaluation metrics: ", delta, " ", attr(delta, "units"))
+  ParallelLogger::logInfo("Time to calculate evaluation metrics: ", 
+    signif(delta, 3), " ", attr(delta, "units"))
   return(result)
 }
 

diff --git a/R/FeatureEngineering.R b/R/FeatureEngineering.R
@@ -37,7 +37,8 @@ featureEngineer <- function(data, featureEngineeringSettings) {
 
   attr(data, "metaData")$featureEngineeringSettings <- featureEngineeringSettings
   delta <- Sys.time() - start
-  ParallelLogger::logInfo("Feature Engineering completed in ", delta, " ", attr(delta, "units"))
+  ParallelLogger::logInfo("Feature Engineering completed in ",
+    signif(delta, 3), " ", attr(delta, "units"))
   return(data)
 }
 

diff --git a/R/Fit.R b/R/Fit.R
@@ -89,7 +89,8 @@ fitPlp <- function(
   plpModel$trainDetails$developmentDatabaseId <- attr(trainData, "metaData")$cdmDatabaseId
   class(plpModel) <- "plpModel"
   delta <- Sys.time() - start
-  ParallelLogger::logInfo("Time to fit model: ", delta, " ", attr(delta, "units"))
+  ParallelLogger::logInfo("Time to fit model: ", 
+    signif(delta, 3), " ", attr(delta, "units"))
 
   return(plpModel)
 }
diff --git a/R/PopulationSettings.R b/R/PopulationSettings.R
@@ -468,7 +468,7 @@ createStudyPopulation <- function(
 
   attr(population, "metaData") <- metaData
   delta <- Sys.time() - start
-  ParallelLogger::logInfo("Population created in ", delta, " ", attr(delta, "units"))
+  ParallelLogger::logInfo("Population created in ", signif(delta, 3), " ", attr(delta, "units"))
   return(population)
 }
 

diff --git a/R/Predict.R b/R/Predict.R
@@ -113,7 +113,8 @@ predictPlp <- function(plpModel, plpData, population, timepoint) {
 
   attr(prediction, "metaData") <- metaData
   delta <- Sys.time() - start
-  ParallelLogger::logInfo("Prediction done in: ", delta, " ", attr(delta, "units"))
+  ParallelLogger::logInfo("Prediction done in: ", 
+    signif(delta, 3), " ", attr(delta, "units"))
   return(prediction)
 }
 

diff --git a/R/RunPlp.R b/R/RunPlp.R
@@ -544,7 +544,7 @@ runPlp <- function(
     finally = ParallelLogger::logTrace("Done."))
   ParallelLogger::logInfo(paste0("plpResult saved to ..\\", analysisPath, "\\plpResult"))
   delta <- Sys.time() - start
-  ParallelLogger::logInfo(paste0("Total time taken: ", delta, " ", attr(delta, "units")))
+  ParallelLogger::logInfo(paste0("Total time taken: ", signif(delta, 3), " ", attr(delta, "units")))
   return(results)
 
 }
diff --git a/R/Sampling.R b/R/Sampling.R
@@ -93,7 +93,8 @@ sampleData <- function(trainData, sampleSettings) {
 
   attr(trainData, "metaData") <- metaData
   delta <- Sys.time() - start
-  ParallelLogger::logInfo("Sampling took ", delta, " ", attr(delta, "units"))
+  ParallelLogger::logInfo("Sampling took ", 
+    signif(delta, 3), " ", attr(delta, "units"))
   return(trainData)
 }