R/combineBinTemplates.R

In jonkatz2/monitoR: Acoustic Template Detection in R

# For combining binary template lists together
# Modified 2013 JUNE 13

combineBinTemplates <- function(...) {
   temps <- list(...)
   if(is.list(temps[[1]])) temps <- temps[[1]] 
   x <- NULL

   for(i in 1:length(temps)) {
      x <- c(x, temps[[i]]@templates)
   }

   templates <- new('binTemplateList', templates = x)

   while(any(dups <- duplicated(names(templates@templates)))) {
     warning("Found identical template names: ", paste(names(templates@templates)[dups], collapse = ", "), ". Adding suffix.")   
     names(templates@templates)[dups] <- paste0(names(templates@templates)[dups], ".2")
   }

   return(templates)

}