R/ui_popups.R

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

#----
#' popup3
#'
#' @return NA
#' 
#'
popup3 <- function(){
  if (is.null(shiny::getDefaultReactiveDomain())) {
  } else {
    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
#' 
#'
popup4 <- function(){
  if (is.null(shiny::getDefaultReactiveDomain())) {
  } else {
    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
#' 
#'
brukerToMzml_popup <- function(){
  if (is.null(shiny::getDefaultReactiveDomain())) {
    message("IDBac is converting your Bruker files to open-source mzML,
during this step there is no progress bar. After this step IDBac
will begin to convert your files into an IDBac experiment.")
  } else {
    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
#' 
#'
copyingDbPopup <- function(){
  if (is.null(shiny::getDefaultReactiveDomain())) {
  } else {
    showModal(
      modalDialog(
        title = "Important message",
        "Copying files to IDBac experiment/datatabase",
        easyClose = FALSE, 
        size = "l",
        footer = "")
    )
  }
}