Mercurial > repos > davidvanzessen > shm_csr

view change_o/select_first_in_clone.r @ 98:d714f5ea83d7 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 1a01065a084a817382872154f779b94090a35ebf
author rhpvorderman
date Wed, 10 Jan 2024 12:32:47 +0000
parents 6cd12c71c3d3
children
line wrap: on
line source

args <- commandArgs(trailingOnly = TRUE)

input.file = args[1]
output.file = args[2]

print("select_in_first_clone.r")
print(input.file)
print(output.file)

input = read.table(input.file, header=T, sep="\t", fill=T, stringsAsFactors=F, quote="")

input = input[!duplicated(input$CLONE),]

names(input)[1] = "Sequence.ID"

write.table(input, output.file, quote=F, sep="\t", row.names=F, col.names=T, na="")