Mercurial > repos > bornea > saint_preproc

changeset 20:e21be0412789 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author bornea
date Thu, 19 Nov 2015 13:31:59 -0500
parents c56ebf254e89
children 9e0a894d2676
files pre_process_protein_name_set.R
diffstat 1 files changed, 20 insertions(+), 19 deletions(-) [+]
line wrap: on
line diff
--- 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])