R：如何从；日期范围“；，将它们插入Quandl，并使用生成的数据生成图形

我开始构建我的第一个闪亮的应用程序，结果比预期的要复杂（学习！）。不幸的是，我已经设法用谷歌搜索了大量的小错误，在没有错误的情况下，它只返回一个空白的图表

代码：（服务器）

我想要的是：我希望用户能够在日期范围内输入日期，将这些变量输入Quandl代码（），然后为它们提取数据并生成一个简单的图形。稍后我想添加定义邮政编码和变量的功能。例如，这可以起到以下作用：

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)})

库（ggplot2）
图书馆（Quandl）
图书馆（方法）
shinyServer(
功能（输入、输出）{
开始日期=“2010-01-01”
结束日期=“2015-01-01”
psuedonym=Quandl（“ZILL/Z90001 A”，开始日期，结束日期，type=“raw”）
输出$qplot我认为您误解了shiny的工作原理

看看这个教程。

用户界面

服务器.R

shinyServer(function(input, output) {
  output$qPlot <- renderPlot({ 
    psuedonym<-Quandl("ZILL/Z94550_A", input$date_range[1], input$date_range[2], type="raw")
    plot(psuedonym)
  }) 
}
)

shinyServer（功能（输入、输出）{
输出$qPlot
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)})

shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(dateRangeInput("date_range", label=h3("Date Range"),start="2010-01-01", end="2015-01-01")
    ),
    mainPanel(
      plotOutput("qPlot")
    )
  )
))

shinyServer(function(input, output) {
  output$qPlot <- renderPlot({ 
    psuedonym<-Quandl("ZILL/Z94550_A", input$date_range[1], input$date_range[2], type="raw")
    plot(psuedonym)
  }) 
}
)