小编And*_*eas的帖子

我正在尝试为闪亮的仪表板制作一个数据表，该仪表板将在列上有一个下拉过滤器。我实际上可以使用它，但外观我称之为低于标准。

这是我的简单例子

library(DT)
mytable <- data.frame(Col1 = as.factor(LETTERS[1:3]))
datatable(mytable, filter = "top")

当我激活下拉菜单时，过滤器文本输入看起来不错：

然而，当我点击离开时，它看起来并不那么好：

有没有什么方法可以保留那个漂亮的 A 和一个气泡中的 x（抱歉，我确信有一个更好的术语），或者至少去掉括号和引号？我知道，如果列值是字符而不是因子，我可以获得更好看的文本输入，但是它们我失去了下拉功能（与这个问题Factor dropdown filter in DT::datatable in闪亮仪表板不起作用），这我需要。

mytable <- data.frame(Col1 = LETTERS[1:3], stringsAsFactors = FALSE)
datatable(mytable, filter = "top")

我对像这篇文章Edit datatable in Shiny with dropdown select for Factor Variables 中的单元格下拉菜单感到满意，但我需要过滤表格，而不是编辑它。

版本信息：

R版本3.5.3

DT_0.20