R/runAdjutant.R

In amcrisan/Adjutant: Adjutant - support for systematic and literature reviews

#' Command to run Adjutant
#'
#' @details run adjutant shiny application from within adjutant package
#'
#' @import shiny
#' @export
runAdjutant <- function() {
  appDir <- system.file("shinyapp", package = "adjutant")
  if (appDir == "") {
    stop("Could not find example directory. Try re-installing `mypackage`.", call. = FALSE)
  }
  
  
  #passing the current directory to the shiny app
  .GlobalEnv$workDir <- getwd()
  on.exit(rm(workDir, envir=.GlobalEnv))
  
  shiny::runApp(appDir, display.mode = "normal")
}