Tests with visualization with R + shiny