Làm thế nào để thực hiện tạm dừng thực hiện, ngủ, chờ X giây trong R?

Question

Làm cách nào để tạm dừng tập lệnh R trong một số giây hoặc mili giây được chỉ định? Trong nhiều ngôn ngữ, có một hàm sleep, nhưng ?sleep tham chiếu đến tập dữ liệu. Và ?pause và ?wait không tồn tại.

Mục đích dành cho hoạt ảnh tự định thời. Giải pháp mong muốn hoạt động mà không yêu cầu đầu vào của người dùng.

Answer 1

Xem help(Sys.sleep).

Ví dụ, từ ?Sys.sleep

testit <- function(x) 
{ 
    p1 <- proc.time() 
    Sys.sleep(x) 
    proc.time() - p1 # The cpu usage should be negligible 
} 
testit(3.7) 

yielding

> testit(3.7) 
    user system elapsed 
    0.000 0.000 3.704 

Answer 2

tôi đã thực hiện một ví dụ cho bạn, tôi hy vọng nó là hữu ích

# 1st let make a graph with limits xlim =0:10 e ylim=0:10. 
plot(0:10,0:10, type="n") 

# let use the 'for' to put texts on graph: 
for(i in 1:10) 
    text(i,i, paste("**", i)) 

## let retard steps 1 sec 

plot(0:10,0:10, type="n") 
for(i in 1:9){ 
    text(i,i, paste("step", i)) 
    Sys.sleep(1) 
} 

# please wait some seconds....... 
# now faster 
plot(0:10,0:10, type="n") 
for(k in 1:9){ 
    text(k,k, paste("step", k)) 
    Sys.sleep(.1) ## retard steps 0,1 sec 
} 

Answer 3

Sys.sleep() sẽ không hoạt động nếu mức sử dụng CPU rất cao; như trong các quy trình ưu tiên cao khác quan trọng đang chạy (song song).

Mã này đã hoạt động đối với tôi. Ở đây tôi in 1 đến 1000 với khoảng thời gian 2,5 giây.

for (i in 1:1000) 
{ 
    print(i) 
    date_time<-Sys.time() 
    while((as.numeric(Sys.time()) - as.numeric(date_time))<2.5){} #dummy while loop 
}