# HG changeset patch
# User eric
# Date 1415282874 -3600
# Node ID 77bbf955e8dee94c8dd551afecf8793ed0ef57fc
initial commit
diff -r 000000000000 -r 77bbf955e8de .directory
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/.directory Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,5 @@
+[Dolphin]
+Timestamp=2014,6,17,13,13,59
+
+[Settings]
+HiddenFilesShown=true
diff -r 000000000000 -r 77bbf955e8de .project
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/.project Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,11 @@
+
+
+ vennerable(testtoolshed)
+
+
+
+
+
+
+
+
diff -r 000000000000 -r 77bbf955e8de vennerable/Vennerable.R
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/vennerable/Vennerable.R Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,67 @@
+#!/usr/bin/R
+
+# R script to call Vennerable package from galaxy
+# info: alex.bossers@wur.nl
+
+# R --slave --vanilla --file=PlotBar.R --args inputFile x_data weighting outputFile plottype resolution imagetype
+# 1 2 3 4 5 6 7 8 9 10 11 12
+
+#get cmd line args
+args <- commandArgs()
+ in.file <- args[6]
+ xData <- args[7] # data labels xData of format "a, b, c" and can include spaces
+ weighting <- args[8]
+ out.file <- args[9]
+ plottype <- args[10]
+ resolution <- args[11] # in dpi
+ imagetype <- args[12] # svg, pdf or png
+
+#open lib
+library(Vennerable)
+options(bitmapType='cairo')
+
+# for labels of bars or bar groups presume column names from data
+if (xData != "default") {
+ # read without header input file (must be tabular)
+ annot_data <- read.table(in.file, header=F, sep="\t")
+ colnames (annot_data) <- strsplit(xData,",")[[1]]
+ Vannot <- Venn(annot_data)
+} else {
+ # read without header input file (must be tabular)
+ annot_data <- read.table(in.file, header=T, sep="\t")
+ Vannot <- Venn(annot_data)
+}
+
+#set output imagetype (svg pdf or png)
+#R 3.0.2 and default cairo libs should handle it all ok
+#it could be that X11 should be loaded for non-pdf
+if (imagetype == "svg") {
+ svg(out.file)
+} else if (imagetype == "png") {
+ png(out.file, width = 1600, height = 1600, res = resolution)
+} else {
+ pdf(out.file)
+}
+
+# plot it
+if (plottype == "ChowRuskey") {
+ plot(Vannot, type = plottype)
+
+} else if (plottype == "AWFE") {
+ plot(Vannot, doWeights = weighting, type = plottype)
+
+} else if (plottype == "circles") {
+ plot(Vannot)
+
+} else if (plottype == "ellipses"){
+ plot(Vannot, type = "ellipses")
+
+} else if (plottype == "squares"){
+ plot(Vannot, type = "squares")
+
+} else if (plottype == "battle"){
+ plot(Vannot, type = "battle")
+}
+
+cat ("Wrapper version 1.2, running Vennerable v3.0-82\n Info/bugs: alex.bossers@wur.nl\n")
+dev.off()
diff -r 000000000000 -r 77bbf955e8de vennerable/Vennerable.xml
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/vennerable/Vennerable.xml Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,135 @@
+
+ : Plot data in Venn or Edwards/Venn-like diagrams
+
+ R --slave --vanilla --file=\$VENNERABLE_SCRIPT_PATH/vennerable/Vennerable.R
+ --args $inputFile
+ #if $opt.userSpecified == "Yes"
+ default
+ #else
+ "$opt.xNames"
+ #end if
+ $weighting
+ #if $imagetype.value == "svg"
+ $outputFile_svg
+ $plottype
+ $resolution
+ svg
+ #else if $imagetype.value == "png"
+ $outputFile_png
+ $plottype
+ $resolution
+ png
+ #else
+ $outputFile_pdf
+ $plottype
+ $resolution
+ pdf
+ #end if
+ 2>$Vennerable_log
+ 1>>$Vennerable_log
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ imagetype=="svg"
+
+
+ imagetype=="png"
+
+
+ imagetype=="pdf"
+
+
+
+
+
+
+
+
+ R
+ vennerable_r_packages
+ VENNERABLE_SCRIPT_PATH
+
+
+|
+
+
+**What it does**
+
+Vennerable V3.0 (07-10-2014)
+
+This tool will use the Vennerable R package to plot data as weighted or un-weighted diagrams such as Venn, Edwards-Venn and Chow-Rusky.
+
+The tool can take from 2 to 9 collumns (in battle mode) of data but more are adviced not to be used (for speed and clarity).
+
+Since version Vennerable version 3 it supports up to 9 datasets in battle mode. Wrapper version 1.2 and up support output in svg, pdf and png.
+
+-----
+
+**Input**
+
+It takes a tabular file containing identifiers. Matches will be calculated automatically.
+
+Be sure to specify headers if you haven't any in your dataset! Otherwise the top row of data will be excluded.
+
+::
+
+ DataA DataB DataC DataD
+ HUM1 AGK2 AGK2 RTT3
+ AGK2 ZZE3 ERT3 ZPD3
+ ZPD3 AAW3 RTT3 WER2
+ WER2 HUM1 RRW4 DUM1
+
+-----
+
+**Example**
+
+.. image:: ../static/images/WURtools/VennerablePlot.png
+
+-----
+
+**References**
+
+- alex.bossers@wur.nl
+- Vennerable R package: http://r-forge.r-project.org/projects/vennerable/
+
+-----
+
+.. class:: infomark
+
+**TIP:** If your data is not TAB delimited, use *Text Manipulation->Convert*
+
+
+
+
diff -r 000000000000 -r 77bbf955e8de vennerable/static/images/Vennerable.R_backup.png
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/vennerable/static/images/Vennerable.R_backup.png Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,56 @@
+#!/usr/bin/R
+
+# R script to call Vennerable package from galaxy
+# info: alex.bossers@wur.nl
+
+# R --slave --vanilla --file=PlotBar.R --args inputFile x_data weighting outputFile plottype resolution
+# 1 2 3 4 5 6 7 8 9 10 11
+
+#get cmd line args
+args <- commandArgs()
+ in.file <- args[6]
+ xData <- args[7] # data labels xData of format "a, b, c" and can include spaces
+ weighting <- args[8]
+ out.file <- args[9]
+ plottype <- args[10]
+ resolution <- args[11] #in dpi
+
+#open lib
+library(Vennerable)
+
+# for labels of bars or bar groups presume column names from data
+if (xData != "default") {
+ # read without header input file (must be tabular)
+ annot_data <- read.table(in.file, header=F, sep="\t")
+ colnames (annot_data) <- strsplit(xData,",")[[1]]
+ Vannot <- Venn(annot_data)
+} else {
+ # read without header input file (must be tabular)
+ annot_data <- read.table(in.file, header=T, sep="\t")
+ Vannot <- Venn(annot_data)
+}
+
+#png(out.file,width = 1600, height = 1600, res = resolution)
+png(out.file, res = resolution)
+
+# plot it
+if (plottype == "ChowRuskey") {
+ plot(Vannot, type = plottype)
+
+} else if (plottype == "AWFE") {
+ plot(Vannot, doWeights = weighting, type = plottype)
+
+} else if (plottype == "circles") {
+ plot(Vannot)
+
+} else if (plottype == "ellipses"){
+ plot(Vannot, type = "ellipses")
+
+} else if (plottype == "squares"){
+ plot(Vannot, type = "squares")
+
+}
+
+cat ("version 1.0, info: alex.bossers@wur.nl\n")
+dev.off()
+
diff -r 000000000000 -r 77bbf955e8de vennerable/static/images/Vennerable.pdf
Binary file vennerable/static/images/Vennerable.pdf has changed
diff -r 000000000000 -r 77bbf955e8de vennerable/static/images/Vennerable.xml_backup.png
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/vennerable/static/images/Vennerable.xml_backup.png Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,112 @@
+
+ : Plot data in Venn or Venn-like diagrams
+
+ #if $opt.userSpecified == "Yes"
+ R --slave --vanilla --file=$GALAXY_ROOT_DIR/tools/WURtools/R_tools/Vennerable.R
+ --args $inputFile
+ default
+ $weighting
+ $outputFile
+ $plottype
+ $resolution
+ 2>$Vennerable_log
+ 1>>$Vennerable_log
+ #else
+ R --slave --vanilla --file=$GALAXY_ROOT_DIR/tools/WURtools/R_tools/Vennerable.R
+ --args $inputFile
+ "$opt.xNames"
+ $weighting
+ $outputFile
+ $plottype
+ $resolution
+ 2>$Vennerable_log
+ 1>>$Vennerable_log
+ #end if
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ R
+
+
+|
+
+
+**What it does**
+
+Vennerable V2.0 (09-10-2009)
+
+This tool will use the Vennerable R package to plot data as weighted or un-weighted diagrams such as Venn, Edwards-Venn and Chow-Rusky.
+
+The tool can take 2 to 7 collumns of data but more are adviced not to be used (for speed and clarity).
+
+-----
+
+**Input**
+
+It takes a tabular file containing identifiers. Matches will be calculated automatically.
+
+Be sure to specify headers if you haven't any in your dataset! Otherwise the top row of data will be excluded.
+
+::
+
+ DataA DataB DataC DataD
+ HUM1 AGK2 AGK2 RTT3
+ AGK2 ZZE3 ERT3 ZPD3
+ ZPD3 AAW3 RTT3 WER2
+ WER2 HUM1 RRW4 DUM1
+
+-----
+
+**Example**
+
+.. image:: ../static/images/WURtools/VennerablePlot.png
+
+-----
+
+**References**
+
+- alex.bossers@wur.nl
+- Vennerable R package: http://r-forge.r-project.org/projects/vennerable/
+
+-----
+
+.. class:: infomark
+
+**TIP:** If your data is not TAB delimited, use *Text Manipulation->Convert*
+
+
+
+
diff -r 000000000000 -r 77bbf955e8de vennerable/static/images/VennerablePlot.png
Binary file vennerable/static/images/VennerablePlot.png has changed
diff -r 000000000000 -r 77bbf955e8de vennerable/test/Vennerable.DemoTable.tab
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/vennerable/test/Vennerable.DemoTable.tab Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,8 @@
+Data1 Data2 Data3 Data4 Data5 Data6
+aa bb aa aa bb cc
+bb gg bb bb dd bb
+cc dd ii ii gg qq
+dd hh gg ii xx ww
+ee jj gg kl ee
+ff yy uy tt
+ pp uu
\ No newline at end of file
diff -r 000000000000 -r 77bbf955e8de vennerable/tool_dependencies.xml
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/vennerable/tool_dependencies.xml Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,32 @@
+
+
+
+ $REPOSITORY_INSTALL_DIR
+
+
+
+
+
+
+
+
+
+
+
+ http://www.bioconductor.org/packages/2.13/bioc/src/contrib/BiocGenerics_0.8.0.tar.gz
+ http://www.bioconductor.org/packages/2.13/bioc/src/contrib/graph_1.40.1.tar.gz
+ http://www.bioconductor.org/packages/2.13/bioc/src/contrib/RBGL_1.38.0.tar.gz
+ http://cran.r-project.org/src/contrib/Archive/RColorBrewer/RColorBrewer_1.0-4.tar.gz
+ http://cran.r-project.org/src/contrib/Archive/Rcpp/Rcpp_0.11.2.tar.gz
+ http://cran.r-project.org/src/contrib/Archive/plyr/plyr_1.8.tar.gz
+ http://cran.r-project.org/src/contrib/Archive/reshape/reshape_0.8.4.tar.gz
+ http://cran.r-project.org/src/contrib/Archive/gtools/gtools_3.4.0.tar.gz
+ http://cran.r-project.org/src/contrib/Archive/xtable/xtable_1.7-3.tar.gz
+ http://download.r-forge.r-project.org/src/contrib/Vennerable_3.0.tar.gz
+
+
+
+
+
+
+
diff -r 000000000000 -r 77bbf955e8de vennerable/unused/Vennerable.R_backup_png_xml
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/vennerable/unused/Vennerable.R_backup_png_xml Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,56 @@
+#!/usr/bin/R
+
+# R script to call Vennerable package from galaxy
+# info: alex.bossers@wur.nl
+
+# R --slave --vanilla --file=PlotBar.R --args inputFile x_data weighting outputFile plottype resolution
+# 1 2 3 4 5 6 7 8 9 10 11
+
+#get cmd line args
+args <- commandArgs()
+ in.file <- args[6]
+ xData <- args[7] # data labels xData of format "a, b, c" and can include spaces
+ weighting <- args[8]
+ out.file <- args[9]
+ plottype <- args[10]
+ resolution <- args[11] #in dpi
+
+#open lib
+library(Vennerable)
+
+# for labels of bars or bar groups presume column names from data
+if (xData != "default") {
+ # read without header input file (must be tabular)
+ annot_data <- read.table(in.file, header=F, sep="\t")
+ colnames (annot_data) <- strsplit(xData,",")[[1]]
+ Vannot <- Venn(annot_data)
+} else {
+ # read without header input file (must be tabular)
+ annot_data <- read.table(in.file, header=T, sep="\t")
+ Vannot <- Venn(annot_data)
+}
+
+#png(out.file,width = 1600, height = 1600, res = resolution)
+png(out.file, res = resolution)
+
+# plot it
+if (plottype == "ChowRuskey") {
+ plot(Vannot, type = plottype)
+
+} else if (plottype == "AWFE") {
+ plot(Vannot, doWeights = weighting, type = plottype)
+
+} else if (plottype == "circles") {
+ plot(Vannot)
+
+} else if (plottype == "ellipses"){
+ plot(Vannot, type = "ellipses")
+
+} else if (plottype == "squares"){
+ plot(Vannot, type = "squares")
+
+}
+
+cat ("version 1.0, info: alex.bossers@wur.nl\n")
+dev.off()
+
diff -r 000000000000 -r 77bbf955e8de vennerable/unused/Vennerable.xml_backup_png
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/vennerable/unused/Vennerable.xml_backup_png Thu Nov 06 15:07:54 2014 +0100
@@ -0,0 +1,112 @@
+
+ : Plot data in Venn or Venn-like diagrams
+
+ #if $opt.userSpecified == "Yes"
+ R --slave --vanilla --file=$GALAXY_ROOT_DIR/tools/WURtools/R_tools/Vennerable.R
+ --args $inputFile
+ default
+ $weighting
+ $outputFile
+ $plottype
+ $resolution
+ 2>$Vennerable_log
+ 1>>$Vennerable_log
+ #else
+ R --slave --vanilla --file=$GALAXY_ROOT_DIR/tools/WURtools/R_tools/Vennerable.R
+ --args $inputFile
+ "$opt.xNames"
+ $weighting
+ $outputFile
+ $plottype
+ $resolution
+ 2>$Vennerable_log
+ 1>>$Vennerable_log
+ #end if
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ R
+
+
+|
+
+
+**What it does**
+
+Vennerable V2.0 (09-10-2009)
+
+This tool will use the Vennerable R package to plot data as weighted or un-weighted diagrams such as Venn, Edwards-Venn and Chow-Rusky.
+
+The tool can take 2 to 7 collumns of data but more are adviced not to be used (for speed and clarity).
+
+-----
+
+**Input**
+
+It takes a tabular file containing identifiers. Matches will be calculated automatically.
+
+Be sure to specify headers if you haven't any in your dataset! Otherwise the top row of data will be excluded.
+
+::
+
+ DataA DataB DataC DataD
+ HUM1 AGK2 AGK2 RTT3
+ AGK2 ZZE3 ERT3 ZPD3
+ ZPD3 AAW3 RTT3 WER2
+ WER2 HUM1 RRW4 DUM1
+
+-----
+
+**Example**
+
+.. image:: ../static/images/WURtools/VennerablePlot.png
+
+-----
+
+**References**
+
+- alex.bossers@wur.nl
+- Vennerable R package: http://r-forge.r-project.org/projects/vennerable/
+
+-----
+
+.. class:: infomark
+
+**TIP:** If your data is not TAB delimited, use *Text Manipulation->Convert*
+
+
+
+