refactor SlowGoodness shiny app