Final code for this project. Should allow for smooth running upon opening in R Studio, and initiating run. Functionality should mirror that of accessing the web app via the link hosted on the domain given for this project.