# NOT RUN {
exTime("plot")
exTime("yearSample", quiet=TRUE)
exTime(yearSample) # does NOT work, gives NULL and warning
exTime("yearSample", elapsed=TRUE, quiet=TRUE)
exTime("addFade", elapsed=TRUE, quiet=TRUE, run.dontrun=TRUE, run.donttest=TRUE)
## this takes quite some time if done for all functions in a package:
# }
# NOT RUN {
times <- exTime(package="rdwd")
as.matrix(sort(times))
system2("open", tempdir()) # to view the pdf graphics created by exTime
# times <- exTime(package="rdwd", run.dontrun=FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab