निष्पादन रोकें, सोएं, आर में एक्स सेकंड के लिए प्रतीक्षा करें?

Question

आप एक निर्दिष्ट संख्या के सेकंड या मिलीसेकंड के लिए आर स्क्रिप्ट को कैसे रोकते हैं? कई भाषाओं में, sleep फ़ंक्शन है, लेकिन ?sleep डेटा सेट का संदर्भ देता है। और ?pause और ?wait मौजूद नहीं है।

उद्देश्य उद्देश्य स्वयं-समय वाले एनिमेशन के लिए है। वांछित समाधान उपयोगकर्ता इनपुट पूछे बिना काम करता है।

Answer 1

help(Sys.sleep) देखें।

उदाहरण के लिए, ?Sys.sleep

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

पैदावार

> testit(3.7) 
    user system elapsed 
    0.000 0.000 3.704 

Answer 2

मैं तुम्हारे लिए एक उदाहरण बना से, मुझे आशा है कि यह उपयोगी

# 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 है() नहीं होगा अगर सीपीयू उपयोग बहुत अधिक है तो काम करें; जैसा कि अन्य महत्वपूर्ण उच्च प्राथमिकता प्रक्रियाओं में चल रहा है (समानांतर में)।

यह कोड मेरे लिए काम किया। यहां मैं 2.5 सेकंड अंतराल पर 1 से 1000 प्रिंट कर रहा हूं।

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 
}