sort of working shiny app