R/module_plateMap.R

In chasemc/IDBac_App: MALDI-TOF MS Protien and Small Molecule Analysis

#' plateMapUI
#'
#' @param id namespace
#'
#' @return UI
#' 
#'

plateMapUI <- function(id) {
  ns <- shiny::NS(id)
  
  showModal(modalDialog({
    tagList(
      rhandsontable::rHandsontableOutput(ns("plateDefault")),
      actionButton(ns("save"), "Save")
    )
  }))
  
  
  
}




#' platemod
#'
#' @param input shiny module
#' @param output shiny module
#' @param session shiny module
#'
#' @return rhandsontable 
#' 
#'

platemod <- function(input,
                     output,
                     session){
  
  
  
  qwerty <- reactiveValues(rtab = NULL)
  
  
  output$plateDefault <- rhandsontable::renderRHandsontable({
    
    if(is.null(qwerty$rtab)){
      qwerty$rtab <- as.data.frame(base::matrix(NA,
                                                nrow = 16,
                                                ncol = 24,
                                                dimnames = list(LETTERS[1:16],1:24)))
    }
    
    rhandsontable::rhandsontable(qwerty$rtab,
                                 useTypes = FALSE,
                                 contextMenu = TRUE ) %>%
      rhandsontable::hot_context_menu(allowRowEdit = FALSE,
                                      allowColEdit = TRUE) %>%
      rhandsontable::hot_cols(colWidths = 100) %>%
      rhandsontable::hot_rows(rowHeights = 25)
  })
  
  
  
  
  observeEvent(input$save, {
    aq <- rhandsontable::hot_to_r(input$plateDefault)
  })
  
  return(reactive(qwerty$rtab))
  
  
}