R: объект типа 'замыкание' не является подмножеством (проблема Rshiny)

Question

library('shiny')
library('ggplot2')
library('dplyr')

data = read.csv('recent_grads.csv')
data = na.omit(data)

ui = fluidPage(
  titlePanel('The Economic Guide to Picking a College Major'),
  sidebarLayout(
    sidebarPanel(
      helpText('See the employment situation'),
      selectInput(
        inputId = 'yvar',
        label = 'Metrics',
        choices = c('Total graduates'='Total',
                    'Women rate'='ShareWomen',
                    'Unemploymentrate'='Unemployment_rate',
                    'Full time rate'='Full_time_rate',
                    'College jobs rate'='College_jobs_rate',
                    'Low wage jobs rate'='Low_wage_jobs_rate',
                    'Salary median'='Median',
                    'Salary P25th'='P25th',
                    'Salary P75th'='P75th')
      )
      ),
    mainPanel(
      plotOutput(outputId = 'plot1')
    )
    )
  )

server = function(input, output){
  top10 = reactive({
    head((data %>%
            arrange(desc(input$yvar))),10)
  }) 
  output$plot1 = renderPlot({
    ggplot(top10, aes_string(x=top10$Major,y=input$yvar)) +
      geom_col(aes(fill=top10$Major_category)) +
      ggtitle(input$yvar) +
      xlab('Major') + ylab('') + scale_fill_discrete(name='Major category')
  })
}
shinyApp(ui,server)

Я попытался отфильтровать большой набор данных, найдя 10 лучших записей в соответствии с выбранными метриками.Однако это не работает.Он говорит: « Предупреждение: ошибка в $: объект типа« замыкание »не может быть подмножеством .»

Если я удаляю коды о top10 и строю весь набор данных, это работает.

Создание всего набора данных ужасно, недопустимо ...

Что мне делать?