R shiny app that i am working on for a project using attendance data from a museum