fix OHDSI#1144. execution times are always recorded in minutes.

darwin-eu-dev · Oct 9, 2024 · ec28e57 · ec28e57
1 parent fd3a81b
commit ec28e57
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -300,11 +300,13 @@ timeExecution <- function(exportFolder,
     eval(expr)
     execTime <- Sys.time() - start
   }
+  checkmate::assertClass(execTime, "difftime")
+  checkmate::assertClass(start, "POSIXct")
   executionTimes <- data.frame(
     task = taskName,
     startTime = start,
     cohortIds = paste(cohortIds, collapse = ";"),
-    executionTime = execTime,
+    executionTime = round(as.numeric(execTime, units = "secs")/60, 4),
     parent = paste(parent, collapse = "")
   )