RCharts + Shiny動態改變圖表數據

Question

這是我第一次同時使用rcharts和閃亮。我試圖創建一個基本的閃亮應用程序，用戶可以從下拉菜單中選擇股票，並在交互圖表中比較它們的表現（我想使用rcharts進行交互）。

我已經設法創建了下拉菜單和rcharts圖表，但無法獲取圖表創建的數據以進行更改。代碼如下：

ui.R

shinyUI(fluidPage(
    titlePanel("S&P 500 Retroactive Stock Comparision - 2009 and 2010"), 
    sidebarLayout(
    sidebarPanel(uiOutput("stockA"), uiOutput("stockB"),submitButton("Submit")), 
    mainPanel(showOutput("StockPlot","NVD3")) 
) 
)) 

server.R：

stock.names<-reactive({ 
    ## data from : http://pages.swcp.com/stocks/#historical%20data 
    stocks_data<-read.table("S.P.500_data.txt",sep=",") 
    colnames(stocks_data)<-c("Date","Ticker","Open","High","Low","Close","Volume") 
    stocks_data$Date<- as.Date(as.character(stocks_data$Date), "%Y%m%d") 

    stocks_data$Percent.Change<-((stocks_data$High-stocks_data$Low)/stocks_data$Open)*100 

    #get company names + match with ticker symbols 
    library(RCurl) 
    company_names1 <- "http://data.okfn.org/data/core/s-and-p-500-companies/r/constituents.csv" 
    company_names2<-getURL(company_names1) 
    company_names3<-read.csv(textConnection(company_names2)) 

    stocks_data$Company.Names<-company_names3[match(stocks_data$Ticker,company_names3$Symbol),"Name"] 

    x<-sort(unique(as.character(stocks_data$Company.Names))) 
    return(x) 
}) 

library(rCharts) 


shinyServer(function(input,output){ 
    ######## 
    output$stockA <- renderUI({ 
    selectInput("stockA", "Select your first stock to compare:",choices=stock.names()) 
    }) 
    ########## 
    output$stockB <- renderUI({ 
    selectInput("stockB", "Select your second stock to compare:",choices=stock.names()) 
    }) 

    ######## 
stockA.name<- reactive({ 
    input$StockA 
}) 
    ######### 
stockB.name<- reactive({ 
    input$StockB 
}) 

####### 

chart.data<-reactive({ 
    data<-subset(stocks_data, Company.Names %in% input$stockA | Company.Names %in% input$stockB) 
return(data) 
}) 
    ####### 
    output$StockPlot<-renderChart2({ 
    plot1<-nPlot(Close~Date,data=chart.data() ,group='Company.Names',type='lineChart') 
    return(plot1) 
    }) 
} 
) 

Answer 1

嘗試增加會話服務器ARGS，然後你應該能夠使用

observeEvent(input $Submit, { 

    stockA.name <- input$StockA 
    stockB.name <- input$StockB 

    chart.data <- subset(stocks_data, Company.Names %in% input$stockA | 
            Company.Names %in% input$stockB) 

    output$StockPlot<-renderChart2({ 
    plot1 <- nPlot(Close~Date,data=chart.data(), 
        group='Company.Names',type='lineChart') 
    return(plot1) 
    }) 

}) 

將此從我的手機中解放出來，但如果它不起作用，我會稍後迴圈