使用DateRangeInput在R中打印子集数据

我试图使用一些输入参数对数据集进行子集划分，然后绘制输出。我能够为不同的团队绘制不同的统计数据，但我无法找出如何为输入日期范围子集我的数据。附件是我的服务器和用户界面

服务器：

library(shiny)

season = read.csv("2016_Season.csv")
season$date = as.POSIXct(season$date)

function(input, output) {

   adjust <- function() {

     data = season

     #data = data[data$date >= input$dates[1],]
     #data = data[data$date <= input$dates[2],]

     if (input$Team != "All"){                
      data <- data[data$Team == input$Team,] 
     }

     data = data[,c('date',input$Stat)]

      }

   output$distPlot <- renderPlot({

     plot(adjust())
   })
}

当这两行代码在服务器中被注释掉时，代码运行良好，尽管日期过滤器显然不起作用：

 #data = data[data$date >= input$dates[1],]
 #data = data[data$date <= input$dates[2],]

#data=data[data$date>=输入$dates[1]，]
#data=data[data$date尝试将POSIXct转换为date:
data=data[as.date（data$date）>=输入$dates[1]，]
嘿，谢谢你这么做。非常感谢Daniel和HubertL。
 #data = data[data$date >= input$dates[1],]
 #data = data[data$date <= input$dates[2],]