在dateRangeInput中使用动态日期

我正在尝试建立一个相对基本的闪亮应用程序，允许用户查看一段时间内事件的条形图，用户可以控制所讨论的日期范围。但是，我还试图确保用户不能选择超出相关数据集中可用的最小和最大范围之外的日期范围

我的服务器。R：

shinyServer(function(input, output){
  data<-read.csv('CMI-app/data/AnalysisData_FIWI_2014_NESH06Aug14.csv')
  notesBySite<-initialProcessing(data)
  notesBySite_Day<-notesBySite_Day(data)
  output$dates<-renderTable(cbind(min(notesBySite_Day$Date), max(notesBySite_Day$Date)))
})

我还尝试将dateRangeInput行替换为：

      dateRangeInput("date",
                     label="Date Range of Interest",
                     min=dates[1],
                     max=dates[2],
                     weekstart=1)

---

但这也没有奏效。在这两种情况下，都会发生对象日期未找到错误。在尝试包含此功能时，我是否完全找错了方向？我可以很容易地进入数据集并手动更改允许的最小和最大日期，但我想将其用作更广泛应用程序的框架，使用户能够处理许多不同的数据集

看看，我刚看了一下，它正是我需要的。谢谢

      dateRangeInput("date",
                     label="Date Range of Interest",
                     min=dates[1],
                     max=dates[2],
                     weekstart=1)