Nothing
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)
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.