에 상태 메시지가 표시됩니다.

Question

시간, 완료율 및 프로세스의 현재 상태와 같은 상태 메시지를 사용자에게 표시하는 함수를 작성하고 싶습니다. 메시지를 처리 ​​할 수는 있지만 콘솔에 인쇄하고 다른 메시지를 뒤집어서 스크롤하는 것 외에 다른 작업을 수행하고 싶습니다. 메시지가 message()처럼 스크롤하지 않고 그래픽없이 변경되기를 정말로 바랍니다. R이 가능합니까?

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과 업데이트 완료 기능이 포함되어 있습니다.이 기능을 사용하면 프로세스 완료율을 표시하는 데 사용할 수 있습니다.

업데이트는 콘솔을 스크롤하지 않고 처리하는 방법의 예는 txtProgressBar 호출하는 동안 생성 된 up1, up2 및 up3 기능을 참조하십시오.

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)