Shiny App R;Не принимая вход

Question

Я пытаюсь написать блестящее приложение, и у меня возникли проблемы.Моя цель: сделать облако слов, которое принимает Год в качестве входных данных.Прямо сейчас он печатает одни и те же слова для каждого года, указывая на то, что он не принимает данные, есть идеи, как это исправить?Большое спасибо!

Вот мой файл ui.R:

library(shiny)

ui <- fluidPage(
  # App title
  headerPanel("Word Cloud"),
  # Sidebar panel for inputs
  sidebarPanel(
    #using the select input function to have users choose a year
    selectInput("year","Choose a Year:",
                choices = NYT_tokens_freq$Year),
    #actionButton("update", "Change"),
    hr(),
    sliderInput("maximum","Max. Number of Words",
                min=1, max=20, value=100)
  ),
  # Main panel for displaying outputs
  mainPanel(
    plotOutput("wmplot")
  )
)

Вот мой файл server.R:

library(shiny)
library(tm)
library(wordcloud)
library(tidyverse)

NYT_tokens <- read.csv("NYT_tokens_freq.csv")

server <- function(input, output) {
  terms <- reactive({
  input$year
  })



  output$wmplot <- renderPlot({
    NYT_tokens_freq%>%
    filter(Year == input$year)
    wordcloud(words = NYT_tokens_freq$word, scale= c(1,0.5),
                max.words=input$maximum, random.order=FALSE,
                colors=brewer.pal(5, "Dark2"))
  })
  }