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: error in qplot from ggplot2: argument "env" is missing, with no default) и предыдущее сообщение об ошибке заставляет меня думать, что что-то пошло не так с кадром данных, что он не получает данные Quandl как-то.

Заранее спасибо за любую помощь

Answer 1

я думаю, вы поняли, как блестящие работы.

Посмотрите этот учебник. http://shiny.rstudio.com/tutorial/lesson4/

ui.R

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

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