Code Used in Discussion of Shiny