- first cut at a scatter plot shiny app