R/Launch.R

In bnasr/xROI: Delineate Region of Interests (ROI's) and Extract Time-Series Data from Digital Repeat Photography Images

#' Launch xROI app
#'
#' This function launches the app by opening the default web browser.
#' @param inputDir a character string.  path to the input directory.
#' @return this should be run in an interactive R session
#' @param Interactive logical variable to force an interactive session
#' @keywords  Run Launch xROI App
#' @export
#' @import shiny
#' @import rgdal
#' @import sp
#' @import jpeg
#' @import tiff
#' @rawNamespace import(colourpicker, except = runExample)
#' @import rjson
#' @import RCurl
#' @import stringr
#' @rawNamespace import(data.table, except = c(month, hour, quarter, week, year, wday, second, minute, mday, yday, isoweek, shift))
#' @rawNamespace import(lubridate, except = origin)
#' @import moments
#' @importFrom grDevices rgb2hsv
#' @importFrom graphics abline axis locator mtext par polygon rasterImage rect
#' @import methods
#' @importFrom stats approx na.omit sd quantile
#' @importFrom utils data download.file read.csv read.table setTxtProgressBar txtProgressBar unzip write.table zip
#'
#' @examples
#'
#' #Launch xROI app
#' xROI::Launch()
#'
#'
Launch <- function(inputDir= NULL,
                   Interactive = FALSE){
  exampleDir <- system.file('example', package = "xROI")
  tmpdir <- tempdir()
  file.copy(exampleDir, tmpdir, recursive = T)
  exampleDir <- file.path(tmpdir, 'example')
  ## Only run examples in interactive R sessions
  if (interactive()|Interactive) {
    # ui <- getUI()
    # server <- getServer(exampleDir, inputDir)
    # shinyApp(ui, server, options = list(launch.browser = TRUE))
    appDir <- system.file('app', package = "xROI")
    writeLines(c(exampleDir, inputDir), paste0(tempdir(), '/ex_in_dir.tmp'))
    shinyAppDir(appDir = appDir, options = list(launch.browser = TRUE))
  }else{
    print('This function requires an interactive R session!')
  }
}