gar_shiny_auth function

Create Authentication within Shiny's server.R