r - R Shiny: 「日付範囲」から日付を取得し、それらを Quandl にプラグインし、結果のデータを使用してグラフを生成する方法

Question

私は最初の光沢のあるアプリの構築を開始しましたが、予想よりも複雑になりました (学習!)。残念ながら、Google で大量の小さなエラーをエラーなしの状況にすることができました。空白のグラフが返されるだけです。

コード: (サーバー)

library(ggplot2)
library(Quandl)
library(methods)

shinyServer(
  function(input, output) {
# see (https://stackoverflow.com/questions/22834778/r-shiny-daterangeinput-format)

start_date2<-reactive({format(input$date_range[1])})
end_date2<-reactive({format(input$date_range[2])})

psuedonym<-data.frame(Date=as.Date(character()),
                      Value=integer(),
                      stringsAsFactors=FALSE)

psuedonym<-reactive({Quandl("ZILL/Z94550_A", start_date2, end_date2, type="raw")})

output$qplot<-renderPlot({reactive({plot(psuedonym$Date, psuedonym$Value)})})
})

(うい)

library(shiny)
shinyUI(fluidPage(
    titlePanel("My Shiny App"),

    sidebarLayout(position="right", 
        sidebarPanel(
        plotOutput("qplot")
        ),
    mainPanel(dateRangeInput("date_range", 
        label=h3("Date Range"), start="2010-01-01", end="2015-01-01",
    )
))))

私が欲しいもの: ユーザーが日付範囲に日付を入力し、それらの変数を Quandl コード ( https://www.quandl.com/help/r ) に入力し、そのデータをプルして、簡単なグラフを生成します。後で、郵便番号と変数を定義する機能を追加したいと思います。たとえば、これは機能します。

library(ggplot2)
library(Quandl)
library(methods)

shinyServer(
  function(input, output) {

    start_date="2010-01-01"
    end_date="2015-01-01"
    psuedonym=Quandl("ZILL/Z90001_A", start_date, end_date, type="raw")
    output$qplot<-renderPlot({plot(psuedonym)})

私が間違っていると思うこと: これ( R: ggplot2 からの qplot のエラー: 引数 "env" がありません。デフォルトはありません) と前のエラー メッセージにより、データ フレームに何か問題が発生したと思われます。何とかQuandlデータ。

助けてくれてありがとう