The R Project SVN R

Rev

Rev 73553 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 73553 Rev 78220
Line 31... Line 31...
31
    expr # evaluated here because of lazy evaluation
31
    expr # evaluated here because of lazy evaluation
32
    new.time <- proc.time()
32
    new.time <- proc.time()
33
    on.exit()
33
    on.exit()
34
    structure(new.time - time, class="proc_time")
34
    structure(new.time - time, class="proc_time")
35
}
35
}
36
unix.time <- function(...) {
-
 
37
    .Deprecated("system.time")
-
 
38
    system.time(...)
-
 
39
}
-
 
40
 
36
 
41
date <- function() .Internal(date())
37
date <- function() .Internal(date())
42
 
38
 
43
summary.proc_time <- function(object, ...)
39
summary.proc_time <- function(object, ...)
44
{
40
{