R:If-参数的长度为zerp时出错

我面临着一个非常奇怪的错误，在R闪亮。 我有一个下拉过滤器，显示日期类型-到期日、付款日期和总账日期。 根据下拉列表中的日期类型，我分别为上面提到的每种类型提供了日期范围选择器

用户界面代码如下：

output$select_DateType <- renderUI({
  selectInput("date_type","Select Date Type", choices=c("Due Date","GL Date","Payment Date"),selected = "Due Date")
})


output$daterange_due <- renderUI({
  
  x<-reactive({req(input$date_type)})
  y <- x()
 
  if(y == "Due Date"){
     dateRangeInput(inputId = "duedate",label="Due date range",start = min(mydata             ()$duedate),end=max(mydata()$duedate),separator="-")
  } else if(y == "GL Date"){
    dateRangeInput(inputId = "gldate",label="GL date range",start = min(mydata()$gldate          ),end=max(mydata()$gldate),separator="-")

  } else {
    dateRangeInput(inputId = "paydate",label="Payment date range",start = min(mydata             ()$paydate),end=max(mydata()$paydate),separator="-") }
  
})

---

output$select\u DateType Hi并欢迎使用SO:）请提供一个可复制的示例，以帮助他人帮助您。请参阅此答案以获取指导。在服务器端使用这些变量之前，请确保对所有用户输入变量（input$abcs）和反应数据帧使用
req（）
。
valueBox(subtitle = "Total Spend",prettyNum(round(sum(as.numeric(mydata$invamt.base/1000000),na.rm = TRUE),2),big.mark=","),color = "navy", width = 4) 
}else {
mydata <- mydata()%>%filter(paydate >= input$paydate[1] & duedate <= input$paydate[2])

mydata$paydate <- as.numeric(mydata$paydate)
mydata$paydate[is.na(mydata$paydate)] <- 0

valueBox(subtitle = "Total Spend",prettyNum(round(sum(as.numeric(mydata$invamt.base/1000000),na.rm = TRUE),2),big.mark=","),color = "navy", width = 4) }