Commit 06c92c0c authored by Konrad Zych's avatar Konrad Zych

summarize_features - better handling of original names

parent 8d6b315b
......@@ -29,7 +29,7 @@
#' # simple working example
#' siamcat_evaluated <- summarize.features(siamcat_example)
#'
summarize.features <- function(siamcat, level = "__g",
summarize.features <- function(siamcat, level = "g__",
keep_original_names = TRUE, verbose=1){
if (verbose > 1)
......@@ -44,8 +44,9 @@ summarize.features <- function(siamcat, level = "__g",
origNames <- NULL
for(row in rowSplitted){
print(row)
levelPos <- grep(level,row)
if(!is.null(levelPos)){
if(length(levelPos)>0){
genera <- c(genera,row[levelPos])
origNames<- paste(row[1:levelPos],sep="\\.")
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment