Прогресс-бар для MuMin Dredge

Question

Я занимаюсь дноуглубительными работами, и некоторые операции по дноуглублению занимают дни, а некоторые - часы. Мне интересно, могу ли я сказать R дать мне статус прогресса, пока дноуглубитель работает, поэтому я знаю, как долго ждать.

L <- lmer(Fw.FratioFall ~ scale(Average_mintemp_winter) 
          + scale(Average_mintemp_winter^2)
          + scale(percentage_woody_coverage) 
          + scale(percentage_woody_coverage^2)
          + scale(kmRoads.km2) 
          + scale(kmRoads.km2^2) 
          + scale(WELLS_ACTIVEinsideD) 
          + scale(WELLS_ACTIVEinsideD^2) 
          + scale(BadlandsCoyote.1000_mi)
          + scale(BadlandsCoyote.1000_mi^2) 
          + scale(WT_DEER_springsurveys)
          + scale(WT_DEER_springsurveys^2) 
          + scale(BadlandsCoyote.1000_mi)*scale(WELLS_ACTIVEinsideD) 
          + scale(Average_mintemp_winter)*scale(BadlandsCoyote.1000_mi)
          + scale(Average_mintemp_winter)*scale(WELLS_ACTIVEinsideD)
          + year + (year^2) + (year^3) + (1 | YEAR) + (year | StudyArea),  REML = F, data = mydata)


Model1 = dredge(L)

Проблема с драгом состоит в том, что он заполняет консоль `единственной подгонкой ', поскольку он производит тысячи моделей, поэтому предыдущие индикаторы выполнения, которые я добавил, очень быстро теряются. Мне интересно, смогу ли я обойти это.

Спасибо

Answer 1

Вы можете перенаправить поток ошибок в файл:

sink(type = "message", file = "error.log")

Не забудьте потом закрыть раковину, чтобы отобразить ошибки и предупреждения на консоли:

sink(type = "message")