R/popups.R

Defines functions copyingDbPopup brukerToMzml_popup popup4 popup3

Documented in brukerToMzml_popup copyingDbPopup popup3 popup4

#----
#' popup3
#'
#' @return NA
#' @export
#'
popup3 <- function(){
  showModal(modalDialog(
    size = "m",
    title = "Important message",
    "When spectra processing is complete you will be able to begin with the data analysis",
    br(),
    "To check the progress, observe the progress bar at bottom right.",
    easyClose = FALSE, 
    footer = ""))
}


# Popup notifying user when spectra processing is complete
#----
#' popup4
#'
#' @return NA
#' @export
#'
popup4 <- function(){
  showModal(modalDialog(
    size = "m",
    title = "Spectra Processing is Now Complete",
    br(),
    easyClose = FALSE,
    tagList(actionButton("processToAnalysis", 
                         "Click to continue")),
    footer = NULL
  ))
  
}


# Modal to display while converting to mzML
#----
#' brukerToMzml_popup
#'
#' @return NA
#' @export
#'
brukerToMzml_popup <- function(){
  showModal(modalDialog(
    size = "m",
    title = "Important message",
    p("IDBac is converting your Bruker files to open-source mzML, 
    during this step there is no progress bar."),
    p("After this step IDBac will begin to convert your files into an
      IDBac experiment."),
    easyClose = FALSE, 
    footer = ""))
}


#' While Database is copying, block user-interaction
#'
#' @return modal
#' @export
#'
copyingDbPopup <- function(){
  showModal(
    modalDialog(
      title = "Important message",
      "When file-conversions are complete this pop-up will be replaced by a summary of the conversion.",
      br(),
      "To check what has been converted, you can navigate to:",
      easyClose = FALSE, 
      size = "l",
      footer = "")
  )
}
chasemc/tempRepo documentation built on April 8, 2019, 10:22 p.m.