Improve example for timing code chunk using hooks

closes #389
rstudio · Aug 22, 2023 · 136a927 · 136a927
1 parent ac81dd0
commit 136a927
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/13-chunk-hooks.Rmd b/13-chunk-hooks.Rmd
@@ -110,9 +110,10 @@ knitr::knit_hooks$set(time_it = local({
       now <<- Sys.time()
     } else {
       # calculate the time difference after a chunk
-      res <- difftime(Sys.time(), now)
+      res <- difftime(Sys.time(), now, units = "secs")
       # return a character string to show the time
-      paste('Time for this code chunk to run:', res)
+      paste('Time for this code chunk to run:', 
+            round(res, 2), 'seconds')
     }
   }})
 )