R/get_path.R

Defines functions get_path

#' @export
get_path <- function(file) {
  
  sapply(file, function(vec) {
  
      if(grepl("/", vec)) {
      gsub("(^.*/).*$", "\\1", vec)
    } else {
      path <- "./"
    }
    
  })
  
}
cmcouto-silva/snpsel documentation built on June 8, 2021, 10:29 p.m.