want same output for shiny and plot