inst/shinyBATS/server.R

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)
  })
})

Try the qmao package in your browser

Any scripts or data that you put into this service are public.

qmao documentation built on May 2, 2019, 4:54 p.m.