Refresh button inside manipulate

Manipulate[
 r; 
 RandomVariate[BernoulliDistribution[p], 10], 
 {p, 0, 1}, {{r, True}, None},
 Button["refresh", r = ! r]]

Out

The following works :

   Manipulate[
     Typeset`update$$; 
     RandomVariate[BernoulliDistribution[p], 10], {p, 0, 1},
     AppearanceElements -> "UpdateButton"]

enter image description here

To update press the button "U" at the top-right.
Of course, if you move the cursor it updates too.

Related