Filter not working properly with FixedColumns

[tillschwoerer]

Hi,

in my shiny app I want to fix the first column when scrolling horizontally, but still be able to filter this column. At first glance this is not working at all:

When scrolling, the filter is moving left, away from the corresponding column. This filter is now working. However, when scrolling even further this filter disappears:

This is the code which produces this behaviour:

library(shiny)
library(DT)
library(data.table)

shinyApp(
  ui = fluidPage(
    
    fluidRow(column(6, DT::dataTableOutput("testDT")))
    
  ),
  
  server = function(input, output, session) {
    
    output$testDT <- DT::renderDataTable({
      
      mtcars <- mtcars
      mtcars <- setDT(mtcars, keep.rownames = TRUE)
      datatable(mtcars
                ,extensions =  c('FixedColumns')
                ,filter='top'
                ,options=list(
                  fixedColumns = list(leftColumns=2)
                  ,autoWidth = T
                  ,scrollX = TRUE
                  ,columnDefs = list(list(width=100,targets=c(0:ncol(mtcars))))
                  
                )
      )
      
    })
    
  })

[yihui]

This is similar to #275, and I'm unable to fix it. Sorry!