R/get_file_extension.r

In swish-climate-impact-assessment/swishdbtools: Database tools for use with the SWISH and CARDAT projects

################################################################
# name:get_file_extension
get_file_extension <- function(inputfilepath)
{
    filename <- unlist(strsplit(inputfilepath, "/"))[length(unlist(strsplit(inputfilepath, 
        "/")))]
    filename_split <- strsplit(filename, "\\.")[[1]]
    ext <- filename_split[length(filename_split)]
    return(ext)
}