# HG changeset patch
# User blankenberglab
# Date 1543339798 18000
# Node ID 4865e7f4e9c517aebb09c80df07fca884f1bed1f
# Parent d93629e79f5edcb5da7b928b3660a9d3919ac6cc
planemo upload for repository https://github.com/blankenberglab/galaxy-tools-blankenberg/tree/master/tools/r-gpca commit b72f398663cc133523cae0f5d7db2af1b4312f7a
diff -r d93629e79f5e -r 4865e7f4e9c5 r-gpca.R
--- a/r-gpca.R Tue Nov 27 11:02:46 2018 -0500
+++ b/r-gpca.R Tue Nov 27 12:29:58 2018 -0500
@@ -110,13 +110,14 @@
data<-t(as.matrix(read.delim(opt$data, row.names=1, header=TRUE, sep="\t")))
batch<-as.matrix(read.delim(opt$batch, header=TRUE, row.names=1, sep="\t"))
-write('',file = opt$html_outfile, append=TRUE)
write('#Batch\tDelta\tP-value\tCumulative Variance',file = opt$numbers_outfile, append=TRUE)
-write('', file=opt$html_outfile, append=TRUE)
+write('Table of Contents
',file = opt$html_outfile, append=TRUE)
for (row in 1:nrow(batch)) {
write(paste0('- ',row.names(batch)[row],'
'), file=opt$html_outfile, append=TRUE)
}
+write('