r - 搜索精确匹配 R 数据表

Question

我的问题是数据表包中的全局搜索栏。

我正在尝试设置此全局搜索栏以查找完全匹配的内容。这里有一些基于 java 查询 的说明:

search exact match and highlight jquery datatable regex

但是，我需要知道如何在 Rstudio 中做同样的事情。我想我必须使用 JS() 函数，但是，我不确定该怎么做。

我想出了“smart=FALSE”解决方案，但它对我不起作用。

此外，我无法使用 shiny 应用程序，因为我们公司的服务器上没有它。

这是一个虚拟的例子:

library(DT)
f=data.frame(c(10,12,35),c('aa','ab','cc'))
colnames(f)<- c('Col1','Col2')
datatable(f)

如果您在全局搜索栏中键入“a”，您将获得 2 个观察结果，其中均包含“a”。但是，我不想得到任何观察结果，因为表中没有与“a”完全匹配的内容。

非常感谢任何帮助。

问候，

阿德尔

Answer 1

这仅适用于浏览器，不适用于 RStudio 查看器:

js <- c(
  "function(settings){",
  "  var instance = settings.oInstance;",
  "  var table = instance.api();",
  "  var input = instance.parent().find('.dataTables_filter input');",
  "  input.off('keyup search input').on('keyup', function(){",
  "    var keyword = '\\\\b' + input.val() + '\\\\b';",
  "    table.search(keyword, true, false).draw();",
  "  });",
  "}"
)

datatable(iris[c(1,2,51,52,101,102),], 
          options = list(initComplete = JS(js))
)