Подмножество набора данных на основе selectInput () всегда дает набор данных с одинаковым количеством строк

Question

У меня есть блестящая панель инструментов ниже, и я использую selectInput() для подмножества набора данных iris на основе Species. Хотя это, кажется, работает, странная вещь случается. Какой бы выбор я ни сделал - даже все - я всегда получаю 50 записей в таблице, что, конечно, неправильно.

## app.R ##
library(shiny)
library(shinydashboard)
library(DT)
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    selectInput("select", label = "Select", 
                choices = unique(iris[,5]), 
                selected = "virginica",multiple = T)
  ),
  dashboardBody(
    dataTableOutput("d")
  )
)

server <- function(input, output) {

  output$d<-renderDataTable({
    ir<-subset(iris, Species==input$select)

    datatable(ir)
  })
}

shinyApp(ui = ui, server = server)