R 闪亮的isn'；t返回选择器的所有行

我用pickerinput而不是selectinput制作了一个闪亮的仪表板。我的代码唯一的问题是，当您选择pickerinput中的所有俱乐部时，它不会显示整个数据集。当我选择所有俱乐部时，R Studio中会出现错误：

俱乐部中的警告==输入$clubInput: 较长的对象长度不是较短对象长度的倍数

我有什么遗漏或做错了吗？让我知道，这对我会有很大帮助

我正在使用的数据集：

库（httr）
图书馆（tidyverse）
图书馆（dplyr）
图书馆（rvest）
图书馆（GG2）
图书馆（闪亮）
图书馆（shinythemes）
图书馆（shinyWidgets）
顶级射手在%input$clubInput中尝试使用
俱乐部%
。
library(httr)
library(tidyverse)
library(dplyr)
library(rvest)
library(ggplot2)
library(shiny)
library(shinythemes)
library(shinyWidgets)

Top_goalscorers <- Top_goalscorers
all_clubs <- unique(Top_goalscorers$club)


ui <- fluidPage(
  titlePanel("Premier league goals 2019/2020"),
  sidebarLayout(
    sidebarPanel(
      pickerInput("clubInput","Club",
                  choices= all_clubs, 
                  options = list(`actions-box` = TRUE),
                  multiple = T),
      #selectInput("typeInput", "Club",
      #choices =  all_clubs, 
      #selected = "Arsenal"),
      sliderInput("goalInput", "Goals", 0,30, c(0,30)),
      
    ),
    mainPanel(
      tabsetPanel(
        tabPanel ("Plot", plotOutput("myplot")),
        tabPanel ("Tabel", tableOutput("resultaten"))
      )
    )
  )
)

server <- function(input, output, session) {
  
  filtered <- reactive({
    req(input$clubInput,input$goalInput[1],input$goalInput[2])
    Top_goalscorers %>%
      filter(club == input$clubInput,
             goals >= input$goalInput[1],
             goals <= input$goalInput[2],
             
      )})
  
  output$resultaten <- renderTable({
    filtered()
  })
  
  output$myplot <- renderPlot({
    ggplot(filtered(), aes(x=goals, y=club, fill=goals_eerste_helft)) +
      geom_point(size=2, shape=23)
  })
  
}


shinyApp(ui = ui, server = server)