I have tried solving a problem with map_if in R but getting errors

Question

I am trying to implement this in R using map_if, to make sure that mean(x) must be less than mean(y) by swapping the values of x and <