server.R

library(shiny)
library(data.table)

#uncomment for workaround
#assignInNamespace("cedta.override","shiny","data.table")

DT <- data.table(names=c("a","b","c","d","e"),value=c(1,3,5,7,10))

shinyServer(function(input, output) {

  output$view <- reactiveTable(function() {
    WorkingData <- DT[value>=input$min]
  })
})

ui.R

library(shiny)

shinyUI(pageWithSidebar(
  
  headerPanel("data.table example"),

  sidebarPanel(
    sliderInput("min", 
                "Only show values >=", 
                min = 0, 
                max = 10, 
                value = 0,
                step = 1)
  ),
  
  mainPanel(
    tableOutput("view")
  )
))