Made Shiny app with test R