R code for Shiny app that plots a histogram of Old Faithful eruption wait times using R's 'faithful' dataset