# HG changeset patch
# User bornea
# Date 1447957059 18000
# Node ID c56ebf254e899500f7cc3c0bfbb2d94b18b74ce6
# Parent  b230824e1a0ed94115ae1cd1825e77db7ec6821b
Uploaded

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