view merge.r @ 89:3c9d4d976c47 draft

"planemo upload commit 8b702d0cf8f2355307eb8f95989f3d2488b2c963"
author rhpvorderman
date Fri, 05 Nov 2021 13:41:03 +0000
parents c33d93683a09
children
line wrap: on
line source

args <- commandArgs(trailingOnly = TRUE)

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

fields.1 = args[3]
fields.2 = args[4]

field.1 = args[5]
field.2 = args[6]

output = args[7]

dat1 = read.table(input.1, header=T, sep="\t", quote="", stringsAsFactors=F, fill=T, row.names=NULL)
if(fields.1 != "all"){
	fields.1 = unlist(strsplit(fields.1, ","))
	dat1 = dat1[,fields.1]
}
dat2 = read.table(input.2, header=T, sep="\t", quote="", stringsAsFactors=F, fill=T, row.names=NULL)
if(fields.2 != "all"){
	fields.2 = unlist(strsplit(fields.2, ","))
	dat2 = dat2[,fields.2]
}

dat3 = merge(dat1, dat2, by.x=field.1, by.y=field.2)

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