R/module_data_conversion.R

Defines functions convertDataTab_UI convertDataTab_Server multipleMaldiPlates

Documented in convertDataTab_Server convertDataTab_UI multipleMaldiPlates

#' convertDataTab_UI
#'
#' @param id namespace
#'
#' @return ui
#' @export
#'
convertDataTab_UI <- function(id) {
  ns <- shiny::NS(id)

  navlistPanel(
    widths = c(3, 8),
    id = ns("ConversionsNav"),
    "Create an IDBac experiment",
    tabPanel(
      tags$ul(
        tags$li("Click here to convert Bruker files", align = "left")),
             value = ns("convert_bruker_nav"),
             
             wellPanel(class = "intro_WellPanel",
                       align = "center",
                       #       tabsetPanel(
                       #          tabPanel(title = "Data from single MALDI plate",
                       tempRepo::convertOneBruker_UI(ns("convertOneBruker"))
                       #           ) 
                       #                                        )
                       
                       
             )
    ),
    tabPanel(
      tags$ul(
        tags$li("Click here to convert mzML/mzXML files", align="left")),
             value = ns("convert_mzml_nav"),
             wellPanel(class = "intro_WellPanel",
                       align = "center",
                       tempRepo::convertMZ_UI(ns("beginWithMZ"))
             )
    ),
    tabPanel(
      tags$ul(
        tags$li("Click here to convert txt files", align = "left")),
             value = ns("convert_txt_nav"),
             wellPanel(class = "intro_WellPanel",
                       align = "center",
                       tempRepo::convertDelim_UI(ns("convertDelim"))
             )
    ),
    tabPanel(
      tags$ul(
        tags$li("Click here to convert Microtyper files", align = "left")),
             value = ns("convert_microtyper_nav"),
             wellPanel(class = "intro_WellPanel",
                       align = "center",
                       tempRepo::convertMicrotyper_UI(ns("convertMicrotyper"))
             )
    )
  )
}




#' convertDataTab_Server
#'
#' @param input shiny
#' @param output  shiny
#' @param session  shiny
#' @param tempMZDir  directory to create temp mzML if needed
#' @param sqlDirectory  where to write new SQLite file
#' @param availableExperiments update availableExperiments
#'
#' @return none, updates availableExperiments reactive value though
#' @export
#'

convertDataTab_Server <- function(input,
                                  output,
                                  session,
                                  tempMZDir,
                                  sqlDirectory, 
                                  availableExperiments){
  
  
  shiny::callModule(convertMZ_Server,
                    "beginWithMZ",
                    sqlDirectory = sqlDirectory,
                    availableExperiments = availableExperiments)
  
  
  shiny::callModule(convertOneBruker_Server,
                    "convertOneBruker",
                    tempMZDir = tempMZDir,
                    sqlDirectory = sqlDirectory,
                    availableExperiments = availableExperiments)
  
  
  
  shiny::callModule(convertDelim_Server,
                    "convertDelim",
                    tempMZDir = tempMZDir,
                    sqlDirectory = sqlDirectory,
                    availableExperiments = availableExperiments)
  
  
  shiny::callModule(convertMicrotyper_Server,
                    "convertMicrotyper",
                    tempMZDir = tempMZDir,
                    sqlDirectory = sqlDirectory,
                    availableExperiments = availableExperiments)
  
  
  
  
}







#' multipleMaldiPlates
#'
#' @param id NA
#'
#' @return NA
#' @export
#'

multipleMaldiPlates <- function(id){
  ns <- shiny::NS(id)
  fluidRow(
    column(12,
           br(),
           br(),
           fluidRow(
             column(12,offset = 3,
                    h3("Starting with Multiple MALDI Plates of raw data"))), br(), br(),
           column(5,
                  fluidRow(column(5,
                                  offset = 3,
                                  h3("Instructions"))),
                  br(),
                  p(strong("1:")," This directs where on your computer you would like to create an IDBac working directory."),
                  p("In the folder you select- IDBac will create folders within a main directory named \"IDBac\":"),
                  img(src = "WorkingDirectory.png",
                      style = "width:322px;height:164px"),
                  p("If there is already an \"IDBac\" folder present in the working directory,
                    files will be added into the already-present IDBac folder ", strong("and any samples with the same name will be overwritten.")),
                  br(),
                  p(strong("2:"),"The raw data file will be one folder that contains individual folders for each
                    MALDI plate. Each MALDI plate folder will contain an Excel map and two folders: one
                    containing protein data and the other containing small molecule data:"),
                  img(src = "Multi-MALDI-Plate.png", 
                      style = "width:410px;height:319px"),
                  p("Note: Sometimes the browser window won't pop up, but will still appear in the application bar. See below:"),
                  img(src = "window.png",
                      width = "100%")
           ),
           column(1),
           column(5,
                  style = "background-color:#7777770d",
                  fluidRow(
                    h3("Workflow Pane", align = "center")),
                  br(),
                  column(12, align = "center",
                         p(strong("1: Enter a Name for this New Experiment")),
                         p("Only numbers, \"_\", and A-Z. Shouldn't start with a number."),
                         textInput(ns("newExperimentName"),
                                   label = ""),
                         tags$hr(size = 20)),
                  fluidRow(
                    column(12,
                           verbatimTextOutput(ns("newExperimentNameText"),
                                              placeholder = TRUE))),
                  br(),
                  p(strong("2:"), "Your raw data will be one folder that contains folders for each MALDI plate."),
                  br(),
                  p(strong("2: Click to select the location of your raw data"), align = "center"),
                  actionButton(ns("multipleMaldiRawFileDirectory"),
                               label = "Click to select the location of your raw data"),
                  fluidRow(column(12,
                                  verbatimTextOutput(ns("multipleMaldiRawFileDirectory"),
                                                     placeholder = TRUE))),
                  br(),
                  column(12, align = "center",
                         p(strong("4:","Click \"Process Data\" to begin spectra conversion.")),
                         actionButton(("run"),
                                      label = "Process Data"),
                         tags$hr(size = 20))
           )
    )
  )
}
chasemc/tempRepo documentation built on May 28, 2019, 7:32 p.m.