'Random' Sorting with a condition in R for Psychology Research

I have Valence Category for word stimuli in my psychology experiment.

1 = Negative, 2 = Neutral, 3 = Positive

I need to sort the thousands of stimuli with a pseudo-randomised condition.

Val_Category cannot have more than 2 of the same valence stimuli in a row i.e. no more than 2x negative stimuli in a row.

for example - 2, 2, 2 = not acceptable

2, 2, 1 = ok

I can't sequence the data i.e. decide the whole experiment will be 1,3,2,3,1,3,2,3,2,2,1 because I'm not allowed to have a pattern.

I tried various packages like dylpr, sample, order, sort and nothing so far solves the problem.