<p>التقدم مع حزمة doMC؟</p>

أم الحزمة الموازية؟ إذا لم يكن كذلك ، +1 لهذه الميزة.

أنا لست متأكدًا مما يتطلبه تنفيذ ذلك ، لأكون صادقًا. على سبيل المثال ، للتوازي ، سيحتاج المرء إلى موازٍ للتواصل مرة أخرى ، وكم من العمل تم إنجازه بالفعل. هل هذا ممكن؟

gaborcsardi لقد

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 إلا عندما تكون الدرجة المقطوعة 2 أو 3. وفقًا لدليل الوظيفة:

style = 1 و style = 2 يظهر فقط خط حرف. وهي تختلف في هذا النمط = 2 تعيد رسم الخط في كل مرة ، وهو أمر مفيد إذا كان من الممكن كتابة كود آخر إلى وحدة التحكم R. النمط = 3 يشير إلى نهاية النطاق بـ | ويعطي نسبة مئوية إلى يمين الشريط.

أعتقد أن سبب عمل txtProgressBar هو أن outfile = "" موجود أثناء تكوين الكتلة.

أعتقد أن محاكاة ما يفعله txtProgressBar للنمط 2 سيحل هذا.