Suboptimal usage of all.equal in if-statement in applyFolds()

[Eva2703]

On some PCs, line 508 in applyFolds()

FDboost/R/crossvalidation.R

Line 508 in 6c172c5

if (all.equal(papply, mclapply) == TRUE) {

produced the error

Error in if (all.equal(papply, mclapply) == TRUE) { :
the condition has length > 1

for me. It can be easily fixed by changing the line to
if (isTRUE(all.equal(papply, mclapply))) {
(It also says in ?all.equal not to use all.equal directly in if expressions, but use isTRUE(all.equal(....)) instead.)