2

私のプログラムには、プログレス バーを表示したいメイン ウィンドウが含まれています。私はtcltkとRを使用しています。

次のコードは、新しいポップアップ ウィンドウにプログレス バーを表示する方法を示していますが、それは私がやりたいことではありません。

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)

ウィンドウに挿入する方法がわかりません。

ありがとうございました

4

1 に答える 1

2

これは、この回答からかなり持ち上げられています。要点は、tkProgressBarあなたが望むものを手に入れないということです。代わりにtk2progress、tcltk2パッケージに関数があります。その機能を使用して、ウィンドウに配置できるウィジェットを作成できます。

root <- tktoplevel()

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

tkgrid(l1, row = 0)
tkgrid(pb1, row = 1)

for (index in 1:10){

    tkconfigure(l1, text = paste("Index", index))
    tkconfigure(pb1, value = index - 1)
    Sys.sleep(1)
}
于 2013-07-24T07:51:42.587 に答える