| Previous changeset 9:9617d82034c6 (2015-11-19) Next changeset 11:80cc85d7d6e3 (2015-11-19) |
|
Commit message:
Uploaded |
|
modified:
bubbles_v9_NSAF_natural_log.R |
| b |
| diff -r 9617d82034c6 -r 79285a7acfbf bubbles_v9_NSAF_natural_log.R --- 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]) |