shiny - Rシャイニー予測ARMA

Question

ARMA 予測を学びたいのですが、ビットコインからダウンロードしたビットコイン データセットを使用して予測しようとしています。

次のコードに苦労しています。ライブラリ(Quandl)

 library(forecast)
    library(tseries)
    library(shiny)


    ui <- shinyUI(fluidPage(
      titlePanel("Simple ARMA Bitcoin Forecasting"),
      sidebarLayout(
         sidebarPanel("Please choose the number of periods",
                     numericInput("num",h3("Numeric input"), value = 1)),

      mainPanel(plotOutput("plot")))
    )
    )

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

      output$plot <- plotOutput({

        bitcoin <- Quandl("BITSTAMP/USD",type = "xts")

        bitcoin_price <- bitcoin[,3]

        barplottest <- diff(log(bitcoin_price))

        fit <- auto.arima(dataInput)

        fit %>% forecast(h="input$num") %>% autoplot()
          })

    })

    shinyApp(ui,server)

これは私が受け取るエラーです:

 Warning: Error in as.ts: object 'dataInput' not found
Stack trace (innermost first):
    44: as.ts
    43: auto.arima
    42: imageOutput [#11]
    41: plotOutput
    40: server [#3]
     4: <Anonymous>
     3: do.call
     2: print.shiny.appobj
     1: <Promise>
Error in as.ts(x) : object 'dataInput' not found