R/ignore.path.R

In cmcouto-silva/snpsel: Facilities for essential tasks in R

#' @export
#' @author Cainã Max Couto-Silva

ignore.path <- function(file_path) {
  sapply(file_path, function(fpath) {
    if(grepl("/", fpath)) fpath <- gsub(".*/(.+)", "\\1", fpath)
    if(grepl("/$", fpath)) fpath <- unlist(strsplit(fpath, "/$"))
    return(fpath)
  })
}