the click event in R shiny package - View it on GitHub