R 我们可以在DT中创建多个过滤器/下拉列表吗

我有一个简单的应用程序。我把日期和时间都写在一栏里了。那么我们可以为这个列创建多个过滤器/下拉列表吗

---
title: "Untitled"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
df <- data.frame(A=c("2018-01-01 06:06:06","2018-01-02 06:06:01"),B=c("A","B"))
DT::dataTableOutput('a')
output$a <- DT::renderDataTable(
    df)
```

---
标题：“无标题”
运行时间：闪亮
输出：
flexdashboard:：flex_仪表板：
方向：列
垂直布局：填充
---
```{r设置，include=FALSE}
库（flexdashboard）
```
列{数据宽度=650}
-----------------------------------------------------------------------
###图表A
```{r}
df