| Previous changeset 18:b230824e1a0e (2015-11-17) Next changeset 20:e21be0412789 (2015-11-19) |
|
Commit message:
Uploaded |
|
modified:
pre_process_protein_name_set.R |
| b |
| diff -r b230824e1a0e -r c56ebf254e89 pre_process_protein_name_set.R --- a/pre_process_protein_name_set.R Tue Nov 17 12:18:30 2015 -0500 +++ b/pre_process_protein_name_set.R Thu Nov 19 13:17:39 2015 -0500 |
| [ |
| @@ -1,3 +1,4 @@ +ins_check_run() library(data.table) library(affy) library(stringr) @@ -72,6 +73,25 @@ } 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]) |