有光泽的 - 带有子集的交互式ggplot

Question

我是R＆amp; shine的新手。我想创建一个闪亮的应用程序，该情节可以与我选择的子集交互，但ggplot不能用于警告

  

错误ouptut $ Trendplot＆lt; - renderPlot（{：object＆＃39; ouptut＆＃39; not found

如果您能帮助确定其有效，我们将非常感激。

以下是我的代码：

library(shiny)
library(ggplot2)
# Define UI for application that draws a histogram
ui <- pageWithSidebar(

   # Application title
   headerPanel("Pre-report situation"),

   # Sidebar with a slider input for number of bins 
      sidebarPanel(selectizeInput("DMS", "DMS:", choices = unique(datass$DMS)
      )),

      # Show a plot of the generated distribution
      mainPanel(
      h3(textOutput("caption")),
      plotOutput("Trendplot"))
   )
datass <- read.csv("C:/Users/yyu6/Documents/PR.csv", sep=",", stringsAsFactors = FALSE)
# Define server logic required to draw a histogram
server <- function(input, output) {
   formulaText <- reactive({
    input$DMS  })

   datasetInput <- reactive({
     selection <- Input$DMS
     subset(datass, DMS == selection)
   })

  output$caption <- renderText({formulaText()
   })

  ouptut$Trendplot <- renderPlot({
  ggplot(datasetInput(), mapping = aes(x=DMS))+geom_histogram(stat = "count")
  })
   }
# Run the application 
shinyApp(ui = ui, server = server)