hiển thị thông báo trạng thái trong R

Question

Tôi muốn viết một chức năng hiển thị cho người dùng thông báo trạng thái hiển thị nội dung như thời gian, phần trăm hoàn thành và trạng thái hiện tại của quy trình. Tôi có thể xử lý việc lắp ráp tin nhắn, nhưng tôi muốn làm một cái gì đó khác hơn là chỉ in ra bàn điều khiển và nó di chuyển lên, một tin nhắn sau cái kia. Tôi thực sự muốn tin nhắn thay đổi mà không cần cuộn như message() và không có bất kỳ đồ họa nào. Điều này có thể với R?

Answer 1

Làm thế nào về một cái gì đó như thế này?

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

Có thể có nhiều cách thanh lịch để làm điều này, nhưng điều này có thể làm điều đó:

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

} 

Nếu bạn đang tự động tạo ra thông điệp của bạn, bạn sẽ cần phải tính toán có bao nhiêu ký tự \ b để đầu ra để sao lưu số tiền chính xác, nhưng điều đó khá đơn giản.

Answer 3

Gói utils chứa txtProgressBar và các chức năng để cập nhật nó có thể được sử dụng để hiển thị phần trăm hoàn thành quy trình.

Xem các chức năng up1, up2 và up3 được tạo trong khi gọi đến txtProgressBar để biết các ví dụ về cách cập nhật được xử lý mà không cần cuộn bảng điều khiển.

Answer 4

Đây là một số bling bling. Từ ?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)