проблема с getymbols при использовании r блестящий

Question

library(quantmod)
ui <- fluidPage(
    textInput(inputId = "Stock",
              label = "Input Stock",),
textOutput<-(outputId="a")

server<-function(input, output){

table<-reactive({
req(input$Stock)
table<-getSymbols("input$Stock",to="2010-01-01",from="2015-01-01",auto.assign=TRUE)
)}

Я хочу присвоить переменную 'table' набору данных для выходных данных getymbols при поиске акций из входных данных в блестящем, пример потенциального ввода - "LLOY.D"

код

library(quantmod)
getSymbols("LLOY.L",to="2010-01-01",from="2015-01-01",auto.assign=TRUE)

работает в обычной консоли

Answer 1

Попробуйте это:

library(quantmod)
library(shiny)

ui <- fluidPage(
  textInput("Stock","Input Stock"),
  actionButton("GO","GO"),
  tableOutput("table")
)

server <- function(input, output, session){

  data <- eventReactive(input$GO,{
    req(input$Stock)
    getSymbols(input$Stock,src = "yahoo", from="2015-01-01",to="2016-01-01",auto.assign=F)
  })

  output$table <- renderTable({
    data()
  })

}

shinyApp(ui, server)