permutation test on throwing three dice with sides labelled in a binary way

I want to model throwing three, six-sided dice permuted n number of times (say 6,000 times), where each die has three sides labelled 1 and 0.

I want to test whether three dice getting either all 1s or all 0s ~600/6000 times is more than expected by chance, but don't know how to do it on R.

Any help is greatly appreciated or links to tutorials (this didn't help much: https://docs.tibco.com/pub/enterprise-runtime-for-R/4.0.2/doc/html/Language_Reference/base/sample.html)