从RShiny上的daterange输入生成反应性直方图

这是我的第一个R闪亮项目。作为背景，我尝试制作一个直方图 从数据库中获取数据，并使用日期作为条件

这是我的密码

应用程序R

库（闪亮）
图书馆（RJDBC）
#为绘制直方图的应用程序定义UI
ui如果没有数据，很难找到一个工作版本，但似乎您只需要提取厚度值，因为您无法创建数据帧的直方图：

x[as.Date(x$molding_date,"%m/%d/%Y") >= min(input$dateRange) & as.Date(x$molding_date,"%m/%d/%Y") <= max(input$dateRange), 'thickness']

谢谢你的回复。首先，我将代码更改为“hist（x[as.Date”（%m/%d/%Y））>=min（input$dateRange）和as.Date”（%m/%d/%Y）（%m/%d/%Y））你能通过共享一个最小的数据集来回答你的问题吗？嗨，很抱歉我的回答太晚了。在尝试和调整我的代码一点之后，问题是因为我把错误的数据列放入了我的日期变量中。在我修复它之后，你给我的代码像魔术一样工作！谢谢！当然，很高兴它是有用的
x[as.Date(x$molding_date,"%m/%d/%Y") >= min(input$dateRange) & as.Date(x$molding_date,"%m/%d/%Y") <= max(input$dateRange), 'thickness']

library(dplyr)

x %>%
  filter(between(molding_date, min(input$dateRange), max(input$dateRange))) %>%
  select(thickness)

# try to wrap the dates in 'as.Date' like your example if it does not work