changeset 0:2928e8312b5f draft

Uploaded
author deepakjadmin
date Thu, 14 Jan 2016 07:35:42 -0500
parents
children e71e35e34dac
files removeduplecate.R removeduplecate.xml tool_dependencies.xml
diffstat 3 files changed, 38 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/removeduplecate.R	Thu Jan 14 07:35:42 2016 -0500
@@ -0,0 +1,11 @@
+args <- commandArgs(TRUE)
+
+
+res1 <- read.csv(args[1])
+#res11 <- duplicated(res1[,1:length(res1) - 1])
+res11 <- duplicated(res1[,1])
+result <- res1[!res11,]
+names1 <- result[,1]
+rownames(result) <- names1
+result$Name <- NULL
+write.csv(result,file=args[2])
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/removeduplecate.xml	Thu Jan 14 07:35:42 2016 -0500
@@ -0,0 +1,19 @@
+<tool id="aaapadel003" name="Remove redundancy">
+<description>"Removes Repeated Entry From File"</description>
+<requirements>
+       <requirement type="set_environment">PADEL_TOOL3_PATH</requirement>
+    
+   
+</requirements>
+
+<command interpreter="Rscript">removeduplecate.R $Input1 $Non_redudant_mega_file</command>
+<inputs>
+<param format="txt" name="Input1" type="data" label="Merged Descriptor File" help="csv format"/>
+</inputs>
+<outputs>
+<data format="csv" name="Non_redudant_mega_file" label="Non-redundant Mega Descriptor File"/> 
+</outputs>
+<help>
+run command with Descriptor file and in csv format only .output file will be in CSV format.
+</help>
+</tool>
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tool_dependencies.xml	Thu Jan 14 07:35:42 2016 -0500
@@ -0,0 +1,8 @@
+<?xml version="1.0"?>
+<tool_dependency>
+
+<set_environment version="1.0">
+        <environment_variable name="PADEL_TOOL3_PATH" action="set_to">$REPOSITORY_INSTALL_DIR</environment_variable>   
+        </set_environment>
+   
+</tool_dependency>