我开始构建我的第一个闪亮的应用程序,它最终比预期的更复杂(学习!)不幸的是,我已经设法将大量的小错误谷歌到没有错误的情况下,它只是返回一个空白的图表。
代码:(server)
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)})})
})
(ui)
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",
)
))))
我想要的:我希望用户能够在Date Range中输入日期,将这些变量输入到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:错误在qplot从ggplot2: argument "env"缺少,没有默认)和先前的错误消息使我认为数据帧出了问题,它没有以某种方式获得Quandl数据。
提前感谢您的帮助
我想你误解了闪亮的作用。
看看这个教程。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")
)
)
))
服务器。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)
})
}
)