Mercurial > repos > anmoljh > redundant_entries_remove
changeset 0:46800a6ab357 draft
planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
| author | anmoljh |
|---|---|
| date | Mon, 12 Jun 2017 08:19:01 -0400 |
| parents | |
| children | 575facf86117 |
| files | remove_redundant_entries.R remove_redundant_entries.xml |
| diffstat | 2 files changed, 34 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/remove_redundant_entries.R Mon Jun 12 08:19:01 2017 -0400 @@ -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/remove_redundant_entries.xml Mon Jun 12 08:19:01 2017 -0400 @@ -0,0 +1,23 @@ +<tool id="remove_reduandant_entries" name="Remove Redundancy" version="1.0"> + <description>"Removes Repeated Entry From File"</description> + <stdio> + <exit_code range="1:" /> + </stdio> + <command interpreter="Rscript">remove_redundant_entries.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> + <tests> + <test> + <param name="Input1" value="merged.csv" /> + <output name="Non_redudant_mega_file" file="non_redundant.csv" compare="sim_size" delta="9000000" /> + </test> + </tests> + + <help> + run command with Descriptor file and in csv format only .output file will be in CSV format. + </help> +</tool>