R/add.target2href.R

Defines functions add.target2href

Documented in add.target2href

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 Nov. 8, 2020, 6:26 p.m.