I want to print start time, end time and total execution in R and add a shortcut to it

Question

old <- Sys.time()

// MY code

new <- Sys.time()

total time = old-new the output shows "Time difference -6.661923 sec"

instead I want "Runtime: 0.35 sec"

+3

r

Pandsh May 22 '17 at 10:39

2 answers

Something like

old <- Sys.time()
#code
new <- Sys.time()
total_time <- paste0("Execution time: ", as.numeric(new-old), "secs")

+2

wolf_wue May 22 '17 at 10:47

PKumar · Accepted Answer · 2017-05-22T10:57:34+0000

You can use sprintf

as below:

old <- Sys.time()
rnorm(500,0,1)
new <- Sys.time()
x <- (new - old)

sprintf("The execution time is %5.2f secs",x)

Output

[1] "The execution time is  1.08 secs"