changeset 10:79285a7acfbf draft

Uploaded
author bornea
date Thu, 19 Nov 2015 13:18:06 -0500 (2015-11-19)
parents 9617d82034c6
children 80cc85d7d6e3
files bubbles_v9_NSAF_natural_log.R
diffstat 1 files changed, 16 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/bubbles_v9_NSAF_natural_log.R	Thu Nov 19 10:48:55 2015 -0500
+++ b/bubbles_v9_NSAF_natural_log.R	Thu Nov 19 13:18:06 2015 -0500
@@ -3,6 +3,7 @@
 # R-code: Multi-bubble graph generation from SAINTexpress output
 # Author: Brent Kuenzi
 ###################################################################################################
+ins_check_run()
 library(dplyr); library(tidyr); library(ggplot2)
 ###################################################################################################
 ### Run program ###
@@ -226,7 +227,22 @@
 cutoff_check <- function(cutoff){
   if( any(cutoff < 0 | cutoff > 1) ) stop('SAINT score cutoff not between 0 and 1. Please correct and try again')
 }
+ins_check_run <- function() {
+  if ('dplyr' %in% rownames(installed.packages())){}
+  else {
+    install.packages('dplyr', repos='http://cran.us.r-project.org')
+  }
+  if ('tidyr' %in% rownames(installed.packages())){}
+  else {
+    install.packages('tidyr', repos='http://cran.us.r-project.org')
+  }
+  if ('ggplot2' %in% rownames(installed.packages())){}
+  else {
+    install.packages('ggplot2', repos='http://cran.us.r-project.org')
+  }
+}
 
+ins_check_run()
 args <- commandArgs(trailingOnly = TRUE)
 main(args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],args[9])