Some tests using R Shiny