getInfoFromStringMod = function(name, sep = "_", strPos = 2, censorStr = ".fcs", collapse=sep) { tp <- gsub(censorStr, "", strsplit(name, sep)[[1]][strPos]) tp <- paste(tp, collapse = collapse) return(tp) }
getInfoFromStringMod = function(name, sep = "_", strPos = 2, censorStr = ".fcs", collapse=sep)
{
tp <- gsub(censorStr, "", strsplit(name, sep)[[1]][strPos])
tp <- paste(tp, collapse = collapse)
return(tp)
}