Demo the R Shiny Tool