Random Sample in R: Limiting Number of Repetitionsout of a 2 digit vector

I have the following vector in R: c(0,1).

I am wishing to randomly sample from this vector 10 elements at a time, but such that no more than 2 elements repeat.

The code I have tried is sample(c(0,1),10,replace=T)

But I would like to get

sample(c(0,1),10,replace=T) = (0,1,1,0,1,1,0,0,1,0)

sample(z,4,replace=T) = (0,1,0,1,0,0,1,0,1,0)

but not

sample(z,4,replace=T) = (1,0,0,0,1,1,0,0,0)

And so on.

How could I accomplish this?