Форматирование в DT отключает прокрутку и выбор поиска по столбцам. Как это исправить?

Question

Мне нужно, чтобы таблица DT была блестящей, чтобы иметь как цветное форматирование, так и фильтры для столбцов с ползунками / выделениями, как показано ниже:

Однако, только одна из двух функций, изменяя datatable на as.datatable при возврате таблицы. Ниже приведен пример с радужной оболочкой:

library(shiny)
library(DT)
library(formattable)

ui <- fluidPage(
  selectInput("input1","Species: ", choices = c("setosa", "versicolor", "virginica")),
  DT::dataTableOutput("table1"))

# make a data.table of the iris dataset. 
df <- iris

server <- function(input, output){

  output$table1 <- DT::renderDataTable( {

    my_df <- df[df$Species==input$input1,]

    return(datatable(formattable(my_df, lapply(1:4, function(col){area(col = col) ~ color_tile("red", "green")})), filter = "top"))
  }
  )

}

shinyApp(ui, server)

Есть ли способ исправить это?