diff pre_process_protein_name_set.R @ 19:c56ebf254e89 draft

Uploaded

--- 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])