R带有列过滤器的数据表-保留样式

我在Shiny中使用DT软件包，并希望使用过滤器，但我对过滤器的样式有问题：

代码：DT:：datatable（概述，可编辑=TRUE，行名=FALSE，选择项='none'，过滤器='top'）

这是我添加项目时DT的外观。当我离开下拉列表时，它看起来像下面的图片（折叠），这当然是非常糟糕的

我想保留灰色框的样式，而不是为我的用户提供类似“[…”的东西。我如何才能做到这一点？如果DT无法做到这一点，我也可以选择使用另一个软件包

编辑：可复制的示例

df <- data.frame(a = c("a", "a", "b", "b", "c", "c"), b = c(1,2,3,4,5,6), c("A", "B"))
df <- setNames(df, c("A", "B"))

DT::datatable(df,editable=TRUE, rownames=FALSE, selection='none', filter='top')

---

df嗨，你能添加一个吗？当然，给我一秒钟。完成后，如果你知道什么，请告诉我：-）