Shiny app code for data products course