# HG changeset patch # User anmoljh # Date 1527780537 14400 # Node ID dee6d2dd558c7a97fe2c65f2ed76209eb33b3891 planemo upload commit a1f4dd8eb560c649391ada1a6bb9505893a35272 diff -r 000000000000 -r dee6d2dd558c remove_redundant_entries.R --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/remove_redundant_entries.R Thu May 31 11:28:57 2018 -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]) diff -r 000000000000 -r dee6d2dd558c remove_redundant_entries.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/remove_redundant_entries.xml Thu May 31 11:28:57 2018 -0400 @@ -0,0 +1,26 @@ + + "Removes repeated entry from file" + + R + + + + + remove_redundant_entries.R $Input1 $Non_redudant_mega_file + + + + + + + + + + + + + + + run command with Descriptor file and in csv format only .output file will be in CSV format. + + diff -r 000000000000 -r dee6d2dd558c tool_dependencies.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tool_dependencies.xml Thu May 31 11:28:57 2018 -0400 @@ -0,0 +1,6 @@ + + + + + +