R：Shiny - 如何基于daterangeInput进行子集化然后制作条形图

i've this data frame:

我有这个数据框：

    date      sessions      Fuentes
1 2014-12-01      197       Directo
2 2014-12-01        1       Referencias
3 2014-12-01        7       Social Media
4 2014-12-01       13       SEO
5 2014-12-01        1       Email
6 2014-12-01        1       Referencias
    date