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