second code duplication in msfinder related code

[hechth]

RAMClustR/R/import.MSFinder.structures.R

Lines 214 to 235 in 36fce5b

	out<-matrix(nrow = length(starts), ncol = length(tags))
	dimnames(out)[[2]]<-names(tags)
	for(k in 1:length(starts)) {
	d<-tmp[starts[k]:stops[k]]
	vals<-sapply(1:length(tags), FUN = function(x) {
	m<-grep(tags[x], d, fixed = TRUE)
	if(length(m)==0) {
	NA
	} else {
	if(length(m)>1) {
	m<-m[1]
	}
	gsub(tags[x], "", d[m])
	}
	}
	)
	out[k,]<-vals
	}
	out<-data.frame(out, check.names = FALSE, stringsAsFactors = FALSE)
	if(any(out[,"name"] == "Spectral DB search")) {
	out <- out[-grep("Spectral DB search", out[,"name"]), ,drop = FALSE]
	}

Duplicated in import.MSfinder.formulas.R.

RAMClustR/R/import.MSFinder.formulas.R

Lines 175 to 197 in 36fce5b

	out <- matrix(nrow = length(starts), ncol = length(tags))
	dimnames(out)[[2]] <- names(tags)
	for (j in 1:length(starts)) {
	d <- tmp[starts[j]:stops[j]]
	vals <- sapply(1:length(tags), FUN = function(x) {
	m <- grep(tags[x], d, fixed = TRUE)
	if (length(m) == 0) {
	NA
	}
	else {
	if (length(m) > 1) {
	m <- m[1]
	}
	gsub(tags[x], "", d[m])
	}
	})
	out[j, ] <- vals
	}
	out <- data.frame(out, check.names = FALSE, stringsAsFactors = FALSE)
	if (any(out[, "name"] == "Spectral DB search")) {
	out <- out[-grep("Spectral DB search", out[, "name"]),
	, drop = FALSE]
	}