filter column with 2 levels

[guillaumechaumet]

I use the following code to filter 4 columns:

pathogenicity_label = colDef(
  na = "Not Classified",
  filterInput = function(values, name) {
  tags$select(
    onchange = sprintf("Reactable.setFilter('genomtab', '%s', event.target.value || undefined)", name),
    tags$option(value = "", "All"),
    purrr::map(sort(unique(values)), tags$option),
    "aria-label" = sprintf("Filter %s", name),
    style = "width: 100%; height: 28px;"
     )
  }
)

It work for every columns but not for 1 column which only have 2 levels. When I choose the first level, It has the same result as "All".

Is it a known bug ?

Edit:

Here, a simple code with this bug

library(reactable)
library(htmltools)
mytable = data.frame(group = c(rep('HP',26),rep('NHP',26)),var1 = rep(LETTERS,2), rnorm(52,mean = 30,sd = 10))


htmltools::browsable(
  tagList(
    reactable(mytable,
      searchable = TRUE,
      highlight = TRUE,
      bordered = TRUE,
      rowStyle = list(cursor = "pointer"),
      defaultPageSize = 5,
      striped = TRUE,
      wrap = FALSE,
      filterable = TRUE,
      columns = list(
        group = colDef(
          filterInput = function(values, name) {
            tags$select(
            onchange = sprintf("Reactable.setFilter('mytab', '%s', event.target.value || undefined)", name),
            tags$option(value = "", "All"),
            lapply(sort(unique(values)), tags$option),
            "aria-label" = sprintf("Filter %s", name),
            style = "width: 100%; height: 28px;"
          )
        }
      )
      ),
      elementId = "mytab"
    )
  )
)