R/VarSelShiny.R

###################################################################################
###################################################################################
##' Shiny app for analyzing results from VarSelCluster
##'
##' @description  
##' Shiny app for analyzing results from VarSelCluster
##' 
##' @param X an instance of \linkS4class{VSLCMresults} returned by function \link{VarSelCluster}.
##' 
##' @examples
##' \dontrun{
##' # Data loading
##' data("heart")
##' # Clustering en 2 classes
##' results <- VarSelCluster(heart[,-13], 2)
##' # Opening Shiny application to easily see the results
##' VarSelShiny(results)
##' }
##' 
##' @export
##'
##'
VarSelShiny <-  function(X){
  check.results(X)
  G <- .GlobalEnv
  assign("resVSLC", X, envir=G)
  a=shiny::runApp(system.file("shinyApp",package="VarSelLCM"),launch.browser = TRUE)
  return(invisible(a))
}

Try the VarSelLCM package in your browser

Any scripts or data that you put into this service are public.

VarSelLCM documentation built on May 2, 2019, 4:59 p.m.