为什么我在R中使用difftime时没有得到两个日期之间的差异？

Question

我尝试使用dateRangeInput计算两个日期之间的差异。我可以将这两个日期用作值，但是当我尝试使用difftime减去它们时，没有任何事情发生。

这是我的代码：

    date1 <- input$daterange[2]
    date2 <- input$daterange[1]
    date3 <- difftime(date2, date1, units = "days")

在这里你可以看到价值＆＃34; date3＆＃34;是空白的：

Value date3 stays blank

我在这里做错了什么？

编辑：
这是硬编码版本。复制并粘贴它以试用它。也不起作用。

date1 <- as.Date("2016-01-01")
date2 <- as.Date("2017-01-01")
date3 <- difftime(date2, date1, units = "days")