R/serveMe.R

In gabmorg/labelme-goldenberg: Shiny webapp customizable template

#' Run the labelMe webapp - user facing function
#'
#' A function that allows a user to set their desired webapp parameters
#' and serves a shiny web application. The structure of this function was
#' inspired by code snippet found at Dean Attali's blog post titled
#' "Supplementing your R package with a Shiny app"
#' (https://deanattali.com/2015/04/21/r-package-shiny-app/)
#'
#' @param labelingList A list of strings denoting the labels that
#' the user would like to have as options for the image labeling task
#'
#' @return None. Side effect of calling the function is the running of the
#' Shiny webapp defined in inst/available-shiny-apps/ultrasound-shiny/app.R
#'
#'
#' @export
#' @import shiny
#' @source "setGlobalVariables.R"

 serveMe <- function(labelingList) {
   appDir <- system.file("available-shiny-apps",
                         "ultrasound-shiny",
                         package = "labelMe")
   if (appDir == "") {
     stop("Could not find the ultrasound-shiny app. Try re-installing `labelMe`.", call. = FALSE)
   }

   else {
    # Pass the input variable (the desired labels for images) to labelMe
     .GlobalEnv$LABELS <- labelingList
     shiny::runApp(appDir, display.mode = "normal")
   }

   # Clear global environment after exiting app window
   on.exit(rm(LABELS, envir=.GlobalEnv))
}