R/util.R

In scbursts: Single Channel Bursts Analysis

#' Remove suffix and path from filename.
#'
#' @param filename string to extract basename from
#' @return Name with suffix and path removed
#' @examples
#' util.basename("bursts/60uM-2017-08-18-16-32/60uM-712.dwt")
#' @export
util.basename <- function(filename) {
    ### Remove the (.dwt|.evt) from filename
    sapply(strsplit(basename(filename),"\\."), function(x) paste(x[1:(length(x)-1)], collapse=".")) 
}