R/protXploR.R

In samWieczorek/ProtXploR: Provides a GUI for DAPAR

##' Prostar : a GUI for DAPAR
##' 
##' @title ProtXploR
##' @return A new window in the default internet browser
##' @author Samuel Wieczorek
##' @examples
##' if(interactive()) {Prostar()}
ProtXploR <-
function(){
        G <- .GlobalEnv
if (interactive()){
    options(shiny.maxRequestSize=1024^3)
    a=shiny::runApp(system.file("ProtXploRApp",package="ProtXploR"),
                    launch.browser = TRUE)
    return(invisible(a))
} else {return (NULL)}
}