R/is_suffix.R

In bschilder/scKirby: Automated ingestion and conversion of various single-cell data formats.

is_suffix <- function(x,
                      group=NULL){
  dict <- dict_suffix()
  matches <- lapply(dict, function(y){
    grepl(paste(paste0(y,"$"),collapse = "|"),x)
  })
  groups <- names(matches[unlist(matches)])
  if(is.null(group)){
    return(groups)
  } else {
    group <- tolower(group)
    if(!group %in% names(dict)){
      stopper(group,"is not a name in dict_suffix.")
    }
    return(group %in% groups)
  }
}