R/Launch.R

In bnasr/wiad: Wood Image Analysis and Dataset

#' Launch WIAD interface
#'
#' This function launches the app by opening the default web browser.
#' 
#' @param archiveDir path to the archive directory
#' @param Interactive logical variable to force an interactive session
#' @return No return value, this should be run in an interactive R session
#' @export
#' @import shiny
#' @examples
#'
#' #Launch WIAD interface
#' wiad::Launch()
#'
#'
Launch <- function(archiveDir = './WIAD_ARCHIVE/',
                   Interactive = FALSE){
  oldpar = 
    par()
  
  package = 
    'wiad'
  
  path = 
    'app'
  
  appDir <- 
    system.file(
      path 
      = 
        path,
      package
      = 
        package
    )
  
  ARCHIVE_DIR = 
    archiveDir
  
  launch.browser = 
    TRUE  
  
  options = 
    list(
      launch.browser 
      =
        launch.browser
    )
  
  message(
    'The WIAD app is being loaded ...'
  )
  
  ## Only run examples in interactive R sessions
  if (
    interactive()
    |
    Interactive
  )
    
  {
    app = shinyAppDir(appDir = appDir, options = options)
  }
  else
  {
    
    warning(
      'This function requires an interactive R session!'
    )
    
    app = 
      NULL
    
  }
  
  par = 
    oldpar
  
  return(app)
}