# HG changeset patch
# User bornea
# Date 1472356654 14400
# Node ID 47aa4f551c53968cf8ae7a12e5f968b715d7ea4f
# Parent  50391fdc229ae02b6f19db4854bddccb896fa57b
Uploaded

diff -r 50391fdc229a -r 47aa4f551c53 flatten_mzIdentML.R
--- a/flatten_mzIdentML.R	Sat Aug 27 23:37:08 2016 -0400
+++ b/flatten_mzIdentML.R	Sat Aug 27 23:57:34 2016 -0400
@@ -1,4 +1,17 @@
 #! /usr/bin/Rscript
+ins_check_run <- function() {
+  if ("mzID" %in% rownames(installed.packages())){}
+  else {
+    source("https://bioconductor.org/biocLite.R")
+    biocLite('mzID')
+  }
+  if ('dplyr' %in% rownames(installed.packages())){}
+  else {
+    install.packages('dplyr', repos='http://cran.us.r-project.org')
+  }
+}
+
+ins_check_run()
 args <- commandArgs(trailingOnly = TRUE)
 #source("https://bioconductor.org/biocLite.R")
 #biocLite("mzID")