A test application for shiny in R