Lines Matching refs:bnames

123 	bnames <- unique(mdata[grep("Band_", mdata)])  functionVar
124 	if (length(bnames) > 0) {
125 		bn <- sapply(strsplit(bnames, '='), function(x) x[2])
126 		bi <- gsub("Band_", "", sapply(strsplit(bnames, '='), function(x) x[1]))
127 		bnames <- try(bn[order(as.integer(bi))], silent=TRUE)
128 		if ( inherits(bnames, "try-error") ) {
129 			bnames <- NULL
133 		bnames <- rep("", nbands)
136 			bnames[i] <- rgdal::getDescription(objbnd)
237 		ub <- unique(bnames)
239 			names(r) <- bnames