Error in R missing value where TRUE / FALSE is required

for(i in 1:length(tiempo_recibe_pago_ap)) {

   if (tiempo_recibe_pago_ap[i]==4) {p_s4b42[i] = sueldo_bruto_ap_monto[i]}
  else if (tiempo_recibe_pago_ap[i]==3) {p_s4b42[i] = sueldo_bruto_ap_monto[i]*2}
  else if (tiempo_recibe_pago_ap[i]==2) {p_s4b42[i] = sueldo_bruto_ap_monto[i]*4.3}
  else if (tiempo_recibe_pago_ap[i]==1) {p_s4b42[i] = sueldo_bruto_ap_monto[i] * tiempo_recibe_pago_dias_ap[i] *4.3}
  else if (sueldo_bruto_ap_moneda[i] == "USD" & periodo[i] == 201901 & tiempo_recibe_pago_ap[i] == 4) {p_s4b42[i] =  sueldo_bruto_ap_monto[i]*tcR[3,6]}
  else if (sueldo_bruto_ap_moneda[i] == "USD" & periodo[i] == 201902 & tiempo_recibe_pago_ap[i] == 4) {p_s4b42[i] =  sueldo_bruto_ap_monto[i]*tcR[17,6]}
}