आर

Question

में एक स्टेटस संदेश दिखा रहा है, मैं एक ऐसा फ़ंक्शन लिखना चाहता हूं जो उपयोगकर्ता को एक स्टेटस संदेश प्रस्तुत करता है जो समय, प्रतिशत पूर्ण और प्रक्रिया की वर्तमान स्थिति को दिखाता है। मैं संदेश को इकट्ठा करने में संभाल सकता हूं, लेकिन मैं सिर्फ कंसोल पर प्रिंट करने के अलावा कुछ और करना चाहता हूं और इसे स्क्रॉल कर दूंगा, एक संदेश के बाद एक संदेश। मुझे वास्तव में message() और बिना किसी ग्राफिक्स के स्क्रोल किए बिना संदेश को बदलना अच्छा लगेगा। आर के साथ यह संभव है?

Answer 1

इस तरह कुछ कैसे?

for(i in 1:10) { 
    Sys.sleep(0.2) 
    # Dirk says using cat() like this is naughty ;-) 
    #cat(i,"\r") 
    # So you can use message() like this, thanks to Sharpie's 
    # comment to use appendLF=FALSE. 
    message(i,"\r",appendLF=FALSE) 
    flush.console() 
} 

Answer 2

ऐसा करने के और अधिक सुरुचिपूर्ण तरीके हो सकते हैं, लेकिन यह यह कर सकता है:

test.message <- function() { 
    for (i in 1:9){ 
    cat(i) 
    Sys.sleep(1) 
    cat("\b") 
    } 

} 

आप स्वचालित रूप से अपने संदेश जेनरेट कर रहे हैं, तो आप कितने \ b वर्ण की गणना करने की आवश्यकता होगी सही राशि का बैक अप लेने के लिए आउटपुट करने के लिए, लेकिन यह बहुत सरल है।

Answer 3

utils पैकेज में txtProgressBar और इसे अद्यतन करने के लिए कार्य शामिल हैं जिनका उपयोग प्रक्रिया को पूरा करने के प्रतिशत को दिखाने के लिए किया जा सकता है।

up1, up2 और up3 कार्यों कैसे अपडेट सांत्वना स्क्रॉल किए बिना नियंत्रित किया जाता है के उदाहरण के लिए txtProgressBar करने के लिए एक कॉल के दौरान बनाए गए देखें।

Answer 4

यहां कुछ ब्लिंग ब्लिंग है। ?tcltk::tkProgressBar से।

pb <- tkProgressBar("test progress bar", "Some information in %", 
     0, 100, 50) 
Sys.sleep(0.5) 
u <- c(0, sort(runif(20, 0 ,100)), 100) 
for(i in u) { 
    Sys.sleep(0.1) 
    info <- sprintf("%d%% done", round(i)) 
    setTkProgressBar(pb, i, sprintf("test (%s)", info), info) 
} 
Sys.sleep(5) 
close(pb)