R/GO.r

In jgodet/GmrcShinyStats: Analyses statistiques sans coder

# GO.r
# written by JuG
# August 06 2019


#' Go to GMRC shiny Stats
#' @author JuG
#' @description
#' @param
#' @details
#' @examples
#' GO()
#'
#' @return
#' @export

GO <- function(){
  # require(gmrcfun)
  # require(shinyFiles)
  # require(shiny)
  appDir <- system.file("shiny-examples", "myapp", package = "GmrcShinyStats")
  print(appDir)
  if( appDir == ""){
    stop("Could not find directory. Try re-installing `GmrcShinyStats`.", call. = FALSE)
  }
  setwd(appDir)
  shiny::runApp(appDir, launch.browser = T, test.mode=F)
  q(save="no")
}