testing shiny implementation