R addTA fonction dans Shiny App

Question

Je voudrais créer une application brillante pour montrer le graphique de la charte graphique. Cependant, il n'a pas montré le complot addTA. Je voudrais faire la fonction addTA de la fonction ChartSeries parce que je voulais les mettre en options, en dessous de son mon code:

ui.R:

library(shiny) 

shinyUI(fluidPage(
    titlePanel("Stock App"), 

sidebarLayout(
    sidebarPanel(

helpText("HK stock market."), 

textInput("symb", h5("Symbol"), "0005.HK"), 

radioButtons(inputId="period", label=h5("Periodicity"), 
       choices=c("daily","weekly","monthly")), 

radioButtons(inputId="subset", label=h5("Time"), 
       choices=c("last 1 year","last 3 years","last 5 years")), 

checkboxGroupInput("indicator", 
        label = h5("Indicators"), 
        choices = list("addBBands", 
            "Intraday Intensity", 
            "MFI", "Parabolic SAR"), 
        selected = "addBBands") 
    ), 

    mainPanel(
    textOutput("text3"), 
    br(), 
    plotOutput("plot") 
    )))) 

server.R

library(shiny) 
library(quantmod) 


shinyServer(function(input, output) { 

output$text3 <- renderText({ 
    paste("you have chosen a stock ", input$symb) 
}) 

dataInput <- reactive({ 

    getSymbols(input$symb, src = "yahoo", 
      auto.assign = FALSE, periodicity = input$period) 
}) 

    output$plot <- renderPlot({ 
    chartSeries(dataInput(), theme = chartTheme("white"), 
       up.col = "green", dn.col = "red", 
       TA = NULL, name = input$symb, subset = input$subset) 
    addTA(SMA(Cl(na.omit(dataInput())),n=2), col="red", on = 1) 
    addTA(SMA(Cl(na.omit(dataInput())),n=19), col="blue", on = 1) 
}) 
}) 

La fonction addTA n'a pas été générée, aucun conseil, merci.

Answer 1

Enveloppez vos appels fonction de création de graphiques de quantmod chartSeries/chart_Series, addTA/add_TA, addRSI, etc, avec print(.) pour assurer qu'ils sont tirés dans les applications Shiny:

shinyServer(function(input, output) { 

    output$text3 <- renderText({ 
    paste("you have chosen a stock ", input$symb) 
    }) 

    dataInput <- reactive({ 

    getSymbols(input$symb, src = "yahoo", 
       auto.assign = FALSE, periodicity = input$period) 
    }) 

    output$plot <- renderPlot({ 
    print(chartSeries(dataInput(), theme = chartTheme("white"), 
       up.col = "green", dn.col = "red", 
       TA = NULL, name = input$symb, subset = input$subset)) 
    print(addTA(SMA(Cl(na.omit(dataInput())),n=2), col="red", on = 1)) 
    print(addTA(SMA(Cl(na.omit(dataInput())),n=19), col="blue", on = 1)) 
    }) 
})