# SHiny module to show data frame using DT
datatableUI<- function(id){
  ns <- NS(id)
  tagList(
    h4("Full Data"),
    DT::dataTableOutput(ns("datatable"))
  )
  
}

datatableServer<- function(id, df){
  moduleServer(id, function(input, output, session){
    output$datatable <- DT::renderDataTable({
      DT::datatable(df)
    })
  })
}