| Previous changeset 19:c56ebf254e89 (2015-11-19) Next changeset 21:9e0a894d2676 (2015-11-19) |
|
Commit message:
Uploaded |
|
modified:
pre_process_protein_name_set.R |
| b |
| diff -r c56ebf254e89 -r e21be0412789 pre_process_protein_name_set.R --- a/pre_process_protein_name_set.R Thu Nov 19 13:17:39 2015 -0500 +++ b/pre_process_protein_name_set.R Thu Nov 19 13:31:59 2015 -0500 |
| [ |
| @@ -1,3 +1,23 @@ +ins_check_run <- function() { + if ("affy" %in% rownames(installed.packages())){} + else { + source("https://bioconductor.org/biocLite.R") + biocLite(c('mygene','affy')) + } + if ('data.table' %in% rownames(installed.packages())){} + else { + install.packages('data.table', repos='http://cran.us.r-project.org') + } + if ('stringr' %in% rownames(installed.packages())){} + else { + install.packages('stringr', repos='http://cran.us.r-project.org') + } + if ('VennDiagram' %in% rownames(installed.packages())){} + else { + install.packages('VennDiagram', repos='http://cran.us.r-project.org') + } +} + ins_check_run() library(data.table) library(affy) @@ -73,25 +93,6 @@ } return(Tukeys_df) } -ins_check_run <- function() { - if ("affy" %in% rownames(installed.packages())){} - else { - source("https://bioconductor.org/biocLite.R") - biocLite(c('mygene','affy')) - } - if ('data.table' %in% rownames(installed.packages())){} - else { - install.packages('data.table', repos='http://cran.us.r-project.org') - } - if ('stringr' %in% rownames(installed.packages())){} - else { - install.packages('stringr', repos='http://cran.us.r-project.org') - } - if ('VennDiagram' %in% rownames(installed.packages())){} - else { - install.packages('VennDiagram', repos='http://cran.us.r-project.org') - } -} args <- commandArgs(trailingOnly = TRUE) main(args[1]) |