R 条件图

我正在尝试创建一个带有新的RStudio功能的web应用程序，它可以绘制不同的股票。我创建了以下示例

我想选择数据集StockMarket，然后选择DAX，最后应该显示绘图

现在，如果运行此代码，将立即显示绘图

你能帮我吗

ui.R:
library(shiny)
library(ggplot2)

shinyUI(pageWithSidebar(

# Application title
headerPanel("Plot1"),
sidebarPanel(
selectInput("dataset", "Dataset", list("mtcars"="cars", "StockMarket"="stocks")),

conditionalPanel(
  condition = "input.dataset=='stocks'",
  uiOutput("data")
)),
mainPanel(
plotOutput('plotstock')) ))


server.R:
library(shiny)
require(ggplot2)
library(datasets)

shinyServer(function(input, output) {

output$data<- reactiveUI(function() {

selectInput("data", "Choose Dataset", colnames(EuStockMarkets))
})

output$plotstock <- reactivePlot(function() {
data<-data.frame(EuStockMarkets)
p<- ggplot(data,aes(x=seq(1,length(data[,1])),y=DAX))+geom_line(size=1)+ylab("")+opts(title="Time Series")
print(p)
 })})

ui.R:
图书馆（闪亮）
图书馆（GG2）
shinyUI（带侧栏的页面）(
#申请名称
标题板（“图1”），
侧栏面板(
选择输入（“数据集”、“数据集”、列表（“mtcars”=“cars”、“股票市场”=“股票”），
条件板(
condition=“input.dataset=”股票“，
UIO输出（“数据”）
)),
主面板(
plotOutput（'plotstock'）））
服务器.R:
图书馆（闪亮）
需要（ggplot2）
图书馆（数据集）
shinyServer（功能（输入、输出）{
在
reactivePlot
函数中输出$data，您可以执行以下操作

if (is.null(input$data))
  return(NULL)

我还将向数据集选项中添加一个空白条目（
“（选择一个）”=”
），并且

if (!nzchar(input$dataset))
  return(NULL)

在
reactivePlot
中，还要确保检查空字符串

if (!nzchar(input$dataset) || input$dataset=='')
return(NULL)