R/startGDINA.R

Defines functions startGDINA

Documented in startGDINA

#' Graphical user interface of the GDINA function
#'
#' An experimental interactive Shiny application for running GDINA function
#'
#' @author {Wenchao Ma, The University of Alabama, \email{[email protected]@ua.edu}}
#' @examples
#' \dontrun{
#' library(shiny)
#' library(shinydashboard)
#' startGDINA()
#' }
#'
#' @export
startGDINA <- function() {
  if (!requireNamespace(c("shiny","shinydashboard"), quietly = TRUE)) {
    stop("shiny and shinydashboard needed for startGDINA. Please install them.",
         call. = FALSE)
  }
  cat("Please wait while loading...\n")
  shiny::runApp(appDir = system.file("shiny", package="GDINA"),
                launch.browser = TRUE)

}
Wenchao-Ma/GDINA documentation built on Nov. 7, 2018, 1:33 p.m.