R/add.target2href.R

add.target2href<-function(tr,split="\">"){
	tmp<-strsplit(tr,split)
	for(i in 1:length(tmp)){
		tmp1<-tmp[[i]]
		if(length(tmp1)>1)
			tr[i]<-paste(tmp1[1],paste("\" target=\"_blank\">",tmp1[-1],
				sep="",collapse=""),sep="")
	}
	tr
}

Try the siggenes package in your browser

Any scripts or data that you put into this service are public.

siggenes documentation built on May 6, 2019, 2:38 a.m.