R/getGCTCLSExample.R

Defines functions getGCTCLSExample

Documented in getGCTCLSExample

#' get GCT and CLS example files.
#' @usage getGCTCLSExample()
#' @return GCT and CLS files
#' @export
#' @examples
#' ## Load workspace
#' load(paste(path.package("canceR"),"/data/ucec_tcga_pubGSEA1021.RData", sep=""))
#' \dontrun{
#' getGCTCLSExample()
#' }
getGCTCLSExample <- function(){
    #require(tcltk)
    
    ifrm <- function(obj, env = myGlobalEnv()) {
        obj <- deparse(substitute(obj))
        if(exists(obj, envir = env)) {
            rm(list = obj, envir = env)
        }
    }
    ifrm(fname.GCT, myGlobalEnv)
    ifrm(fname.CLS,myGlobalEnv)
    
    myGlobalEnv$fname.GCT <- paste(path.package("canceR"),"/extdata/gct_cls/", "Lung_Bost_collapsed_symbols_common_Mich_Bost.gct",sep="")
    myGlobalEnv$fname.CLS <- paste(path.package("canceR"),"/extdata/gct_cls/", "Lung_Boston.cls",sep="")
    
    
    
    tkinsert(myGlobalEnv$tlGCT,"end",myGlobalEnv$fname.GCT)
    tkinsert(myGlobalEnv$tlCLS,"end",myGlobalEnv$fname.CLS)
    tkfocus(myGlobalEnv$ttDialogGSEA)
    
}
Bioconductor-mirror/canceR documentation built on June 1, 2017, 5:24 a.m.