inst/shinyBATS/server.R

In gsee/qmao: Quantmod Add-on

shinyServer(function(input, output, session) {
  output$plot_symbol <- renderPlot({ 
    plot(qmao::getQuote.BATS(toupper(input$Symbol), what=input$what, 
         exch=input$exch))
    invalidateLater(1000, session)
  })
})