Got shiny plot with reactive data framing working