Defines functions build.subtable

Documented in build.subtable

build.subtable <-
function(table, column1, column2, separator='///') {
	resultTable = c()
	indexNonEmpty = grep('.+', table[[column2]])
	for(i in indexNonEmpty) {
		values = unlist(strsplit(as.character(table[i,column2]), separator))
		resultTable = rbind(resultTable, cbind(table[i, column1], values))
	resultTable = data.frame(resultTable, stringsAsFactors=F)
	colnames(resultTable) = c(column1, column2)

Try the RbioRXN package in your browser

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

RbioRXN documentation built on May 29, 2017, 10:56 a.m.