9 lines
124 B
R
9 lines
124 B
R
sleep <- function(time=1)
|
|
{
|
|
message("Sleeping...")
|
|
flush.console()
|
|
Sys.sleep(time)
|
|
message("Awake!")
|
|
}
|
|
|
|
sleep()
|