# HG changeset patch
# User bornea
# Date 1447957919 18000
# Node ID e21be041278985b091aac5666f7816c42bf9fa93
# Parent  c56ebf254e899500f7cc3c0bfbb2d94b18b74ce6
Uploaded

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