Mercurial > repos > eschen42 > w4mcorcov

comparison w4mcorcov_wrapper.R @ 2:e03582f26617 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/HegemanLab/w4mcorcov_galaxy_wrapper/tree/master commit 7682e8e7ae2bfb926d94b414b9a1649389f33582
author eschen42
date Sun, 12 Nov 2017 19:45:36 -0500
parents 0c2ad44b6c9c
children 50f60f94c034
comparison
equal deleted inserted replaced
1:0c2ad44b6c9c 2:e03582f26617
65 my_env$contrast_salience <- as.character(argVc["contrast_salience"]) 65 my_env$contrast_salience <- as.character(argVc["contrast_salience"])
66 # print(sprintf("contrast_salience: %s", my_env$contrast_salience)) 66 # print(sprintf("contrast_salience: %s", my_env$contrast_salience))
67 67
68 # other parameters 68 # other parameters
69 69
70 my_env$tesC <- as.character(argVc["tesC"]) 70 my_env$tesC <- as.character(argVc["tesC"])
71 my_env$facC <- as.character(argVc["facC"]) 71 my_env$facC <- as.character(argVc["facC"])
72 my_env$pairSigFeatOnly <- as.logical(argVc["pairSigFeatOnly"]) 72 my_env$pairSigFeatOnly <- as.logical(argVc["pairSigFeatOnly"])
73 my_env$levCSV <- as.character(argVc["levCSV"]) 73 my_env$levCSV <- as.character(argVc["levCSV"])
74 my_env$matchingC <- as.character(argVc["matchingC"]) 74 my_env$matchingC <- as.character(argVc["matchingC"])
75 my_env$labelFeatures <- as.character(argVc["labelFeatures"]) # number of features to label at each extreme of the loadings or 'ALL' 75 my_env$labelFeatures <- as.character(argVc["labelFeatures"]) # number of features to label at each extreme of the loadings or 'ALL'
76 my_env$labelOrthoFeatures <- as.logical(argVc["labelOrthoFeatures"])
76 77
77 label_features <- my_env$labelFeatures 78 label_features <- my_env$labelFeatures
78 labelfeatures_check <- TRUE 79 labelfeatures_check <- TRUE
79 if ( is.na(label_features) ) { 80 if ( is.na(label_features) ) {
80 labelfeatures_check <- FALSE 81 labelfeatures_check <- FALSE