R/module_convertDelim.R

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

#' beginWithTXT
#'
#' @param id NA
#'
#' @return NA
#' 
#'

convertDelim_UI <- function(id){
  ns <- NS(id)
  tagList(
    h3("Starting with tab, csv, or txt files:"),
    p("Each file should only contain a single profile spectrum formatted in two columns,", 
      br(),
      "the first being ", tags$i("m/z")," and the second column being intensity values"),
    br(),
    p(strong("1: Enter a name for this new experiment")),
    p("This will become a filename, non-valid characters will be removed."),
    p("Hint: Intead of a space, use \"_\"."),
    textInput(ns("newExperimentName"),
              label = "",
              width = "50%",
              placeholder = "Enter Experiment Name Here"),
    verbatimTextOutput(ns("newExperimentNameText"),
                       placeholder = TRUE),
    tags$hr(size = 20),
    p(strong("2: Click to select the location of your files"),
      align = "center"),
    p("At least one protein or one small molecule file is required."),
    radioButtons(ns("centroid"),
                 "Data Type",
                 choices = list("Currently IDBac only accepts profile data" = FALSE),
                 selected = FALSE),
    actionButton(ns("delimitedDirectoryP"),
                 label = "Click to select folder containing protein data"),
    
    verbatimTextOutput(ns("proteinFiles"),
                       placeholder = FALSE),
    
    actionButton(ns("delimitedDirectorySM"),
                 label = "Click to select folder containing small-molecule data"),
    
    verbatimTextOutput(ns("smallMolFiles"),
                       placeholder = FALSE),
    tags$hr(size = 20),
    p(strong("3: Begin conversion")),
    
    actionButton(ns("runDelim"),
                 label = "Process Data")
    
  )
}






#' convertDelim_Server
#'
#' @param input module
#' @param output module
#' @param session module
#' @param tempMZDir tempMZDir 
#' @param sqlDirectory sqlDirectory 
#' @param availableExperiments availableExperiments
#' @param ... advanced arguments for MALDIquant, see [IDBacApp::processSmallMolSpectra()] and/or [IDBacApp::processProteinSpectra()]
#'
#' @return .
#' 
#'

convertDelim_Server <- function(input,
                                output,
                                session,
                                tempMZDir,
                                sqlDirectory,
                                availableExperiments,
                                ...){
  
  
  # Reactive variable returning the user-chosen location of the raw delim files as string
  #----
  
  selectedPaths <- reactiveValues()
  
  observeEvent(input$delimitedDirectoryP, {
    selectedPaths$protein <- choose_dir()
    
  })
  
  observeEvent(input$delimitedDirectorySM, {
    selectedPaths$smallmol <- choose_dir()
    
  })
  
  
  output$newExperimentNameText <- renderText({
    a <- gsub(" ", "", sanitize(input$newExperimentName))
    
    if (a == "") {
      "Once entered, the filename-friendly version of the entered name will appear here once. \n
      This will be the version of your experiment name that is saved."
    } else {
      a
    }
  })
  
  
  # Creates text showing the user which directory they chose for raw files
  #----
  output$smallMolFiles <- renderText({
    req(smallMolFiles())
    names <- tools::file_path_sans_ext(base::basename(smallMolFiles()))
    paste0(names, collapse = " \n ")
  })
  
  
  # Creates text showing the user which directory they chose for raw files
  #----
  output$proteinFiles <- renderText({
    req(proteinFiles())
    names <- tools::file_path_sans_ext(base::basename(proteinFiles()))
    paste0(names, collapse = " \n ")
    
  })
  
  proteinFiles <- reactive({
    
    if (is.null(selectedPaths$protein)) {
      NULL
    } else {
      
      foldersInFolder <- list.files(selectedPaths$protein, 
                                    recursive = TRUE, 
                                    full.names = TRUE,
                                    pattern = "(.txt|.tab|.csv)$") # Get the folders contained directly within the chosen folder.
    }
  })
  
  
  
  smallMolFiles <- reactive({
    
    if (is.null(selectedPaths$smallmol)) {
      NULL
    } else {    
      foldersInFolder <- list.files(selectedPaths$smallmol, 
                                    recursive = TRUE, 
                                    full.names = TRUE,
                                    pattern = "(.txt|.tab|.csv)$") # Get the folders contained directly within the chosen folder.
    }
  })
  
  sanity <- reactive({
    a <- sanitize(input$newExperimentName)
    gsub(" ","",a)
  })
  
  # Run raw data processing on delimited-type input files
  #----
  observeEvent(input$runDelim, 
               ignoreInit = TRUE, {
                 
                 req(!is.null(sanity()))
                 req(sanity() != "")
                 req(is.null(proteinFiles()) + is.null(smallMolFiles()) < 2)
                 
                 if (is.null(smallMolFiles())) {
                   smallPaths <- NULL
                   sampleNameSM <- NULL
                 } else {
                   smallPaths <- smallMolFiles()
                   sampleNameSM <- tools::file_path_sans_ext(basename(smallPaths))
                 }
                 if (is.null(proteinFiles())) {
                   proteinPaths <- NULL
                   sampleNameP <- NULL
                 } else {
                   proteinPaths <- proteinFiles()
                   sampleNameP <- tools::file_path_sans_ext(basename(proteinPaths))
                 }
                 
                 req(length(proteinPaths) == length(sampleNameP))
                 req(length(smallPaths) == length(sampleNameSM))
                 popup3()
                 
                 keys <- delim_to_mzml(proteinPaths = proteinPaths,
                                       proteinNames = sampleNameP,
                                       smallMolPaths = smallPaths,
                                       smallMolNames = sampleNameSM,
                                       exportDirectory = tempMZDir,
                                       centroid = input$centroid)
                 
                 idbac_create(fileName = input$newExperimentName,
                              filePath = sqlDirectory$sqlDirectory)
                 
                 idbacPool <- idbac_connect(fileName = input$newExperimentName,
                                            filePath = sqlDirectory$sqlDirectory)[[1]]
                 
                 db_from_mzml(mzFilePaths = unname(keys),
                              sampleIds = names(keys),
                              idbacPool = idbacPool,
                              acquisitionInfo = NULL,
                              ...)
                 pool::poolClose(idbacPool)
                 
                 popup4()
                 
                 # Update available experiments
                 availableExperiments$db <- tools::file_path_sans_ext(list.files(sqlDirectory$sqlDirectory,
                                                                                 pattern = ".sqlite",
                                                                                 full.names = FALSE))
                 
                 selectedPaths$smallmol <- NULL
                 selectedPaths$protein <- NULL
               })
}