R shiny: update of random variable depending on action button

Question

This is a minimal work example of a larger application in R shiny that I\'m working on at the moment. Each time I click the actionbutton "OK" I want to generate a