R/stripFileExtension.R

In esander91/LizUtilities: Utility functions for the Allesina lab

## stripFileExtension: strip the final file extension (.txt, etc.)
## from a given file name

stripFileExtension <- function(filepath){
    ## remove the final file extension from filepath
    split <- strsplit(filepath, '\\.', perl = TRUE)[[1]]
    split <- split[1:(length(split)-1)]
    file <- split[1]
    for(i in 2:length(split)){
        file <- paste0(file, '.', split[i])
    }
    return(file)
}