R/cellculture_server.R

Defines functions cellculture_server

cellculture_server <- function() {
    library(shiny)
    # library(lubridate)
    TBL <- new.env()
    TBL$data <- data.frame()
    
    shinyServer(function(input, output,session) {
        observeEvent(input$add, {
            TBL$data <- dplyr::bind_rows(
                TBL$data,
                data.frame(
                    Date = input$date,
                    passage = input$passage,
                    count =  input$count,
                    viability = input$viability,
                    operator = input$operator,
                    notes = input$notes,
                    stringsAsFactors = F
                )
                
            )
            output$current_tbl = DT::renderDataTable({
                TBL$data
            }, options = list(dom = 't'))
            # print(TBL$data)
            updateNumericInput(session,"passage",value=0)
            updateNumericInput(session,"count",value=0)
            updateNumericInput(session,"viability",value=0)
            updateTextAreaInput(session,"notes",value=NA)
        })
        #########
        observeEvent(input$clear, {
            TBL$data <- data.frame()
            output$current_tbl = DT::renderDataTable({
                TBL$data
            })
        })
        observeEvent(input$upload, {
            print("up to kraken")
            db <- adminKraken::con_mysql()
            RMySQL::dbWriteTable(
                db,
                "cellculture",
                TBL$data,
                append = T,
                overwrite = F,
                row.names = FALSE
            )
            RMySQL::dbDisconnect(db)
            TBL$data <- data.frame()
            output$current_tbl = DT::renderDataTable({
                TBL$data
            })
        })
        
        #########
    })
}
JARS3N/LiveLongAndProsper documentation built on June 21, 2020, 12:49 p.m.