R/related_lots_server.R

Defines functions related_lots_server

related_lots_server <- function() {
    library(shiny)
    library(dplyr)
    db <- adminKraken::con_dplyr()
    shinyServer(function(input, output, session) {
        observeEvent(input$search, {
            mfltbl <- get_related_tbl(input$Lot, input$ltype,db)
            
            output$mftable <-
                DT::renderDataTable({
                    mfltbl
                }, options = list(dom = 'tp'))
            
        })
    })
}
JARS3N/LLP documentation built on Jan. 24, 2023, 12:12 a.m.