Progress: 여러 진행률 표시줄

다음과 같은 것이 작동하면 좋을 것입니다.

pb1 <- progress_bar$new(total = 100)
for(i in 1:100){
  pb1$tick()
  pb2 <- progress_bar$new(total = 100)  
  for(j in 1:100){
    pb2$tick()
    Sys.sleep(1/1000)
    }
}

예 바로 그 거예요.

활성 진행률 표시줄의 글로벌 스택을 가질 수 있다고 생각합니다. 하나의 진행률 표시줄, 특히 R Studio만 지원하는 디스플레이에서는 맨 위에 있는 것만 표시하고 나머지에 대한 요약을 표시할 수 있습니다. 예: 세 가지 수준:

85% | 34% | 50% [====================--------------------] ETA 13s

적절한 ANSI 지원이 있는 터미널의 경우 모든 진행률 표시줄(최대 10-20개)을 한 번에 표시할 수 있습니다.

한 줄에 3개 또는 4개의 동시 진행률 표시줄을 지원할 수 있는 한 가지 방법은 유니코드 점자 패턴을 사용하는 것입니다.

[⠿⠿⠟⠛⠛⠛⠒⠒⠒⠒       ]

@jimhester 똑똑하지만 불행히도 매우 제한적입니다.

내가 만든 아래 기능은 매우 조잡하지만 왜 아래와 같은 것이 가능하지 않습니까? 진행 옵션이 있는 진행 스타일 패키지로 만들고 싶습니다.

데이터 재생성:

df <- data.frame(samplecol=c(1:50),
           file=c(1:50))
df$file <- paste0("file",df$file)

x <-function() {Sys.sleep(1/100)}
y <-function() {Sys.sleep(1/20)}

기능:

doubleProgressBar <- function(x, y) {
    for (i in 1:100) {
      x()
        for(j in 1:50){ 
          y()
          cat("\014")
          writeLines(c(paste0("OVERALL PROGRESS:", i,"%"," [",paste(rep("+",round((i/5))), collapse="")), 
                      paste0("FILE%: ",(j*2),"%"," CURRENTLY LOADING FILE: ",df[j,"file"], " [",paste(rep("+",round((j/2.5))), collapse=""))))
        }
      cat("\014")
      writeLines(c(paste0("OVERALL PROGRESS:", i,"%"," [",paste(rep("+",round((i/5))), collapse="")), 
                   paste0("FILE%: ",(j*2),"%"," CURRENTLY LOADING FILE: ",df[j,"file"], " [",paste(rep("+",round((j/2.5))), collapse=""))))
    }
}

###Does what I want, but with crude text entry. 
###Would be nice to have a package with nice entry have a double bar
doubleProgressBar(x,y)

모든 R 터미널 이 커서를 위로 이동 하는 \r 로 텍스트의 마지막 줄만 지우는 것으로 제한됩니다.

전체 ANSI 이스케이프 시퀀스를 사용하는 옵션을 추가할 수 있습니까?

또는 진행률 표시줄 사이의 수평 공간을 분할할 수 있습니다...