Warning while running ensemble code in R

I am trying to run an ensemble model using the majority vote method. this is the code for it.

pred_majority<-as.factor(ifelse(pred_rf_new=='TRUE' & 
model_1_epoch_predict$predict=='TRUE','TRUE',ifelse(pred_rf_new=='TRUE' & ksvm_predict=='TRUE','TRUE',ifelse(model_1_epoch_predict$predict=='TRUE' & ksvm_predict=='TRUE','TRUE','FALSE'))))

Executing the line reverts the following warning.

Warning messages:
1: In pred_rf_new == "TRUE" & model_1_epoch_predict$predict == "TRUE" :
longer object length is not a multiple of shorter object length
2: In model_1_epoch_predict$predict == "TRUE" & ksvm_predict == "TRUE" :
longer object length is not a multiple of shorter object length

Please help me out.