Just for testing sankey diagram on shiny