Skip to main content

Browse the archive

https://github.com/cran/pracma
21 November 2023, 19:34:12 UTC
Revision 00dcc24912cb9162914b67ae18137cab456a0b21 authored by Hans W. Borchers on 06 September 2016, 16:40:55 UTC, committed by cran-robot on 06 September 2016, 16:40:55 UTC 
version 1.9.5
1 parent 84a5025
Raw File
Tip revision: 00dcc24912cb9162914b67ae18137cab456a0b21 authored by Hans W. Borchers on 06 September 2016, 16:40:55 UTC
version 1.9.5
Tip revision: 00dcc24
tictoc.R 
###
### TICTOC.R - Stopwatch timer
###


##-----------------------------------------------------------------------------
tic <- function(gcFirst = FALSE) {
    if (gcFirst == TRUE) {
        gc(verbose = FALSE)
    }
    assign("elapsedTime", proc.time()[3], envir = .pracmaEnv)
    invisible()
}


##-----------------------------------------------------------------------------
toc <- function(echo = TRUE) {
    prevTime <- get("elapsedTime", envir = .pracmaEnv)
    diffTimeSecs <- proc.time()[3] - prevTime
    if (echo) {
        cat(sprintf("elapsed time is %f seconds", diffTimeSecs), "\n")
        return(invisible(diffTimeSecs))
    } else {
        return(diffTimeSecs)
    }
}
back to top