Guessing Game implemented in Shiny