sample with replacement but draw each value no more than 2 times

Is it possible to extend the sample function in R to not return more than say 2 of the same element when replace = TRUE?

Suppose I have a list:

l = c(1,1,2,3,4,5)

To sample 3 elements with replacement, I would do:

sample(l, 3, replace = TRUE)

Is there a way to constrain its output so that only a maximum of 2 of the same elements are returned? So (1,1,2) or (1,3,3) is allowed, but (1,1,1) or (3,3,3) is excluded?