R/fileD.R

In NRSC/nphys: R package for interpreting neurphysiology field and whole-cell data

#' Returns the last element of a path
#'
#' @param x a file path
#'
#' @return wd
#' @export fileD
fileD <- function(x){

    wd <- stringr::str_split(x, "/", simplify = TRUE)
    wd <- wd[length(wd)]

    return(wd)
}