ダブルR tcltkプログレスバー

Question

ここで私の質問は、1つのプログレスバーを作成する方法ではなく、2つの異なるプロセスを追跡して更新するプログレスバーを作成する方法です。私が好きな

library(tcltk2) 

pb1 <- tkProgressBar(title = "Simulation Progress...", min = 1, max = 10, width = 300) 
pb2 <- tkProgressBar(title = "Simulation Progress...", min = 2000, max = 2020, width = 300) 

for (index in 1:10){ 

setTkProgressBar(pb1, index, label = paste("Index",index)) 

for (year in 2000:2020){ 

setTkProgressBar(pb2, year, label = paste("Year",year)) 

} 

} 

：たとえば、同じウィンドウ内で、私は私の現在のコードがある...現在のシミュレーションのインデックスと数字の別の一連の経過を追う他のバーを追跡するバーを持っているしたいのですが別々のものではなく、一緒に両方のバーを持っている...任意のヘルプが感謝！ tkProgressBarを使用不可

Answer 1

、あなたは、tcltkの深さにダウンし、このような何かを掘るする必要があります：

library(tcltk2) 

root <- tktoplevel() 

l1 <- tk2label(root,"Simulation Progress...") 
pb1 <- tk2progress(root, length = 300) 
tkconfigure(pb1, value=0, maximum=9) 

l2 <- tk2label(root, "Simulation Progress...") 
pb2 <- tk2progress(root, length = 300) 
tkconfigure(pb2, value=0, maximum=20, maximum = 20) 

tkpack(l1) 
tkpack(pb1) 
tkpack(l2) 
tkpack(pb2) 

tcl("update") 

for (index in 1:10){ 

    tkconfigure(l1, text = paste("Index", index)) 
    tkconfigure(pb1, value = index - 1) 

    for (year in 2000:2020){ 
     tkconfigure(l2, text = paste("Year",year)) 
     tkconfigure(pb2, value = year - 2000) 


    tcl("update") 
    }  

}