使用quantmod閃亮的多個股票

Question

我已經編寫了一個計算R中股票相關性的代碼，這是代碼。

library(quantmod) 
tickers<-c('AAPL','GOOG','MSFT') 
stockData=new.env() 
getSymbols(tickers,src = "yahoo", env=stockData,from =as.Date("2016-01-01")) 
library(PerformanceAnalytics) 

    x <- list() 
    Data=data.frame() 
    clo=data.frame() 
    for (i in 1:length(tickers)) { 
    x[[i]] <- get(tickers[i], pos=stockData) # get data from stockData environment 
    clo<-cbind(clo,Cl(x[[i]])) 
    Data=cbind(Data,diff(log(Cl(x[[i]])))) 
    } 
chart.Correlation(Data) 
Cl(Data) 
tail(clo) 

但我得到一個很難轉換到這個閃亮的應用

這是迄今爲止我在閃亮的應用程序來完成。我選擇shinysky庫選擇多個股票

ui.R

#ui.R 

library(shinysky) 
shinyUI(fluidPage(
    titlePanel("test"), 

    sidebarLayout(
    sidebarPanel(
     helpText("text"), 

     select2Input("txt","stock",choices=c("AAPL","GOOG","MSFT"),selected=c("")), 

     actionButton("go","submit") 


    ), 

    mainPanel(
     tabsetPanel(type="tab",tabPanel("Plot",plotOutput("plot")),tabPanel("summary",tableOutput("table")),tabPanel("close",tableOutput("table1"))) 

    ) 
) 
)) 

server.R

# server.R 
library(quantmod) 
library(PerformanceAnalytics) 

shinyServer(function(input, output) { 

stockData <- new.env() 
    dataInput <- reactive({ 
    if(input$go==0){return()} #confirming button click 
    else if(input$go==1){ 
     validate(
     need(input$txt != "", label = "stock") 
    ) 
     getSymbols(input$txt, src = "yahoo", env=stockData,from =as.Date(input$dates))   


    } 
     }) 

output$plot=plot chart.correlation 
output$table=table of Close values of stocks etc Cl(Data) 
output$table1=output of last close 
} 
) 

上面閃亮的代碼是不完整的，因爲我不知道如何進一步去和一些邏輯錯誤。我已經使用if(input$go==0){return()}驗證按鈕點擊，但它只能工作

1）一旦

2），而在shinyapps.io部署此代碼library(PerformanceAnalytics)干涉，不允許部署

我怎樣才能解決這些問題？

Answer 1

在深入研究shiny之前，請查看他們頁面上的教程，他們將涵蓋許多進一步開發您的應用所需的資料。

＃1

rm(list = ls()) 
library(shiny) 
library(xts) 
library(DT) 
library(quantmod) 
library(shinysky) 
library(PerformanceAnalytics) 
x <- list() 
Data <- data.frame() 
clo <- data.frame() 

ui <- fluidPage(
    titlePanel("test"), 
    tags$style(type="text/css",".shiny-output-error { visibility: hidden; }",".shiny-output-error:before { visibility: hidden; }"), 
    sidebarLayout(
    sidebarPanel(
     helpText("text"), 
     select2Input("txt","stock",choices=c("AAPL","GOOG","MSFT"),selected=c("AAPL","GOOG")), 
     dateInput("dates", "Date:", value = "2016-01-01"), 
     actionButton("go","submit") 
    ), 
    mainPanel(
     tabsetPanel(type="tab",tabPanel("Plot",plotOutput("plot")),tabPanel("summary",dataTableOutput("table")),tabPanel("close",dataTableOutput("table1"))) 
    ) 
) 
) 

server <- function(input, output) { 

    stockData <- new.env() 
    dataInput <- reactive({ 
    if(input$go==0){return()} #confirming button click 
    isolate({ 
     input$go 
     getSymbols(input$txt, src = "yahoo", env=stockData,from =as.Date(input$dates))  
     Data <- data.frame() 

     validate(need(input$txt != "", label = "stock")) 
     for (i in 1:length(input$txt)) { 
     x[[i]] <- get(input$txt[i], pos=stockData) # get data from stockData environment 
     Data <- cbind(Data,diff(log(Cl(x[[i]])))) 
     } 
     Data 
    }) 
    }) 

    Last_Close <- reactive({ 
    if(input$go==0){return()} #confirming button click 
    isolate({ 
     input$go 
     validate(need(input$txt != "", label = "stock")) 
     for (i in 1:length(input$txt)) { 
     x[[i]] <- get(input$txt[i], pos=stockData) # get data from stockData environment 
     clo <- cbind(clo,Cl(x[[i]])) 
     } 
     clo 
    }) 
    }) 

    output$plot <- renderPlot(chart.Correlation(dataInput())) 
    output$table <- DT::renderDataTable(datatable(as.data.frame(Cl(dataInput())))) 
    output$table1 <- DT::renderDataTable(datatable(as.data.frame(Cl(Last_Close())))) 
} 

shinyApp(ui, server)