How to remove small and large cluster of pixels using clump and reclassify functions in R

Question

I would like to remove the pixels that form a tiny and large cluster. From the answer given here: how to remove cluster of pixels using clump function in R, I can remove the