Roll vector so max value is centered and order of values relative to it stay the same

Question

How can I roll a vector so the max value is in the middle and the order of values relative to it stay the same?

If the length of the vector is even, then just put it in the mean value: n/2

If I have: vec <- c(0, 2, 4, 3, 1, 8)

I want to return: 3 1 8 0 2 4

Thanks.