Fixed a bug and uploaded to a new ShinyApp