<p>progressbar dengan paket doMC?</p>

Atau paket paralel? Jika tidak, beri +1 untuk fitur ini.

Saya tidak yakin apa yang diperlukan untuk menerapkan ini, jujur. Misalnya untuk paralel, seseorang akan membutuhkan paralel untuk berkomunikasi kembali, berapa banyak pekerjaan yang telah dilakukan. Apakah itu mungkin?

@gaborcsardi Saya melakukan pencarian dan berikut ini yang saya temukan:

library("foreach")
library("doParallel")
library("progress")

registerDoParallel(parallel::makeCluster(7, outfile = ""))

pb <- progress_bar$new(
            format = " [:bar] :percent in :elapsed",
            total = 30, clear = FALSE, width = 80, force = T)
a <- foreach (i  = 1:30) %dopar% {
    pb$tick()
    Sys.sleep(0.5)
}


pb <- txtProgressBar(title = "Iterative training", min = 0, max = 30, style = 3)

foreach (i  = 1:30) %dopar% {
    setTxtProgressBar(pb, i)
    Sys.sleep(0.5)
}

stopCluster(cl)

txtProgressBar hanya berfungsi ketika stype adalah 2 atau 3. Menurut manual fungsi:

style = 1 dan style = 2 hanya menunjukkan sebaris karakter. Mereka berbeda dalam gaya itu = 2 menggambar ulang garis setiap kali, yang berguna jika kode lain mungkin menulis ke konsol R. style = 3 menandai akhir rentang dengan | dan memberikan persentase di sebelah kanan bilah.

Saya pikir alasan txtProgressBar berfungsi karena outfile = "" ada saat membuat cluster.

Saya pikir meniru apa yang dilakukan txtProgressBar untuk gaya 2 akan menyelesaikan ini.