The reactive user interface example – server.R