#' 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!')
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.