如何解决dateInput小部件的默认值未通过
我的ShinyDashboard中有一个dateInput字段,如下所示
dateInput("datatabledate","Date : ",value = max(daily_counts$Date),min = min(daily_counts$Date),max = max(daily_counts$Date))
并且正在尝试使用在日期字段中选择的输入来过滤数据表中的记录。
output$datatable = renderDataTable({
daily_counts %>%
filter(Date == input$datatabledate) %>%
select(region,Confirmed,Deaths,Recovered) %>%
datatable(options = list(dom = 'Bts'),rownames = FALSE,colnames = c("State" = 1,"Confirmed" = 2,"Deaths" = 3,"Recovered" = 4))
})
选择日期值后,表格上的过滤效果很好,但是在初始加载应用程序时出现错误提示
Problem with `filter()` input `..1`.
Input `..1` must be of size 257 or 1,not size 0.
Input `..1` is `Date == input$datatabledate`
我猜这是由于默认值未被识别为input $ datatabledate,但是由于我已经在dateInput小部件中将默认值分配给'value'参数,因此不确定如何解决此问题。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。