No 'Show entries' dropdown when working with DT library

[lisovyk]

Sample:

library(shinymaterial)
library(DT)


ui <- material_page(
    DT::dataTableOutput("iris")
)

server <- function(input, output) {

    DTiris <- DT::renderDataTable({
        datatable(iris)
    })
    output$iris <- DTiris
}

shinyApp(ui = ui, server = server)

In the top left corner of the page you'll see "Show entries" sign, and there should be a dropdown nearby. Try changing material_page onto fluidPage to see what I'm talking about.

[lisovyk]

Tried on dev version, bug is still there

[ericrayanderson]

Try the most recent dev version.

[lisovyk]

It seems a bit clumsy, but it works. Thanks!