Shiny server

server.R

library(shiny)
library(RFinanceYJ)
library(quantmod)

shinyServer(function(input, output) {
    
    output$plot <- reactivePlot(function() {
        data <- quoteStockXtsData(sprintf("%s.t", input$code),
                               since=input$since,
                               date.end=input$date.end,
                               time.interval=input$time.interval)
        candleChart(data)
    })
    
})