Mercurial > repos > bornea > saint_preproc

changeset 19:c56ebf254e89 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:17:39 -0500
parents b230824e1a0e
children e21be0412789
files pre_process_protein_name_set.R
diffstat 1 files changed, 20 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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])