Generated by Flow

component.R

# Interactive Table Components
# Created by RGistGenerator

flow.module <- local({
    # Required Libraries
    require(shiny)
require(DT)

    # Component Functions
    list(
        interactiveTableUI_flow = function(id) {
  tagList(
    DTOutput(NS(id, "table"))
  )
},

interactiveTableServer_flow = function(id, data) {
  moduleServer(id, function(input, output, session) {
    output$table <- renderDT({
      datatable(data(), options = list(
        pageLength = 10,
        autoWidth = TRUE,
        searching = TRUE,
        ordering = TRUE,
        lengthChange = TRUE
      ))
    })
  })
} 
    )                  
})

flow.module