sample of R shiny usage