Fix 🐛 in catAndRun()

Show appropriate time unit, not always "seconds"

Author: hsonne

NEWS.md

@@ -17,6 +17,7 @@
 - subexpressionMatches(): rename arg "regularExpression" to "pattern", improve
 - add nameElements()
 - parallelNonNA(): use class of input vector "a" as class of output vector
+- fix bug in catAndRun(): show an appropriate time unit, not always "seconds"
 
 # [kwb.utils 0.13.0](https://github.com/KWB-R/kwb.utils/releases/tag/v0.13.0) <small>2022-06-04</small>
 

R/io.R

@@ -39,7 +39,9 @@ catAndRun <- function(
 
   catIf(dbg, "ok. ")
 
-  catIf(dbg && log_time, sprintf("(%0.2fs) ", Sys.time() - start_time))
+  dt <- Sys.time() - start_time
+  
+  catIf(dbg && log_time, sprintf("(%0.2f %s) ", dt, attr(dt, "units")))
 
   catNewLineIf(dbg && bitwAnd(newLine, 2))
 

tests/testthat/test-function-catAndRun.R

@@ -1,10 +1,18 @@
+#kwb.utils::assignPackageObjects("kwb.utils")
+#library(testthat)
+
 test_that("catAndRun() works", {
 
   x <- 1L
 
-  expect_output(x <- catAndRun("work hard", x + 1L))
+  expect_output(
+    x <- catAndRun("work hard", x + 1L), 
+    regexp = "work hard \\.\\.\\. ok\\. \\(0\\.\\d\\d secs\\)", 
+  )
 
   expect_identical(x, 2L)
 
   expect_silent(catAndRun("work hard", x + 1L, dbg = FALSE))
 })
+
+catAndRun("hello", Sys.sleep(time = 60))