R/is_filetype.R

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

is_filetype <- function(x,
                        group=NULL){
  if(is.null(x)) return(FALSE)
  dict <- dict_filetype()
  matches <- lapply(dict, function(y){
    grepl(paste(paste0(gsub("\\.","\\.",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_filetype.")
    }
    return(group %in% groups)
  }
}