R/toc.r

In Jmisc: Julian Miscellaneous Function

Defines functions toc

Documented in toc

#' @export
#' @rdname timer
toc <- function(){
  if (exists(".time_Jmisc")){
    out = Sys.time() - get(".time_Jmisc")
    print(out)
    return(invisible(out))
  } else {
    warning(".time_Jmisc not found, please run tic() before using toc()")
  }
}

Try the Jmisc package in your browser